Private Sub Komut1_Click() On Error GoTo HATA DoCmd.RunCommand acCmdSelectRecord Me.Komut1.Visible = False HATA: Exit Sub End Sub