Private Sub Komut5_Click()

    DoCmd.Close

DoCmd.OpenForm "Frm_Ajanda_Haftalik"

    DoCmd.Close

  

On Error GoTo Err_Komut5_Click

DoCmd.OpenForm "Frm_Ajanda_Haftalik"



Exit_Komut5_Click: Exit Sub

Err_Komut5_Click:

MsgBox Err.Description

Resume Exit_Komut5_Click

End Sub