hocam paylaşım için teşekürler ama eklentiyi indiremiyoruz ?
Form Üzerinden Veri Arama
Allah razı olsun diyerek başlayayım öncelikle sözüme
Emeklerinize sağlık
Emeklerinize sağlık
Sayın Hocam bu güzel örnek için teşekkürler.
Son Düzenleme: 10/02/2011, 13:42, Düzenleyen: cngztpl.
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
![[Resim: 2l975w4.jpg]](http://i55.tinypic.com/2l975w4.jpg)
ilginize teşekkürler
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
Konuyu Okuyanlar: 4 Ziyaretçi
