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

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

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

كود :

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

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

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

abde6726

Taha Okla

abde6726