Mit VisualBasic auf eine Acces Datenbank zugreifen

[Steffen]

Hi nobody,

Da ich leider wenig mit VB zu tun habe und ich mich damit nicht auskenne kam mein Lehrer und hat mir das hier gegeben:

Private Sub Beginn_AfterUpdate()
    On Error GoTo Fehlertest
    Dim db As Database
    Dim rs As Recordset
    Dim AktuellMitarbeiter As Long
    Dim AktuellDatum As Date
    Dim AktuellBeginn As Date
    Dim EndeDb As Date
    AktuellMitarbeiter = Me.cbxMitarbeiterID
    AktuellDatum = Me.Datum
    AktuellBeginn = Me.Beginn
    Set db = CurrentDb
    Set rs = db.OpenRecordset("SELECT Datum, Ende, MitarbeiterID FROM tbl_Projekte WHERE Datum = " & AktuellDatum & " AND MitarbeiterID = " & AktuellMitarbeiter & " AND Ende > " & AktuellBeginn & "")
    rs.MoveFirst
    rs.Close
Fehlertest:
If Err.Number <> 3075 Then
    MsgBox ("Fehlerhafte Eingabe")
End If

Exit Sub

Nur funtzt das auch nich so wie es soll ... Wenn ich jetzt zB in der MsgBox die Variable Ende ausgeben will von der tbl_Projekte bingt er mir die Werte von der Frisch ausgefüllten Ende Formular.

Help :-S

mfg Steffen