Me.EvrakSayısı = DMax("[EvrakSayısı]", "VERIGIRIS") + 1
İkinci liste kutunun ismi Liste64
bu nedenle tıklandığında olayı aşağıdaki gibi olmalı kodlar hernekadar birbirine benzesede
denetimlerin isimlerine göre çalışır.
Private Sub Liste64_Click()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Kimlik1] = " & str(Nz(Me![Liste64], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub