AccessTr.neT

hocam paylaşım için teşekürler ama eklentiyi indiremiyoruz ?

(30/05/2010, 22:25)fatihtas yazdı: [ -> ]hocam paylaşım için teşekürler ama eklentiyi indiremiyoruz ?

şu anda sorun var mı?

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