منع الخروج من النموذج

الحجازي طارق كتب:

بسم الله الرحمن الرحيم

ما هو الكود اذا ترك مربع نص خالى او به صفر يتم منع الانتقال الى سجل جديد او الخروج من البرنامج حيث اننى جربت كود فى in current وامر cancel = true ولم تفلح الطريقة ما هو الكود اللازم لذلك وشكرا

اخي الفاضل : الحجازي طارق

الكود بارك الله بك هو وضعك لقاعدة بيانات بها حقول وبيانات ليتم التطبيق عليها

بالتوفيق

zahrah كتب:

اخي الفاضل : الحجازي طارق

الكود بارك الله بك هو وضعك لقاعدة بيانات بها حقول وبيانات ليتم التطبيق عليها

بالتوفيق

الأخ الفاضل جرب هذا الكود علي مربع نص

Private Sub Form_Unload(Cancel As Integer)
If IsNull(Me.Text0) Then
    Cancel = True
ElseIf Me.Text0 = 0 Then
    Cancel = True

Else
'
End If


End Sub

الحجازي طارق كتب:

بسم الله الرحمن الرحيم

ما هو الكود اذا ترك مربع نص خالى او به صفر يتم منع الانتقال الى سجل جديد او الخروج من البرنامج حيث اننى جربت كود فى in current وامر cancel = true ولم تفلح الطريقة ما هو الكود اللازم لذلك وشكرا

الكود السابق هو منع الخروج من البرنامج

ايضا جرب هذا الكود لمنع اضافة سجل جديد باستخدام زر أمر

هذا الكود يستخدم لعدم أضافة سجل جديد في حالة وجود قيمة خالية في مربع نص

Private Sub cmd_goto_new_reocrd_Click()
If IsNull(Me.Text0) Then
MsgBox "Enter Value in Text0 to go to new record", vbCritical + vbOKOnly
Else
DoCmd.GoToRecord , , acNewRec
End If
End Sub