منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : سوال اخوانى الاحباب ارجو المساعدة فى هذا المثال
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
اساتذتى المحنرمين        تحية طيبة  


برجاء التعديل على هذا المثال

حيث انى اريد ان املاء كل البينات 
وعندما اقوم بالحفظ كل سطر من الموجود فى الفورم    ياخذ رقم جديد فى قاعدة البينات   ويحفط فى صف جديد


بمعنى ان البيانات فى الفورم تحفظ فى قاعدة البينات تحت بعض فى 12 صف



ارجو المساعدة جزاكمالله خيرا
استاذتي الكرام ارجو المساعده جزاكم الله خيرا
أهلا بك أخي الكريم , تم تعديل المثال , بالتوفيق .
جزاك الله خيرا اخى الغالى استاذى الغالى

اخى الغالى كنت اريد ان يتم ترحيل الصف الى امام الشيك ببوينت =1

وليس كل الصفوف اخى الغالى


بمعنى لو انا عامل علامة صح الصف يترحل لو مش علامة صح الصف لا يترحل


جزاك الله خيرا
أهلا بك أخي الكريم , إستبدل كود زر الحفظ بهذا الكود :

PHP كود :
Dim I As Integer
Dim MaxRecordNumber 
As Long

Adodc1
.Refresh

MaxRecordNumber 
Adodc1.Recordset.RecordCount

For 0 To Check.UBound
       
    
If Check(I).Value 1 Then
    
       MaxRecordNumber 
MaxRecordNumber 1
       
       Adodc1
.Recordset.AddNew
       Adodc1
.Recordset!cod Text1.Text
       Adodc1
.Recordset!name1 Text2.Text
       Adodc1
.Recordset!phone Text3.Text
       Adodc1
.Recordset!msal MaxRecordNumber
       Adodc1
.Recordset!Month Combo(I).Text
       Adodc1
.Recordset!ddate Text4(I).Text
       Adodc1
.Recordset!mname Text5(I).Text
       Adodc1
.Recordset!molahzat Text6(I).Text
       Adodc1
.Recordset!Done Check(I).Value
       Adodc1
.Recordset.Update
    
    End 
If
    
Next

Adodc1
.Refresh

MsgBox 
("تم الحفظ"