bağlantıyı kesin-->enter tuşuna basın-->tekrar bağlayıp deneyein
Bu arada "exit function" değil "exit sub" yazmalısınız.
Kod:
Private Sub Yordam_Click()
On Error GoTo Makro1_Err
DoCmd.GoToControl "Metin"
Makro1_Exit:
Exit Sub '<-- Exit function olmayacak
Makro1_Err:
MsgBox Error$
Resume Makro1_Exit
End Sub