Private Sub Speichern_Click()
Dim DB As Database
Dim Tabelle As Recordset
Dim dbfile As String
 
Open "pfad.txt" For Random As #1
Line Input #1, dbfile
Close #1
Set DB = Workspaces(0).OpenDatabase(dbfile, False, False)
Set Tabelle = OpenRecordset("Termine")
 
Dim Uhrz, E1Uhrz, E2Uhrz As String
Tabelle.AddNew
Tabelle("Betreff") = Betreff.Text
If IsDate(TDatum.Text) = True Then
Tabelle("Datum") = TDatum.Text
Else
MsgBox ("Geben Sie bitte ein Gültiges Datum ein.")
TDatum.SetFocus
Exit Sub
End If
If IsDate(E1_Datum.Text) = True Then
Tabelle("E1Datum") = E1_Datum.Text
Else
MsgBox ("Geben Sie bitte ein Gültiges Datum ein.")
E1_Datum.SetFocus
Exit Sub
End If
If IsDate(E2_Datum) = True Then
Tabelle("E2Datum") = E2_Datum.te
Else
MsgBox ("Geben Sie bitte ein Gültiges Datum ein.")
E2_Datum.SetFocus
Exit Sub
End If
Uhrz = Um_h + ":" + Um_m
E1Uhrz = E1_Um_h + ":" + E1_Um_m
E2Uhrz = E1_Um_h + ":" + E1_Um_m
Tabelle("Um") = Uhrz
Tabelle("E1Um") = E1Uhrz
Tabelle("E1Um") = E2Uhrz
Tabelle.Update
Unload Me
End Sub

mfg
VB Freak