Private Sub Combo1_Click()
If Combo1.ListIndex = 0 Then
Adodc1.Recordset.MoveFirst
Else
Adodc1.Recordset.Find "madi = '" & Combo1.Text & "'", 1, adSearchForward, 1
End If
End Sub
bu şekilde kullanırsanız combo daki liseteye tıklanınca kayda ait bilgiler gelir.
<<< 10-HAGİ-10 >>>
Son Düzenleme: 05/01/2014, 14:39, Düzenleyen: mcmaho.