hocam paylaşım için teşekürler ama eklentiyi indiremiyoruz ?
Allah razı olsun diyerek başlayayım öncelikle sözüme
Emeklerinize sağlık
Sayın Hocam bu güzel örnek için teşekkürler.
mükemmmel olmuş ilham verdi tesekkür ederim
merhaba
programı indirip çalıştırdım , list alandan bir bilgi seçip çift tıkladığımda ekrandaki hatayı veriyor , DEBUG dediğimde liste1_clik olayına atıyor ve set rs ile başlayan satırı sarı gösteriyor
Private Sub Liste1_Click()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[SNUM] = " & Str(Nz(Me![Liste1], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
ilginize teşekkürler