اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

هل يمكن استعراض السجلات بمسج بوكس تلقائيا *_^


إذهب إلى أفضل إجابة Solved by ابو جودي,

الردود الموصى بها

وعليكم السلام ورحمة الله وبركاته أخي عمر 🙂 

هذا حسبما فهمت .. عملت فكرتين ..

ضع هذا الكود في حدث عند الإغلاق :

Private Sub Form_Close()
Dim x As Integer
'----------------------------------------------(الفكرة الأولى)
DoCmd.GoToRecord , , acFirst
For x = 1 To Me.Recordset.RecordCount
    MsgBox Me.n
    DoCmd.GoToRecord , , acNext
Next
'----------------------------------------------(الفكرة الثانية)
Dim txt As String
DoCmd.GoToRecord , , acFirst
For x = 1 To Me.Recordset.RecordCount
    txt = txt & Me.n & vbNewLine
    DoCmd.GoToRecord , , acNext
Next
    MsgBox txt
End Sub

 

 

aa.accdb

تم تعديل بواسطه Moosak
  • Like 1
رابط هذا التعليق
شارك

9 دقائق مضت, Moosak said:

وعليكم السلام ورحمة الله وبركاته أخي عمر 🙂 

هذا حسبما فهمت ..

ضع هذا الكود في حدث عند الإغلاق :

Private Sub Form_Close()
Dim x As Integer
DoCmd.GoToRecord , , acFirst
For x = 1 To Me.Recordset.RecordCount
    MsgBox Me.n
    DoCmd.GoToRecord , , acNext
Next
End Sub

 

aa.accdb 456 kB · 0 downloads

شكرا اخي ولكن الا يتم ذلك تلقائيا بدون الضغط على موافق ؟

رابط هذا التعليق
شارك

3 دقائق مضت, عمر طاهر said:

شكرا اخي ولكن الا يتم ذلك تلقائيا بدون الضغط على موافق ؟

قمت الآن بتعديل المرفق .. عملت فكرة ثانية 🙂 

 

3 دقائق مضت, عمر طاهر said:

ولكن الا يتم ذلك تلقائيا بدون الضغط على موافق ؟

هنا ستدخل في مسألة هل يمكن عمل رسائل ذاتية الاختفاء 🙂 ..
ولكن للأسف ليس لدي فكرة ..

رابط هذا التعليق
شارك

6 دقائق مضت, Moosak said:

قمت الآن بتعديل المرفق .. عملت فكرة ثانية 🙂 

 

هنا ستدخل في مسألة هل يمكن عمل رسائل ذاتية الاختفاء 🙂 ..
ولكن للأسف ليس لدي فكرة ..

قصدت الانتقال الى التالي من السجلات وليس انهاء الرسالة 

رابط هذا التعليق
شارك

2 ساعات مضت, عمر طاهر said:

قصدت الانتقال الى التالي من السجلات وليس انهاء الرسالة

نعم هي رسائل متتالية تضغط موافق لتختفي وتفتح لك الرسالة الثانية فالثالثة وهكذا ..

الفكرة : رسائل ذاتية الاختفاء ، تختفي لتظهر الأخرى ..

رابط هذا التعليق
شارك

  • أفضل إجابة
2 ساعات مضت, Moosak said:

الفكرة : رسائل ذاتية الاختفاء ، تختفي لتظهر الأخرى ..

اتفضل يا سيدى :fff: احلام معاليك اوامر يا باش مهندس @Moosak :fff:

اى خدمه :yes:

يارب تنبسط بس :wink2:

 

 تعتمد الفكرة على وضع الروتين الاتى فى وحدة نمطية

Public opt As Integer

Public Function MesgBox(ByVal msgText As String, _
    Optional ByVal TimeInSeconds As Integer, _
    Optional ByVal intButtons = vbDefaultButton1, _
    Optional TitleText As String = "WScript") As Integer

On Error GoTo MesgBox_Err
Dim winShell As Object

Set winShell = CreateObject("WScript.Shell")

MesgBox = winShell.PopUp(msgText, TimeInSeconds, TitleText, intButtons)

MesgBox_Exit:
Exit Function

MesgBox_Err:
winShell.PopUp Err & " : " & Err.Description, 0, "MesgBox()", vbCritical
Resume MesgBox_Exit
End Function

 ويتم استدعاء الورتين من خلال 

opt = MesgBox(Me.n & vbCr & vbCr & " Please wait . . .", 1, vbInformation, "Info")

