كود للاضافة التلقائيه عند عمل الاضافه

مغلق

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

مشاركة: واتساب X فيسبوك تيليجرام

#11 سبتمبر 2005 في 00:27 صاحب الموضوع

السلام عليكم جميعا

انا سعيد جدا بانضمامي لهذه المنتدى

ولدي طلب بسيط في موضوع الفيجول مع الاكسس

اريد كود اضافة

بحيث عند الضغط على زر الاضافة يمسح البيانات وينتقل تلقائيا الى بعد اخر رقم موجود

فمثلا عندنا الحقل رقم العميل واسم العميل ووووو...الخ

فعند الضغط على زر الاضافة يمسح كل البيانات ويظهر

رقم العميل= اكبر رقم عميل موجود + واحد

انا جربت الكود التالي لكن كان يزود رقم على اكبر رقم موجود ولكن يحذف اخر سجل موجود

اي كانه عمل تعديل

والكود اللي كتبته كان

myrecord.movelast
for i = 1 to 5 
text1(i) = ""
next i
text1(رقم العميل) = myrecord.datafield("empno") + 1

#21 سبتمبر 2005 في 20:34

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

ياشباب الفيجول هل سؤالي غير واضح ولا هو السؤال لا يمكن تطبيقه بالفيجول

#32 سبتمبر 2005 في 13:30

اخي العزيز استخدم هذا الكود

Dim MYCount

MYCount = rs1.RecordCount + 1

Text2.Text = MYCount

أخوك الماطري

#42 سبتمبر 2005 في 19:00

al_raasi كتب:
فعند الضغط على زر الاضافة يمسح كل البيانات ويظهر
رقم العميل= اكبر رقم عميل موجود + واحد
←

اذا كنت تريد ان تعرف عدد السجلات بناءاً علي رقم العميل , فالحل تقريباً ما كتبة لك الأخ باستخدام

الـ RecordCount و التي تعيد عدد السجلات ... و تضف اليها "1 , واحد " .

#53 سبتمبر 2005 في 02:31

شكرا للاخوة وجاري التجربة

#63 سبتمبر 2005 في 08:38

يمكنك الحصول على أعلى رقم عميل باتخدام الجملة التالية

rs.open "select max(cust_no) ,db,.....

حيث سيتم تخزين آخر رقم للعملاء في المتغير rs وبعدها تزيد عليه واحد بالكود التالي

text1.text = rs.fileds(0) +1

تحياتي لك

اخوك ناصر

#78 سبتمبر 2005 في 07:27

شكرا لك يااخ ناصر هذا ماكنت ابحث عنه

هذا الموضوع مغلق.