السجل الحالي =السجل السابق+1

بما أنك تضيف 1 فى كل مرة

اذا أنت تحتاج أكبر رقم موجود + 1

Dim m As Long
m = DMax("outID", "out") + 1
'MsgBox m
Forms![Addout]![outID] = m

حيث outid هو الحقل الموجود فى جدول اسمه out

و القيمة M يتم تسجيلها فى الحقل outid فى الفورم Addout

الأخ فتى الوادى

قاعدة بها المطلوب بلاستعلام على الرابط التالي :

http://mypage.ayna.com/ashrafk/max.zip

أشرف خليل

الأخ مصرواي :

الكود الموضوع ... أين يوضع بالنموذج ؟؟

السلام عليكم

يمكن وضعه فى أمر Double click علي الكود حقل ال ID

يمكن وضعه فى زر

يمكن وضعه عند فتح فورم الإضافة من الفورم الرئيسي قبل أمر الفتح

و الغرض العام هو الحصول علي لأقصي رقم مسجل فى الجدول و إضافة 1 اليه ثم تسجيله فى الحقل المناسب فى الفورم

و السلام عليكم

الأخ مصراوي والأخ أشرف .. السلام عليكم ورحمة الله وبركاته ..

اشكركم على تجاوبكم ...

بالنسبة للمثال المرسل .. جميل جداً .. ويفي بالغرض .. ولكن أردت تطبيقه على جدول وحقول مسماه بالعربي فلم ينفع ..

أشكر الجميع مرة أخرى .. والسلام عليكم ورحمة الله وبركاته

السلام عليكم

أرسل الملف أو ضعه علي صفحة موضحا الحقل الذي تريد التطبيق عليه

و سأحاول تنفيذ نا تريد إن شاء الله

mtarafa@yahoo.com