بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــه ،،
في الملف المرفق وفي النموذج Toprint تم وضع الزر too ,والذي عند ضغطه يقوم باجراء الكود الذي بدوره يقوم بطرح قيمة واحد من النسخ المراد طبعها ثم اظهار عدد النسخ المتبقية (طبقا لأجراء الاستعلام ToPrintQ ) .
ماذكرته ,عمل في البرنامج ولم يكن أي إشكال ,ولكن بعد ترحيل الجدول tbA الى SQL Server , وعند الضغط على الزر too والذي ينفذ الكود التالي
Private Sub too_Click()
Set qry = CurrentDb.OpenRecordset("select * from tba;")
While Not qry.EOF
qry.Edit
qry.Printed = qry.Printed + 1
qry.Update
qry.MoveNext
Wend
Me.Requery
MsgBox " تم زيادة النسخة المطبوعة نسخة ", vbInformation, " طباعة نسخة"
End Subفان رسالة خطأ تظهر بالنص التالي :
(you must use the dbSeeChanges option with OpenRecordset when accessing a SQL Server tabel that has an IDENTITY column )
حيث يظهر موقع الخطأ بالكود بالمقطع التالي
(Set qry = CurrentDb.OpenRecordset("select * from tba
فهل من مساعدة من ذوي الخبرة لتعديل الكود اوأرشادنا الى مايجب فعله لكي نصل الى الغرض المطلوب والذي كان يتم تحقيقه قبل الربط بالـ SQL
مشكورين .