[abde6726]

لي طلب من الاساتذة الكرام 
حسب المثال المرفق ..... عند كتابة القسم في الكمبوبوكس بكتب المستوى تلقائيا في التكست
مثلا عند كتابة 1م1 يكتب في التكست   س1...   و 2م1 يكتب س2 وهكذا

[Taha Okla]

استخدم هذا الكود :

كود :

Private Sub Combo1_Click()
   ShowData
End Sub

Sub ShowData()
   Dim Rs2 As New ADODB.Recordset
   Dim strSQL As String
   
   strSQL = "Select * from tabel2 Where  classe = '" & Combo1.Text & "' Order By Num"
   
   Rs2.Open strSQL, db, adOpenKeyset, adLockPessimistic
   
   If Rs2.RecordCount > 0 Then
       Rs2.MoveFirst
       tniveau.Text = Rs2!niveau
   End If
   
   Rs2.Close
   Set Rs2 = Nothing
End Sub

[abde6726]

السّلام عليكم و رحمة الله و بركاته
ألف شكر ..بارك الله فيك
جزاك الله خيرًا و زادها بميزان حسناتك
الشّكر موصول لك اخي  Taha Okla