ما الفرق بين هذه الاكواد

[أكسس وبس]

اخوانى

عملت كودين لاغلاق مختلفين للخروج من النموذج

1- DoCmd.Close يقوم بالاغلاق مباشرة

2- فى الكود عندم اضغط على زر خروج تظهر هذه الرسالة

On Error GoTo Err_Command10_Click

    If Me.Dirty Then Me.Dirty = False
    DoCmd.Close

Exit_Command10_Click:
    Exit Sub

Err_Command10_Click:
    MsgBox Err.Description
    Resume Exit_Command10_Click

 

ايهما افضل منعاً للمشاكل فى استخدام البرامج ويكون سلسل فى العمل

كذلك اريد كود السجل التالى والسابق

[kaser906]

5 ساعات مضت, أكسس وبس said:

ايهما افضل منعاً للمشاكل فى استخدام البرامج ويكون سلسل فى العمل

الافضل استخدام الكود الثاني

فقط قم بازالة هذا السطر

     If Me.Dirty Then Me.Dirty = False

بالنسبة لكود السجل التالي

ضع هذا الكود خلف زر أمر مع تغيير مايلزم

Private Sub Next_Click()
On Error GoTo Err_Next_Click

    DoCmd.GotoRecord , , acNext
Exit_Next_Click:
    Exit Sub

Err_Next_Click:
    MsgBox " لايوجد سجل تالي", 48, "تنبيه "
    Resume Exit_Next_Click

End Sub

وهذا للسجل السابق

Private Sub previous_Click()
On Error GoTo Err_previous_Click
DoCmd.GotoRecord , , acPrevious
Exit_previous_Click:
    Exit Sub
Err_previous_Click:
    MsgBox "هذا السجل الأول", 48, "تنبيه"
    Resume Exit_previous_Click
End Sub

::بالتوفيق::

[أكسس وبس]

اشكرك يا اخى الكريم وجزاك الله خيراً