الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

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

بدأه المتصفح نت في 13 فبراير 2009 · 4 رد · 744 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

لدي هذا البرنامج مثال

اريد ان يكون الرقم متسلسلاً يعني لو ادخل رقم واتخطى الرقم الذي بعده يطلع لي رساله بأن اتأكد من الرقم المدخل

يجب ان يكون الرقم متسلسلا الرقم والذي يليه مباشره .. اااااااااااااااااااااااا

شكرااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااا ااااااااااااااااااا

123_up.rar

#2

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

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

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

تم تعديل هذه المشاركة بواسطة ekseer في 14 فبراير 2009 في 00:28

#3

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

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

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

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

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

=Max([1])

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

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

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

=[Max]+1

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

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

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

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

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

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

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

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

123_up1.rar

تم تعديل هذه المشاركة بواسطة Mohamed Nada في 14 فبراير 2009 في 00:46

... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...

#4

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

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

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

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

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

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

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

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

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

946420366.gif

#5

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

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

بوركتى

محمد ندا

... بقمة السعادة .. أعود بإذن الله لصحبتكم الرائعة قريباً ...

مواضيع مشابهة