Kod:
Option Compare Database
Private Sub Komut6_Click()
On Error GoTo Err_Komut6_Click
DoCmd.GoToRecord , , acFirst
Exit_Komut6_Click:
Exit Sub
Err_Komut6_Click:
MsgBox Err.Description
Resume Exit_Komut6_Click
End Sub
Option Compare Database
Option Explicit
Dim path As String
End Sub
-----------------------
Option Compare Database
Option Explicit
Bu kodu sil
------------------------
Dim path As String
bu kodu
en üstteki Option Compare Database in bir altına yaz (silmeni söylediğim kodu sildiğinde bu kodu gerekli yere taşıyacağını düşündüm)
-------------------------------------------------
en sona eklediğin end sub u sil