حيث ان بناء الكود كالاتى 

'Syntax: opt = MesgBox(msgTxt,intSeconds,Buttons+Icon+DefaultButton,"Title")

 

 

aa V2.accdb

  • Like 2
رابط هذا التعليق
شارك

  • ابو جودي changed the title to هل يمكن استعراض السجلات بمسج بوكس تلقائيا *_^

فى فوكيره تانى بره الصندوق 

اشرحها نظرى الان وممكن التطبيق لاحقا

ممكن نعمل نموذج يستعرض السجلات تباعا باستخدام حدث فى الوقت من السجل الاول الى الاخير و يغلق تلقائيا بعد السجل الأخير :wink2:

 

مرفق تطبيق الفكرة

aa V3.accdb

  • Thanks 1
رابط هذا التعليق
شارك

لله درك يا @ابو جودي رجل المهمات الصعبة 😉💪

حلوة جدا .. بس تتأخر حبتين .. 😏

يعني تبدأ تقفل بعد دقيقة تقريبا ..

2 ساعات مضت, ابو جودي said:

وضع الروتين الاتى فى وحدة نمطية

إلى المكتبة العامرة بالأكواد 😁✌️

  • Haha 1
رابط هذا التعليق
شارك

3 دقائق مضت, Moosak said:

حلوة جدا .. بس تتأخر حبتين .. 😏

ههههههه طماع البنى ادم ده تتأخر حبتين وهى تتأخر ثانية واحدة يا سيدى وتأتى بالنفع منها افضل من عدمها

ومع ذلك شوف الفكرة رقم 3 يا سيدى بدون الرسالة خالص اللى تتأخر حبتين دى لا تزعل روحك المهم تنبسط :yes:

ما نقدر على زعلك :eek2:

رابط هذا التعليق
شارك

2 ساعات مضت, ابو جودي said:

نموذج يستعرض السجلات تباعا

هذي دمها عسل زيك :biggrin:

8 دقائق مضت, ابو جودي said:

وهى تتأخر ثانية واحدة

لأ بجد ..  تتأخر معاي دقيقة كاملة :rol:

  • Haha 1
رابط هذا التعليق
شارك

3 ساعات مضت, ابو جودي said:

اتفضل يا سيدى

الللله... ايه الحلاوة دي يا بشمهندس ...عاشت الايادي

بس انا بدي افهم ..وسؤالي للاخ لصاحب المشاركة ...ماهي الفائدة من ذلك ؟ولاي شيء تستخدم

يعني المستخدم حيستفاد ايه من الحكاية دي ؟

يئبرني شو مهضوم الواد دة محمد عصام هههههههه

  • Haha 1
رابط هذا التعليق
شارك

3 ساعات مضت, ابو جودي said:

فى فوكيره تانى بره الصندوق 

اشرحها نظرى الان وممكن التطبيق لاحقا

ممكن نعمل نموذج يستعرض السجلات تباعا باستخدام حدث فى الوقت من السجل الاول الى الاخير و يغلق تلقائيا بعد السجل الأخير :wink2:

 

مرفق تطبيق الفكرة

aa V3.accdb 508 kB · 9 downloads

روعه :fff::fff::fff::fff::fff:

رابط هذا التعليق
شارك

28 دقائق مضت, Eng.Qassim said:

يئبرني شو مهضوم الواد دة محمد عصام هههههههه

يا سيدى الله يحفظك لاهلك واحبابك ويبارك بعمرك وعلمك وعملك وما يحرمنا جمعكم الطيب :fff:

وفعلا انا مهضوم ومن كتر الهضم ما صار فينى شئ صيرت جلد على عضم :yes::biggrin:

2 ساعات مضت, Moosak said:

إلى المكتبة العامرة بالأكواد 😁✌️

بدنا ضرايب بالمنتدى ع ها المكتبة :wink2: اوماااااااااااااااااااال :biggrin:

رابط هذا التعليق
شارك

16 دقائق مضت, ابو جودي said:

بدنا ضرايب بالمنتدى ع ها المكتبة

انا عارف انك بتمزح ...

بس انا من زمان افكر بهذا الموضوع ...رغم ان بعض الاساتذة المسؤولين عن الموقع يرفضون الفكرة

وانا اتساءل ... لماذا لايكون هناك صندوق في الموقع للمتبرعين ...اقلها من اجل تطوير الموقع

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • المتواجدين الان   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information