Alıntı:Dediğim gibi, bu benim bildiğim en iyi yöntem, bildiğim kadarıyla anlatmaya çalıştım. Anlatımımda bir kusurum veya unuttuğum birşey oldu ise başta sn furens olmak üzere özür dilerim. Basit bir örnek ektedir.
liste kutusunun tıklandığında olayına aşağıdaki kodun yazılması gerekiyor.
Kod:
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