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

[عمر طاهر]

السلام عليكم ورحمة الله

اخواني الكرام

هل يمكن استعراض السجلات بالتتالي عند الخروج ؟

بمسج بوكس.؟

مثل مربع حوار النسخ بتاع الكمبيوتر ..؟

aa.accdb

[Moosak]

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

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

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

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

تم تعديل يونيو 27, 2022 بواسطه Moosak

[عمر طاهر]

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

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

[Moosak]

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

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

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

 

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

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

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

[عمر طاهر]

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

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

 

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

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

[عمر طاهر]

...؟

[Moosak]

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

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

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

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

[ابو جودي]

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

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

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

اى خدمه 

يارب تنبسط بس 

 

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

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

[ابو جودي]

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

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

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

 

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

aa V3.accdb

[Moosak]

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

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

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

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

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

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

[ابو جودي]

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

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

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

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

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

[Moosak]

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

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

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

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

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

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

[ابو جودي]

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

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

والله انت اللى عسل يا عسل انت 

[Eng.Qassim]

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

اتفضل يا سيدى

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

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

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

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

[عمر ضاحى]

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

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

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

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

 

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

aa V3.accdb 508 kB · 9 downloads

روعه 

[ابو جودي]

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

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

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

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

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

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

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

[Eng.Qassim]

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

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

🤣🤣🤣

[Eng.Qassim]

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

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

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

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

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

[عمر طاهر]

ماشاء الله تبارك الله

الله يجزيكم الخير