Private Sub cboKostenstelle_DblClick(Cancel As Integer)
'Das Formular "Kostenstelle" wird geöffnet
On Error GoTo Err_cboKostenstelle_DblClick
stDocName = "frmKostenstellen"
fromcbo = True
fromstDocName = "frmMitarbeiter_neu_erfassen"
' Formular im Hinzufügemodus öffnen
Me.Visible = False
DoCmd.OpenForm stDocName, , , , , acDialog, "GotoNew"
cboKostenstelle.Requery
Gespeichert = False
fromcbo = False
 
Err_cboKostenstelle_DblClick:
If Err.Number <> 0 Then
    MsgBox Err.Number & " " & Err.Description & " " & _
      "Form!frmMitarbeiter_neu_erfassen - cboKostenstelle_DblClick"
    Resume Exit_cboKostenstelle_DblClick
End If
 
Exit_cboKostenstelle_DblClick:
    Exit Sub
End Sub