بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'الغاء الحفظ التلقائي'.
تم العثور علي 2 نتائج
-
السلام عليكم البعض يعاني من اخطاء في الاستعلامات والتقارير نتيجة للحفظ التلقائي لنماذج اكسس حيث لو دخلت اسم شخص وخرجت ولم تكمل البيانات فان الاكسس سيحتفظ بالسجل واحيانا يظهر معلومات مدوبلة على كل مرفق ملف العمل والكود يتم وضعه في النموذج قبل التحديث بالتوفيق الغاء الحفظ التلقائي.accdb الغاء الحفظ التلقائي.accdb
-
بسم الله الرحمن الرحيم هناك طرق كثيرة للتحايل على الغاء الحفظ التلقائي في النماذج وبالخصوص النماذج التي فيها نماذج فرعية هنا ارفق ملف لكم فيه كودين أحدهما في النموذج الرئيسي والذي يحفظ البيانات في جدول 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
