Dikkatlice okudum, mesajınızı kopyalayıp arşivime attaım..TOOLS ayarlarından belirttiğiniz seçeneği işaretledim.....Option Compare Database yazılı yeri buldum, dediğiniz gibi değiştirdim..Hata verdi.
Private Sub Liste0_AfterUpdate()
Option Explicit
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[sno] = " & Str(Nz(Me.Liste0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
"Oyun bitince şah ve piyon aynı kutuya atılır "
