[awidan76]

    اخواني ماهي المشكله في الكود  ساعدونا 
المظلوب: 
اريد من الكود سرد رقم القسم في التكست رقم بعد رقم في كل دوره 
يعني في الدوره الاولي التكس يساوي 1 وتعلمني رسالة لتاكد لي مافي داخل التكست
في الدوره التانبة  التكس يساوي 2 وتعلمني رسالة لتاكد لي مافي داخل التكست ....... الخ 

PHP كود :

Private Sub Command1_Click()

Set rs = New ADODB.Recordset
If rs.State = adStateOpen Then rs.Close

rs.Open "SELECT partid FROM partsTable ", Db, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
If Not rs.BOF Then rs.MoveFirst
Text1.Text = rs![partid]
Do While rs.EOF
rs.MoveNext
Loop
End Sub
Private Sub Text1_Change()
MsgBox Text1.Text
End Sub 


لا حظ وضعت الرساله في حدث التشينج  للتكست 

هذا وجزاكم الله خيرا