عضوة قديمة عادت وتحتاج مساعدتكم في دالة للحفظ

عندي برنامج خاص بطباعة التذاكر

وكل تذكرة يتم طباعتها لها رقم ( حقل ترقيم تلقائي )

الأمور كلها ماشية تمام

لكن المشكلة حبيت اني اعمل أزرار أمر ، كل زر مكتوب عليه رقم  مثل : ( 1 )  &  ( 2 ) & ( 3 ) وهكذا

وكل زر يقوم بطباعة نسخ بعدد الرقم المكتوب على الزر

سويت كل شي لكن تطلع لي رسالة بهدلتني وهي :في الصورة التالية :

وهذا هو الكود :

اقتباس

 

For i = 1 To 3
Me.Tecket_no.Visible = True
Me.Price.Visible = True
DoCmd.GoToRecord , , acNewRec
Me.user = Me.user5
Me.Price = 10
Me.used = 1
DoCmd.PrintOut acSelection
Me.des.Visible = False

Next

Tecket_no هو حقل ( رقم التذكرة ) عبارة عن ترقيم تلقائي

Price  هو حقل قيمة التذكرة

user  هو اسم المستخدم ( طبعا يتم كتابته على كل تذكرة )

ياليت القى حل ومساعدة لهذه المشكلة لانها ارهقتني ولي أكثر من 24 يوم أحاول في حل لها

وشكرا