ادخال ارقال متسلسله دون تخي اي رقم

بســم الله الـرحمــن الرحيــم

استخدم هذا الكود

Dim num1 As Integer
num1 = DMax("[F1]", "tbl")
If Me.n1 <> num1 + 1 Then
MsgBox "الرقم غير متسلسل"
Me.n1 = ""
Me.n1.SetFocus
End If

لكن لماذا لم تستخدم الترقيم التلقائي فالكود السابق سيسبب لك مشكلة

عند تحديث حقل سابق ؟ مثل لديك ارقام من 1 - الى 1000 وتريد تحديث

الرقم 4 الى 14 مثلا فسوف لن يقيل منك الا الرقم 1001 الست معي في ذلك

هذا مثالك المعدل كما طلبت - بالتوفيق

ek123_up.rar

السلام عليكــم ورحمـة الله وبركاتــه

أخى الكريم المتصفح نت

إليك ملف بعد تعديل بسيط

1. قمت بإضافة مربع نص أسميته Max يمكنك بعد ذلك إخفائه من النموذج

2. قمت بوضع الكود

=Max([1])

حيث 1 هى إسم الحقل الخاص بك والموجود به الرقم

والوظيفة التى يقوم بها هى استخراج أعلى رقم لديك بالحقل

3. فى خصائص الحقل 1 قمت بوضع الجملة التالية ... فى القيمة الافتراضية

=[Max]+1

وبذلك يقوم الأكسس بوضع أعلى قيمة لديك ويضف عليها 1 عند إضافة سجل جديد.

وتستطيع فى أى وقت التعديل على سجلاتك دون مشاكل

4. أضفت زر أمر بسيط لإضافة السجلات الجديدة (وهو ليس مهماً ولكن يسهل العملية)

جرب الآن إضافة سجل جديد وسترى ما حدث من تغيير

أضيف إليك فكرة بسيطة

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

وكما يقول أخى الفاضل إيهاب عثمان

طبتم واهتديتم

123_up1.rar

بســم الله الـرحمــن الرحيــم

السلام عليكــم ورحمـة الله وبركاتــi

اخواني الاعزاء الف شكر وامتنان لكم اخي عثمان واخي محمد

وممكن مداخلة لو سمحتم بالنسبة الى الترقيم واضافة رقم واحد الى السجل الذي يليه

ممكن استخدم هذه الطريقة في برنامج الاكسل

حيث عندي فاتورة واريد كلما اطبع الفاتورة يزداد رقم الفاتورة بمقدار 1 حينما اطبعها مرة ثانية وبعد ملئ الفاتورة بالبيانات

ولم اتوصل اليها ...انا اعرف بانها ليست المكان المناسب للسؤال ولكن لا يوجد مكان هنا لبرنامج الاكسل

يبارك الله لكم فيما عندكم ويزيدكم من فضله

اختكم محبي الله

أختنا الكريمة محبى الله

بارك الله فيك .. تكرمى بالتوصيح أكثر وربما نستطيع المساعدة .. رغم أنى لست حريف إكسل قوى لكن سنتدبر الأمر إن شاء الله.

بوركتى

محمد ندا