طيب هذا مضغوط
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
اضف هذا
جزاك الله خير
سبقتني بالتنزيل وهذا يحسب لك
لكن انا تاخرت لاني اود عند معرفه اسماء الطابعات يضيفها تلقائي
ممكن نتعاون جميعا
انا الان نجعت انه عند اختيار طابعه يضيفها الى الجدول
وانا اريد يضفها كلها للجدول بارقام متسلسله