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