اضافة لما تفضل به استاذي محمد ابو عبد الله
اذا كان لديك جدول فيه مفتاح اساسي وترقيم تلقاتي (Table1) ومرتبط بجدول اخر (Table2)
وتريد ان تحذف جميع البيانات من الجدولين وتعيد الترقيم من الصفر
استخدم الكود التالي في حدث عند النقر على زر الحذف
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM Table2"
DoCmd.RunSQL "DELETE * FROM Tabl1"
DoCmd.RunSQL "INSERT INTO Tabl1 (ID) VALUES (0)"
DoCmd.RunSQL "DELETE * FROM Tabl1"
DoCmd.SetWarnings True
Me.Requery
Refresh
السلام عليكم
بالحقيقة لا يخطر في بالي غير عمل استعلام مكون من حقل السعر والتاريخ وتكون مصدرها فكشن يقوم بتلك الحسابات
لان المخطط ياخذ بياناته اما من جدول او استعلام
استاذي العزيز @ruan برنامجك جميل لكن يحتاج لكثير من التنسيقات فمثلا تجعل النموذج الرئيسي (الزبائن2) هو لبيع المواد وليس لشراء المواد . ففاتورة الشراء لها شأن اخر فانت تبيع بالاجل.. وتجعل لتلك الفاتورة رقم تلقائي وتجعل اسم الزبون كومبوبوكس لان نفس الزبون ربما سيشتري منك لاحقا..
وهنا ياتي بالدرجة الثانيةنموذج ديون الزبون (نموذج 1)وهذا النموذج خاص بالتسديد والتاريخ واظهار المبالغ المتبقية على الزبون ... اما (جميع الديون المترتبة على الزبائن ) فتجعل نموذج مستمر خاص بها يستخرج لك المتبقي على كل زبون .. استاذي العزيز التراتبية جدا مهمة في هكذا برامج حتى لاتتعب المستخدم
والله من وراء القصد..تحياتي
في حالة ادخال الكمية يدويا فاجعل التركيز على الكمية بعد اختيار رقم الصنف وضع الكود التالي بعد تحديث الكمية للانتقال لسطر جديد
DoCmd.GoToRecord , , acNewRec
Me!IDS.SetFocus
سؤال جدا مهم وطالما بحثت عنه ... الموضوع اشبه ببرامج الدليفري .. حيث يحدد الزبون موقعه فيتوجه اليه الطلب مباشرة الى موقعه
اعتقد ان الموضوع مرتبط بين الاكسس والواتس اب كونه يحدد الموقع