انا لدي في مشروعي text1.text اريد عندما اضع مثلا رقم معين في text1.text مثل 1111 .. واضغط على حفظ .. يحفظه بالداتا بيس ... ويعطيني الرقم الذي بعدوه اتوماتيكيا يعني ليصبح 1112 و 1113 وهكذا حتى لالا مالا نهاية ... يعني انا اضع اي رقم اختاره في text1.text وعندما اضع حفظ او نكست يعطيني الرقم الذي بعده اتوماتيكيا من عنده هو مثل تسلسل رقمي ..ارجوكم والله يخليكم ساعدوني بهذا وشكرا
دارين
بإستخدام ربط قاعدة البيانات ب ADO
ضعي الكود التالي عند بدأ سجل جديد
If Adodc1.Recordset.RecordCount = 0 Then Text1 = 1 Else Adodc1.Recordset.MoveLast Text1 = Adodc1.Recordset.Fields(0) + 1 End If
مع العلم أن الحقل رقم 0 في قاعدة البيانات هو حقل الرقم
أتمنى أن يكون هذا هو المطلوب
تم تعديل هذه المشاركة بواسطة seaprince46 في 25 مايو 2005 في 11:04
منتديات كوكب الكمبيوتر
لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية
السلام عليكم
حسب عدد سجلات الجدول عموماً
Dim MYCount rs.movelast MYCount = rs.recordcount + 1 Text1.text = MYCount
أو إذا كان حسب حقل معين في الجدول بإفتراض أن اسمه FCount
Dim MYCount rs.movelast MYCount = rs!FCount + 1 Text1.text = MYCount
ليس هذا ما اقصده ... اريد فقط عندما اضع رقم معين في text1.text وغير مربوط بقاعدة البيانات (داتا بيس) ..فقط تكست عندما ادخل عليه رقم معين ..مؤلف مثر من 8 دجيت ..11113333 ان يعطيني عندما ادخل هذا الرقم واضع نكست يعطيني الرقم الذي بعده بالتسلسل ..يعني متل عداد يعني بصير 11113334و 11113335 وهكذا ... وشكرا لكم على ردكم ومساعدتكم
private sub cmdnext_click() text1.text=text1.text+1 end sub
تم تعديل هذه المشاركة بواسطة mostafazidani في 25 مايو 2005 في 13:25
*************************************************
**************************************************
مصطفى زيداني
شكرا لك يا اخ مصطفى والله ما بعرف كيف بدي اشكرك
.... انا جد كتير فرحت وقت عطيتني الحل ..وشكرا كتير لك وللجميع ..
دارين
هل تريدن يحفظ ارقم حتى لو سكرتي البرنامج وفتحتيه تلقينه موجود اخر رقم محطوط
وتريدين يزود واحد تلو الاخر
شكرا جزيلا على ردودكم السريعة هذه واتمنى من الله ومن كامل قلبي التوفيق والنجاح للجميع ...
انا جربت المثال ورائع فادني جدا ..ولكن يوجد عندي شي باقي اني استعمل ..
MICROSOFT MASKED EDIT CONTROL 6.0
وانا وضعت 6 خانات كذلك ..
JPG . ###### لكي استطيع كتابة رقم وتتخزن الصور باسم هذا الرقم ونوع الصورة متل ما شايفين JPG ولكن اريد ان تصبح الاقام عندما ادخل مثلا رقم 600000ياتي البعدوه اتوماتيكي ؟؟ يعني 600001 وهكذا ان جربت الكود الذي عطيتموني ايه ولكن عمل بس بدوه .JPG . اان ا رايد ان يعمل مع JPG. وشكرا لكم ..
دارين
private sub command1_click() b = Right(maskedit1.Text, Len(Mid(maskedit1.Text,7, Len(maskedit1.Text)))) Dim a As Integer a = CStr(Trim(Left(maskedit1.text,6))) a = a + 1 maskedit1.text= a & b maskedit1.setfocus
تم تعديل هذه المشاركة بواسطة mostafazidani في 30 مايو 2005 في 10:04
*************************************************
**************************************************
مصطفى زيداني
مرحبا ...مصطفى شكرا كتير على ردك الحلو ولاسريع ولكن انا جربت الكود ولم يعمل ...انا اريد ان اضع jpg.####### ولكن جربته ولم يعمل ..هل تدلني على السبب وشكرا لك جزيلا ..
دارين 8
اخت دارين ارجو توضيح ماهو الخطا وأين
تم تعديل هذه المشاركة بواسطة mostafazidani في 31 مايو 2005 في 08:45
*************************************************
**************************************************
مصطفى زيداني
انا عرفت الغلط تفضلي اخت دارين
b = Right(maskedit1.Text, Len(Mid(maskedit1.Text, 7, Len(maskedit1.Text)))) Dim a As Variant a = Left(maskedit1.Text, 6) a = a + 1 maskedit1.Text = a & b
*************************************************
**************************************************
مصطفى زيداني
يسلمو ...يسلمو يسلمو يسلمو يسلمو يسلمو والله يوفقك ويخليك ... وينجحك بكل موادك ...جد مابعرف كيف بدي اتشكرك .. شكرا كتير كتير كتير ..يا مصطفى وشكرا للجميع ...
دارين
لاشكر على واجب يادارين
تم تعديل هذه المشاركة بواسطة mostafazidani في 31 مايو 2005 في 21:25
*************************************************
**************************************************
مصطفى زيداني
هذا الموضوع مغلق.