ارجوكم الرد لو سمحتم عرض للمره الثالثه

مغلق

بدأه migo702000 في 20 ديسمبر 2005 · 1 رد · 489 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#120 ديسمبر 2005 في 14:15 صاحب الموضوع

السلام عليكم

1- كيف يمكن انشاء رقم تكرارى بالتصور التالى

عندى قاعدة بيانات وبها رقم خاص بارقام جلوس الطلبه وتم انشاء form لإنشاء ارقام الجلوس والمطلوب عند ادخال بداية ارقام الجلوس فى ال text الخاص بارقام الجلوس ان يقوم البرنامج بانشاء بقية الارقام التاليه تكراريا بحيث يزيد بمقدار (1) فى كل سجل وذلك حتى نهاية السجلات

*** يعنى انا عندى بيانات الطلبه موجوده فعلا وناقصه رقم الجلوس والمطلوب انشاؤه دفعه واحده 000

** ملحوظه ليس الملطوب ان يكون الرقم AutoNumber لانه لو حدث الغاء او تعديل او تم اعادة انشاء الملف فان الرقم سوف يبدأ العد اعتبارا من الرقم اللى عليه الدور وليس من الرقم الذى احدده للبرنامج ****

*****ملحوظه****مع العلم اننى استخدم الاداه data control

2- اريد كود يوضع فى text بحيث يعطى رساله تحذيريه بان القيمه التى تم تسجيلها فى الtext مسجله من قبل اى ان يكون الرقم unique

واذا امكن ان يكون الرد بمثال عملى

3 - قمت بإنشاء استعلامين بواسطة SQL الأول به جملة Insert Into والثانى جملة Delete والمطلوب 00 كيف يمكن تشغيل هذه الاستعلامات بوضعها فى coomand button

مع الشكر

***** ارجوكم ان يكون الرد بمثال عملى علشان سرعة الاستيعاب انا ما زلت فى مرحلة بداية التعليم فى لغة الفيجوال بيسك ****

#220 ديسمبر 2005 في 18:27

هذا الكود يقوم بعملية البحث عن اخر رقم مسجل ويقوم باضافة +1

يمكنك تغيير تنسيق الرقم الى الذي تريد انا اخترت تنسيق #-####

حمل المرفق وغير التنسيق الى ما تريد الكود المسؤل عن عملية البحث عن اخر رقم هو

Dim MyNo As Long

 If Rs.State = 1 Then Rs.Close
 'هنا البحث عن اخر رقم في الفئة
 Rs.Open "Select Max (Book_No) as Book_No from Books Where Sec_No = " & Combo15.ListIndex & ";", Cn, adOpenStatic, adLockOptimistic
 'هنا التحقق من أن البرنامج وجد اخر رقم فان وجده يزيد واحد
 'وإلا فيقوم بعملية التركيب من واحد
 If Rs.RecordCount < 1 Or IsNull(Rs.Fields(0)) = True Then
  MyNo = 1
 Else
  MyNo = (Rs.Fields(0) + 1)
 End If
 'وضع النتيجة في التكست
     Text16.Text = Combo15.ListIndex & "-" & (Format(MyNo, "0000"))

الكود من انتاج العماني رحم الله والديه

راجع

/index.ph...opic=57536&st=0

أو ابحث عن طريق كلمة : "ترقيم"

Mohana.zip

من مواضيعي :

كود ضغط القاعدة بـwinzip

إجعل برنامجك يعمل على كل جهاز في العالم

النسخة الاحتياطية الاكثر تطورا على مستوى المنتديات

هذا الكود يحتاج لكثير من الذكاء وقليل من العمل

إليكم بعض المعلومات عن المكتبة الشاملة التي يجهلها الكثير وهي مصممة بالvb6

كيف أستطيع نقل اسم المدينة في اللستة الثانية الى اسم بلد آخر في اللسة الأولي عن طريق الكامبو بوكس وزر السهم