اخي الفاضل لم افهم قصدك
ولكن الكود لازم يكون بهذا الشكل
If Forms![InvoiceHF]![InvoiceTF]!QAvilable = 0 Then
MsgBox "الصنف الذي تريد اضافتة منتهي من المستودع"
End If
Forms![InvoiceHF]![InvoiceTF]!QSold.SetFocus
اخي الكريم اعلم انه هنا ليس يوجد تميز او عنصريه
ولكن للامانه انه اذا احد فهم السوال او يعلم بالحل اتكاد يقيننا انه لن يبخل به ستجده يتابع مابدا به
وانت اذا اردت ان يحل مشكله لديك ما عليك بالاتي اولا البحث عن نفس المشكله اذا لم تجد شبه ما تبحث عنه
ارفاق مثال مصغر مع شرح المطلوب
واذا لم تجد احد رد عليك فعليك بكلمه للرفع
حتى تظر للاعضاء
هذا وبالله التوفيق
تحياتي
لا اخي انا كمان رسلت لك الكود الاول
انا كنت اقصد هذا
On Error Resume Next
DoCmd.SetWarnings False
Dim Q As Recordset 'هذا الكود يلغي الخفظ التلقائ عند التراجع و'
Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;")
While Not Q.EOF
If Q!Xsave = False Then
Q.Delete
End If
Q.MoveNext
Me.frm_JRD_Sub.Requery
Me.Refresh
Wend
DoCmd.SetWarnings True
Me.Refresh
طيب هذا مضغوط
http://www.mediafire.com/file/q7clvcexa60ajbd/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC_%D8%A7%D9%84%D8%AE%D9%8A%D8%A7%D8%B7_%D8%A7%D9%84%D8%AC%D8%AF%D9%8A%D8%AF.rar/file
اتفضل لانه ما عملت شير
جرب هذا
http://www.mediafire.com/file/i640viel9xcj074/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC_%D8%A7%D9%84%D8%AE%D9%8A%D8%A7%D8%B7_%D8%A7%D9%84%D8%AC%D8%AF%D9%8A%D8%AF.exe/file
شوف اخر كود ارسلته لك
شغال ميه في الميه
انا كلمك على هذا
لم تشتاف كلمه محذوف
On Error Resume Next
DoCmd.SetWarnings False
Dim Q As Recordset 'هذا الكود يلغي الخفظ التلقائ عند التراجع و'
Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;")
While Not Q.EOF
If Q!Xsave = False Then
Q.Delete
End If
Q.MoveNext
Me.frm_JRD_Sub.Requery
Wend
DoCmd.SetWarnings True
اتفضل هل هذا ينفع
On Error Resume Next
DoCmd.SetWarnings False
Dim Q As Recordset 'هذا الكود يلغي الخفظ التلقائ عند التراجع و'
Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;")
While Not Q.EOF
If Q!Xsave = False Then
Q.Delete
End If
Q.MoveNext
Me.frm_JRD_Sub.Requery
Wend
DoCmd.SetWarnings True
اتفضل عند الاغلاق اضفMe.Requery
On Error Resume Next
DoCmd.RunCommand acCmdSaveRecord
DoCmd.SetWarnings False
Dim Q As Recordset 'هذا الكود يلغي الخفظ التلقائ عند التراجع و'
Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;")
While Not Q.EOF
If Q!Xsave = False Then
Q.Delete
End If
Q.MoveNext
Wend
DoCmd.SetWarnings True
Me.Requery
اضف هذا