Dim x As Integer
x = Nz(DLookup("printCount", "table1", "id=" & Me.id)) + 1
DoCmd.RunSQL "UPDATE table1 SET table1.printCount=" & x
التجديث يكون آليا
الكود اعلاه ضعه في حدث الطباعة ، تحت سطر الطباعة
على اعتبار :
printCount الحقل في الجول
id معرف
table1 الجدول
غير حسب الاسماء عندك
سيقوم هذا الكود بزيادة 1 الى الحقل المحدد عند كل امر طباعة