![Çözüldü](images/icons/cozuldu.png)
Hocalarım eklediğim programda Gelir ve Gider Formlarındaki listelerde veri satırına çift tıklayarak yukarıdaki metin kutularına ve açılan kutuya almak istiyorum. Bu konuda yardımlarınıza ihtiyacım var. Yardımlarınız için şimdiden teşekkürler.
"[SNUM] = '" & Str(Nz(Me![Liste1], 0)) & "'"
Private Sub Liste_DblClick(Cancel As Integer)
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[S_No]=" & Str(Nz(Me![Liste], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Private Sub Listee_DblClick(Cancel As Integer)
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[S_No]=" & Str(Nz(Me![Listee], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub