Göndermiş olduğum örnekte Liste1 kutusuna tıklandığında hangi kaydın üstüne tıklanırsa metin kutularına o verileri atmasını amaçladım fakat. her seferinde birinci kaydı atıyor.
nerede yanlış yaptığımı hala bulamadım.
siz değerli
www.accesstr.net ailesinden yardım bekliyorum.
Uğraşlarım sonucunda çözümü buldum, tekrar soruma ben cevap vereyim
tek sorun kendime +rep verememem
Private Sub Liste1_Click() olayının kodunu alttaki kod ile değiştirmek yeterli olacaktır.
Dim strSQL As String
strSQL = "SELECT * FROM kasa_harcama WHERE harcama_no ='" & Me.Liste1 & "'"
Set rs = CreateObject("ADODB.Recordset")
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open strSQL, CurrentProject.Connection
If Not rs.BOF Then
Me.harcama_no = rs("harcama_no")
Me.harcama_adi = rs("harcama_Adi")
End If
rs.Close
Set rs = Nothing
