السلام عليكم ورحمة الله وبركاته
عيدكم مبارك
الله يتقبل منا ومنكم الاعمال الصالحة
هذا الكود يعيد تصفير الرقم التلقائي لجدول اكسس بعد حذف معلوماته
Private Function valp()
Dim REC As Recordset
Dim DB As Database
Set DB = CurrentDb()
Set REC = DB.OpenRecordset("اسم الجدول")
REC.AddNew
REC!per_id = 0
REC.Update
End Function
ولكم تحياتي
من سار على الدرب وصل
الأخ مفرج
كود ممتاز والله يعطيك العافية .
يجب ملاحظة :
1- أن الكود يحتاج مرجع Micosoft DAO
2- تغيير الحقل المسمى per_id باسم الحقل التلقائي لديك .
3- بإمكانك جعل الترقيم يبدأ من أي رقم فقط غير الرقم بعد :
REC!per_id = 0
اجعل بدل الصفر أي رقم آخر .
4- إذا جعلت الكود في حدث عند نقر زر أمر فاحذف السطر الأول والأخير منه .
أكرر شكري لهذا الكود الرائع والذي يمكن الاستغناء بواسطته عن ضغط القاعدة بعد حذف البيانات من الجدول .
وللجميع التحية
السلام عليكم ورحمة الله وبركاته ..
جزاك الله خيراً على هذا الكود الممتاز ... لكن .. اين يوضع الكود ؟؟ لمزيد من الأيضاح ..
يمكن بواسطة هذا الكود إضافة الأرقام الناقصة من حقل الترقيم التلقائي بكل سهولة ، مثال :
1
2
4
5
بالكود ضع
REC![اسم حقل الترقيم التلقائي]= 3
الأخ فتى الوادي
الكود يوضع في حدث عند نقر زر أمر مثلا مع حذف السطر الأول والأخير منه أو عمل استدعاء للدالة .
سأحاول معرفة جميع الأرقام الناقص وإضافتها بالكود تلقائياً .
جزى الله الأخ مفرج كل خير على هذا الكود الرائع .
وللجميع تحياتي
أخي فتى الوادي
ممكن وضعة في اي مكان تستطيع استدعائه بعد حذف معلومات جدول
في الوحدات النمطية العامة او الخاصة بالنماذج
تحياتي
من سار على الدرب وصل
هذا كود لإضافة كافة الأرقام الناقصة مع مقياس للتقدم :
Dim عدد_السجلات, I
Dim القيمة_المعادة
Dim VarReturn As Variant, str As String
عدد_السجلات = DMax("[حقل الترقيم التلقائي]", "اسم الجدول")
str = "تقدم عملية الإضافة ....."
VarReturn = SysCmd(acSysCmdInitMeter, str, عدد_السجلات)
Dim REC As Recordset
Dim DB As Database
Set DB = CurrentDb()
Set REC = DB.OpenRecordset("اسم الجدول")
For I = 1 To عدد_السجلات
القيمة_المعادة = DLookup("[حقل الترقيم التلقائي]", "اسم الجدول", "[حقل الترقيم التلقائي]=" & I)
If IsNull(القيمة_المعادة) Then
REC.AddNew
REC![حقل الترقيم التلقائي] = I
REC.Update
End If
VarReturn = SysCmd(acSysCmdUpdateMeter, I)
Next I
VarReturn = SysCmd(acSysCmdRemoveMeter)
REC.Close
DB.Close
مع ملاحظة أن جميع الحقول يجب أن تكون خاصية مطلوب لها تساوي لا وإلا ستظهر رسالة خطأ عند إضافة أول سجل .
وللجميع التحية
من العايدين وكل عام وانتم بخير ( كنت اتمنى لو كان هناك موضوع مثبت خاص بالمعايده )
بالنسبة للمرجع Microsoft DAO
لو ارسل البرنامج لشخص هل يتطلب منه القيام باضافة المرجع .
( غريبه اول مره اقوم بالدخول بالاسم وادخل من اول مره بالعاده احاول اكثر من خمس مراة لكي اقوم بالدخول اكيد حاصله تغييرات بالمنتدى )
ملاحظة طيبة ...
وفي ظني -ولا أدري عن صحة ذلك لأنني لم أجرب- أنه لايحتاج إلا إذا اختلف الاصدار أو المسار .
حاول التجربة مع أحد الأخوة وأفدنا بالنتيجة .
بالنسبة للدخول التطويرات مستمرة وسترون في الأيام القادمة إن شاء الله -كلمة إن شاء الله استفدت من طريقة كتابتها من الأخ طلال فكتابتها إن شاء الله هكذا خطأ جزاه الله خيراً على هذه المعلومة المفيدة- وسترون تطويرات وأمور كثيرة تخدم هذا المنتدى وتزيد من فعاليته .
ولكم تحياتي
هذا الموضوع مغلق.
