If Me.txtDatum.Text = "" Then Me.txtDatum.Text = Date
Me.txtDatum.Text = Format(Me.txtDatum.Text, "dd.mm.yyyy")
 
Select Case fDSvorhandenPrüfen(Me.txtDatum.Text)
    Case True
        Me.txtTagesstd.Text = fistStunden(Me.txtDatum.Text)
        For i = 1 To fletzterEinsatz(Me.txtDatum.Text)
            Call fAufrufEinsatzForm(i, "vorhanden")
        Next
    Case False
        Call fAufrufEinsatzForm(1, "neu")
End Select

'Erstellen der Einsatzformulare
'Übergabewert:Einsatznummer und modus (neu oder vorhanden)
Public Sub fAufrufEinsatzForm(Nr As Integer, modus As String)
If Nr > 3 Then Exit Sub
Dim oForm As New frmEinsatz
 
Select Case modus
    Case "vorhanden"
        With oForm
            .BackColor = vbWhite
            If Nr > 1 Then .Left = ((Nr - 1) Mod 3) * 2445 Else .Left = 0
            .Top = frmTag.Height
            .Height = 3900
            .Width = 2445
            .Einsatz = Nr
            .Caption = "Einsatz " & Nr
            .lblFormModus.BackColor = vbRed
            .lblFormModus.ForeColor = vbYellow
            .lblFormModus.Caption = "vorhandener Datensatz"
            .cmdEnde.Enabled = False
            .cmdweitere.Enabled = False
            .Visible = True
            .txtvon.Text = Format(fEinsatzVon(frmTag.txtDatum.Text, Nr), _
              "hh:mm")
            .txtbis.Text = Format(fEinsatzbis(frmTag.txtDatum.Text, Nr), _
            "hh:mm")
            .txtEinsatzStd.Text = fMinBerechnen(.txtvon.Text, .txtbis.Text) / 60
        End With
        Set EinsatzForm(Nr) = oForm
    Case "neu"
        With oForm
            .BackColor = vbWhite
            .Top = frmTag.Height
            If Nr > 1 Then .Left = ((Nr - 1) Mod 3) * 2445 Else .Left = 0
            .Height = 3900
            .Width = 2445
            .Einsatz = Nr
            .Caption = "Einsatz " & Nr
            .lblFormModus.BackColor = vbBlack
            .lblFormModus.ForeColor = vbWhite
            .lblFormModus.Caption = "Neuer Datensatz"
            If Nr = 3 Then
                .cmdEnde.Enabled = True
                .cmdweitere.Enabled = False
            End If
            .Visible = True
        End With
        Set EinsatzForm(Nr) = oForm
 
End Select
Set oForm = Nothing
End Sub