Kod:
Private Sub Komut6_Click()
On Error GoTo Err_Komut6_Click
DoCmd.GoToRecord , , acNext
Exit_Komut6_Click:
Exit Sub
Err_Komut6_Click:
'MsgBox Err.Description
DoCmd.Close 'Bu satır kapattırıyor.
Resume Exit_Komut6_Click
End SubKod:
Private Sub Komut6_Click()
On Error GoTo Err_Komut6_Click
Dim SonKayit
SonKayit = DLast("[no]", "Tablo1", "[no]<>0")
If [no] = SonKayit Then
DoCmd.Close
Else
DoCmd.GoToRecord , , acNext
End If
Exit_Komut6_Click:
Exit Sub
Err_Komut6_Click:
MsgBox Err.Description
Resume Exit_Komut6_Click
End Sub