Tabelle füllen und Bericht erstellen

[Debus]

In der txt Datei ist nun der gesamte Code aus deinem Formular
Schau es Dir einfach einmal an und füge es dort hinzu.

Holger

[Kutsche]

Hallo Holger,

du hast Recht, unter access sind Makro und VBA etwas anderes. Ich arbeite viel mit Word, da ist es eigentlich das gleiche.

Deinen Code  habe ich jetzt eingebaut. Beim Test  läuft der Code hier auf einen Laufzeitfehler 91 bei rst.Close:

Code [Auswählen] Erweitern

Private Sub Patronenwechsel_AfterUpdate()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
   
        If blnInitialLoad = False Then
            If Me.Patronenwechsel.Value = True Then
                If Me.Patronenwechsel = True Then


                    Set db = CurrentDb()

       
                    Set rst = db.OpenRecordset("tbl_Patrone", dbOpenDynaset)
                    rst.AddNew
                    rst!Wechseldatum = Me.FuellungAm  ' Feld-Namen ggf. anpassen!
       
                    rst.Update


                End If
            End If
        End If
   
    rst.Close
    Set rst = Nothing
    Set db = Nothing
End Sub

Hast du noch eine Idee?

[Kutsche]

Hallo Holger,

ich habe deinen Code angepasst (s. Anlage).

Nun funktioniert es. Danke für deine Hilfe.

LG Jens