Bu komut12
Kod:
Private Sub Komut12_Click()
On Error GoTo Err_Komut12_Click
DoCmd.GoToRecord , , acPrevious
Me.Açılan_Kutu10 = Kimlik
Exit_Komut12_Click:
Exit Sub
Err_Komut12_Click:
MsgBox Err.Description
Resume Exit_Komut12_Click
End Sub
Kod:
Private Sub Komut13_Click()
On Error GoTo Err_Komut13_Click
DoCmd.GoToRecord , , acNext
Me.Açılan_Kutu10 = Kimlik
Exit_Komut13_Click:
Exit Sub
Err_Komut13_Click:
MsgBox Err.Description
Resume Exit_Komut13_Click
End Sub
Denedim çalışıyor.