öncelikle,eklediğim yazıyı tekrar ayrıntılı incelemenizi temenni etmekle birlikte,eklediğiniz kod ifadeleri üzerinden bazı açıklamalarda bulunmanın gerektiği görülerek bahislerini yapmak zorunluluğu hasıl olmuştur.
1)
Option Explicit kod ifadesinin,Option Compare Database yerine,kod sayfasının ilk satırına yazılması kast edilmiştir.
2)
eklediğiniz Liste0 adlı listenin Güncelleştirme Sonrasında Olay Yordamı içerisinde Option Explicit kod ifadesinin yazılı olduğu görülmektedir.bu ifadeyi çıkartınız ve yukarıdaki 1.maddede yazılı şekilde kullanımda bulununuz.
3)
Option Explicit kod ifadesini eklemenizdeki maksat sanırım,
Liste0’ın Tıklandığında Olay Yordamı içindeki On Error Resume Next kod ifadesinin
yerine kullanmak adınaydı.bunun açıklaması da,2.maddede yazılmıştır.
sayın yorum70,
yapmanız gerekenler şunlardır.
a)
Option Explicit kod ifadesini,Option Compare Database yerine,kod sayfasının ilk satırına yazmak.
bununla ilgili olarak,önceki mesajda
Alıntı:...Option Explicit ifadesinin her uygulama hazırlayacağınız zaman,kod sayfasında sürekli otomatik olarak yer almasını sağlamak için de,kodlama sayfasında iken,üst menüden TOOLS - OPTIONS - EDITOR sekmesindeki REQUIRE VARIABLE DECLERATION satırını işaretleyip Tamam diyerek çıkınız...
yazısı açıklanmıştır.
b)
eklediğiniz örnekteki kodda yer alan Option Explicit ifadesini çıkartmak.
Kod:
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[sno] = " & Str(Nz(Me.Liste0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmarkiyi çalışmalar,saygılar.
