1: 2: 3: 4: 5: 6:
If Me.cboReason = "" dann 'MsgBox „nichts wählte“ vor DoCmd.Beep DoCmd.OpenForm „noDefect“, acNormal, acWindowNormal, falsch Sonst