التراجع عن الحفظ التلقائي في النماذج

[رعد داود]

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

هناك طرق كثيرة  للتحايل على الغاء الحفظ التلقائي في النماذج  وبالخصوص النماذج التي فيها نماذج فرعية
هنا ارفق  ملف لكم فيه  كودين  أحدهما  في النموذج الرئيسي والذي يحفظ البيانات في جدول bills
والأخر في النموذج  الفرعي والذي يحفظ البيانات في  جدول bills2 
Private Sub Form_Unload(Cancel As Integer)
Dim Q As Recordset
Set Q = CurrentDb.OpenRecordset("SELECT * from Bills;")
While Not Q.EOF
If Q!MZ = False Then
'Q.Delete
End If
Q.MoveNext
Wend
End Sub
حيث ان  mz هو حقل  اضافي في جدول bills من نوع  نعم / لا

والكود الثاني  في  الفورم الفرعي 

Private Sub Form_BeforeUpdate(Cancel As Integer)

 
   On Error GoTo BeforeUpdate_Error
 
   If Me.Dirty Then
    'if record has been changed the dirty property
    ' is set to true Display message to save the record
      If MsgBox("åá ÊÑÛÈ ÈÍÝÙ åÐÇ ÇáÓÌá æÇáãÊÇÈÚÉ? ÇÖÛØ äÚã áÅÊãÇã ÇáÓäÏ", _
      vbYesNo + vbQuestion, "ÍÝÙ ÇáÓÌá") = vbNo Then
         Me.Undo
      End If
   End If

BeforeUpdate_Exit:
   Exit Sub

BeforeUpdate_Error:
   MsgBox Err.Description
   Resume BeforeUpdate_Exit
End Sub

 

الغاء الحفظ التلقائي.rar

[يوسف السيد]

موضوع مهم فعلا وعقبة في بعض الاحيان

لكن في المثال المرفق يوجد خطأ عندما تقوم بالضغط علي حفظ وجديد يظهر خطأ (3021) لا يوجد سجل حالي

ثانيا : استفسار عن وظيفة mz ودوره حيث وجدت بعض البيانات امامها true والاخر false فما الفرق بينهم

[رعد داود]

السلام عليكم

لكن في المثال المرفق يوجد خطأ عندما تقوم بالضغط علي حفظ وجديد يظهر خطأ (3021) لا يوجد سجل حالي
أنا حذفت استعلام الرصيد ولهذا  لاتظهر  تكست  tr  ... التي  تخص الرصيد المتبقي
استفاد  من الكود  واستخدمه  لما  تريد
بالنسبة  للحقل  mz فهو من  نوع  نعم / لا  في حال  تضغط  على زر الحفظ  سوف  تفعل  وفي البحث  يظهر  السجل
أما  في حال  عدم  الضغط  على زر الحفظ لايفعل  الحقل  وعليه  لايظهر  في البحث