الأخوة الاعزاء..
كيف يمكن أن أقول بعمل ترقيم تلقائي يبدأ بقيمة أقوم أنا بوضعها .. أي أنها لا تبدأ من الصفر ولكن تبدأ مثلا.. مثلا.. من 41254 ويبدأ الترقيم التلقائي من هذا المنطلق..
ولكم كل الفضل
كيف يمكن عمل ترقيم تلقائي .. باسلوب مختلف؟؟
مغلق
استخدم دالة Dmax للبحث عن أعلى قيمة في حقل الترقيم التلقائي في الجدول وأضف واحد في كل مرة يضاف سجل جديد طبعاً ليس المستخدم من يضيف الرقم بل على ألمستخدم أن يضع أول رقم في حقل الترقيم التلقائي ثم البرنامج يتولى الزيادة بمقدار واحد على العدد السابق في كل مرة يضاف سجل جديد0
فلو وضعت الرقم 41254 في أول سجل سوف تقوم الداله بالبحث عن ذلك الرقم عند إضافة سجل جديد وتزيد على الرقم 1 فيصبح 41255 وهكذا
أخي العزيز .. هل لك أن تقوم بكتابة كيفية كتابة الدالة وأين يتم وضعها .. أخوك لا يزال مبتدأ وأنتم أهل الكرم ..
مرحبا
اخي العزيز استخدم دالة dmax
مثلا اسم الحقل الذي تريد عمل له ترقيم تلقائي اسمه ss في الجدول
والحقل في النموذج اسمه aa
والجدول اسمه work1
اذن الداله كالتالي
aa=dmax("[ss]","work1")+1
السلام عليكم ورحمة الله وبركاته
أخي العزيز hassaan100
طريقة أخرى تجدها في المثال المرفق
Dim varx DoCmd.GoToRecord , , acLast varx = ID DoCmd.GoToRecord , , acNewRec ActionDesc.SetFocus ID = varx + 1
========
الشكر الجزيل للأخوة الأفاضل على المعلومات القيمة .. جزاكم الله خيراً
الأخوة الأفاضل لقد حاولت ولكن أين يتم كتابة المعادلة ؟؟:o
السلام عليكم ورحمة الله وبركاته
أخي العزيز
وصلتني رسالتك الخاصة و أشكرك على شعورك الطيب .
أخي هل دققت في الملف المرفق ؟
اذا لم تستطع معرفة المكان الذي كتب الكود فيه فأرجو منك زيارة قسم الدروس في أعلى المنتدى ففيها الشرح الكامل لمعرفة أين يكتب الكود .
========
ياخى الموضوع بسيط
قم بوضع القيمه الافتراضيه الرقم اللذى تريده انيبدا العد
فى الجدول
هذا الموضوع مغلق.