رساله تفيد بعدم ضغط المستخدم على زر فى نموذج قبل الخروج

[محمد سعيد رشاد]

السلام عليكم ورحمه الله وبركاته

عندى برنامج به نموذج يحتوى على زر لترحيل الحسابات 

اريد عند الخروج من النموذج بدون بدون الضغط على هذا الزر ان ينبهنى بذالك برساله

ماهو الكود واين اضع هذا الكود وجزاكم الله خيرا

[يوسف أحمد]

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

 

اخي العزيز محمد

 

يمكن عمل ذلك بالطريقة التاليه :

 

1: تعين قيمة لخاصية النموذج ( Tag )  او بالعربي ( علامه )  و لتكن القيمه 1

2: في حدث عن النقر لزر الترحيل تضيف الكود التالي :

 

Me.Tag = 2

الكود سيعين قيمة للخاصيه Tag  للنموذج و هي 2

3 : في حدث عند النقر لزر امر الخروج للنموذج تضع الكود التالي : 

 

If Me.Tag = 2 Then
    DoCmd.Close
 Else
    MsgBox "لم يتم ضغط زر الترحيل"
    Exit Sub
 End If

 

الكود سيفحص قيمة الخاصية للنموذج فإن كانت 2 اي انه قد تم ضغط زر الترحيل فسيتم اغلاق النموذج و ان كانت القيمة غير ذلك فانه سيظهر رسالة للمستخدم بأنه لم يتم ضغط زر الترحيل و يتم الخروج من الاجراء  .... يمكنك استبدال الكلمة close    بالكلمة quit  ان اردت الخروج من البرنامج. 

 

ملاحظة : الخاصية Tag   للنموذج تجدها في صفحة الخصائص و بالتحديد في اخر التبويب ( غير ذلك )

بالتوفيق
 

 

 

تم تعديل يناير 18, 2016 بواسطه يوسف أحمد

[سعيد صواب]

حياكم الله اخواني

كود جميل استاذ يوسف 

ولكن ماذا لو قام المستخدم بالضغط على زر الترحيل ... ومن ثم لم ينفذ .. بمعنى ان المستخدم ضغط الغاء الأمر لم يضغط اوكي لتنفيذ الترحيل .

هنا يجب ان ننقص عدد العلامات عند الالغاء  me.tag= me.tag-1

 . طبعا هذا اذا كان هناك رسالة تحتوي  vbyes ,,vbno .. 

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

بالتوفيق للجميع .

[محمد سلامة]

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

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

نرحب بالمهندس يوسف احمد.. واخي سعيد صواب 

فعلا لماذا لا تضع كود الترحيل مع زر الاغلاق؟

[محمد سعيد رشاد]

جزاكما الله خيرا مهندس يوسف احمد واخى سعيد صواب لكن فى الحقيقه انا استخدم الكود الاتى لترحيل البيانات

If MsgBox("هل تريد نقل الاجمالى" & vbCrLf & "", vbYesNo, "تحديث") = vbYes Then
Dim Rs As DAO.Recordset
'تعريف الجدول
   Set Rs = CurrentDb.OpenRecordset("special")
   'البحث عن رقم السجل المعدل
   Rs.MoveFirst
   Do Until Rs.EOF
   'اذا وجد السجل
    If Rs!id = id Then
    'تحريره
         Rs.Edit
         'القيمه
         Rs!total = p3
          Rs!pyd = m1
          Rs!pky = m2
         'تحديث
         Rs.Update
          End If
   Rs.MoveNext
   Loop
   MsgBox "تم التحديث "
End If
Set Rs = Nothing

وهذا الكود لايظبط معى فى اى حدث غير عند النقر على زر امر جربت وضعته فى حدث بعد التحديث لمربع نص ولم تفلح وفى هذا المثال وضعته بعد تحديث مربه نص Pyd فى النموذج inv

New Microsoft Access قاعدة بيانات (4).rar

تم تعديل يناير 18, 2016 بواسطه محمد سعيد رشاد