ilk sorun için kimlikid otomatik sayı her kayıt yapmak için forma girip çıktığında otomatik olarak artar onun yerine kimlik id gizledim ve evrak sayısı kısmı tablodaki evrak kayıt sırasına göre artması için aşağıdaki gibi yaptım kaydet butonuna tıklandığında olayına gözat.

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

Ek Dosyalar

OYNAMA_sled-2010-DUZUNLEME.rar(133.85 KB)