Arkadaşlar Verileri Çekiyorum ßu Seferde Tekrar Tekrar Veri Çekiyor Allak ßullak Oldu Kafa
Private Sub Combo1_Change()
Dim sayi, i As Integer
Dim cevap
If Adodc1.Recordset.RecordCount = 0 Then
cevap = MsgBox("Listelenecek Kayıt Yok", 48)
Combo1.Enabled = False
Else
Adodc1.Recordset.MoveLast
sayi = Adodc1.Recordset.RecordCount
Adodc1.Recordset.MoveFirst
For i = 1 To sayi
Combo1.AddItem Adodc1.Recordset.Fields("uye_No")
Adodc1.Recordset.MoveNext
Next i
Adodc1.Recordset.MoveFirst
End If
End Sub