Tasarım modundayken klavyeden Alt + F11 tuşlarına basıp Kod penceresine geçiş yapınız. Daha sonra yukarıda bulunan menude Debug - Compile ... tıklayın. Daha profesyonel çözümler için Forumda Programlar Bölümünde
Access Programları alt bölümünü inceleyin.
resimde ekledim üstteki örneğe yanlış bişey yapmayalım.
sn redgreen 5. mesaja yazdım koddaki yanlışı,
End Sub eksikmiş dediğinizi yaptığımda dosya bozuldu.End Sub ekleyince sonuna düzeldi.
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
Kod bu şekilde iken düzeldi mi?
-----------------------
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
şimdi düzeldi.doğrusu dediğiniz gibiymiş.