مساعدة حول ترقيم تلقائي ..!

بدأه الدبدوب الصغير في 5 ديسمبر 2008 · 3 رد · 496 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

#15 ديسمبر 2008 في 21:49 صاحب الموضوع

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

أعزائي ..أريد أن أضع حقل Text يتم فيه الترقيم بشكل تلقائي , بحيث لما أضغط على زر الاضافه يتم الترقيم فيه تلقائيا ابتداءا من رقم 1 . كيف يتم تصميم الكود الذي يقوم بهذه الطريقه , مع العلم أنه عباره عن حقل في VB6 مربوط في قاعدة بيانات أكسس .

مع خالص شكري لكم اعزائي

تم تعديل هذه المشاركة بواسطة الدبدوب الصغير في 5 ديسمبر 2008 في 21:51

#25 ديسمبر 2008 في 22:33

أخي الكريم

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

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#36 ديسمبر 2008 في 02:24

أشكركـ اخي على مروركــ

لكني أريد الكود الذي يجعل العدد يتم تلقائيا 1-2-3- .. ألخ

#46 ديسمبر 2008 في 03:08

أخي الكريم

لا شكر على واجب المهم أن تحل المشكلة

جرب الكود التالي

Private Sub Cmd_Calc_Click()
If Rs.RecordCount < 1 Then
   Text1.Text = "1"
Else
   Text1.Text = Val(Rs![id]) + 1
End If

End Sub

حيث Rs هي أسم الجدول و id هي أسم الحقل في الجدول و هو من النوع text

بكل الأحوال الملف المرفق يقوم بما تريده إن شاء الله

أرجو الأستفادة

test.rar

تم تعديل هذه المشاركة بواسطة rober في 6 ديسمبر 2008 في 03:10