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

(03/09/2012, 01:28)ozguryasin yazdı: Uğraşlarım sonucunda çözümü buldum, tekrar soruma ben cevap vereyim
tek sorun kendime +rep verememem

Sen veremezsen biz veririz.

Sayglar...

(03/09/2012, 05:40)benremix yazdı: Sen veremezsen biz veririz.

Sayglar...

Teşekkürler Hocam