Private Sub Form_BeforeUpdate(Cancel As Integer)
Mldg = "Bereits zugeordnete Hardware kann hier nicht gelöscht bzw." & _
  "überschrieben werden. " _
& vbCr & "Nutzen Sie hierzu die entsprechende Funktion im Menü" & _
"'Hardwareverwaltung'!"
Titel = "Löschen nicht möglich!"
MsgBox Mldg, Stil_ok, Titel
Cancel = True
Me.Undo
End Sub

On Error GoTo Err_cmdopen_Hauptmenue_DblClick
stDocName = "frmHauptmenue"
stLinkCriteria = "[SwitchboardID]= 1"
DoCmd.Close
DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Err_cmdopen_Hauptmenue_DblClick:
If Err.Number <> 0 Then
     MsgBox Err.Number & " " & Err.Description
    Resume Exit_cmdopen_Hauptmenue_DblClick
End If
 
Exit_cmdopen_Hauptmenue_DblClick:
    Exit Sub
End Sub