Hallo zusammen,

ich bin sehr neu zu VBA. Ich pflege eine Datenbank, die aus verschiedenen Tabellen sowie Formularen bestehen. Unter diesem sind tblPackmittel, tblBeschaffung (hier werden alle einzelnen Beschaffungen jedes Packmittels aufgenommen), frmPackmittel (das den Textbox txtPMKosten enthält) und frmBeschaffung (das den Textbox txtAVGKosten enthält, die die Durchschnittkosten jedes Packmittels basierend auf der Beschaffungen ausgibt).

Ich habe eine neue Spalte "PMKosten" in der tblPackmittel erstellt. Jetzt möchte ich den Wert vom txtAVGKosten im frm_Beschaffung in diese Tabelle hinzufügen und ihn im frmPackmittel anzuzeigen. Mein Code in frm_Beschaffung lautet so:

If (txtAVGPackmittelkosten <> 0) Then

        Set db = CurrentDb()

        Set GetInfo = db.OpenRecordset("tblPackmittel", dbOpenDynaset)

        db.Execute "UPDATE tblPackmittel SET tblPackmittel.PMKosten = """ & Me.txtAVGPackmittelkosten.Value & """ WHERE tblPackmittel.Packmittelnummer = " & Forms![Form_frmPackmittel]![Packmittelnummer] & ""

End If

Leider hat es nicht funktioniert. Die Spalte "PMKosten" in meiner tblPackmittel wird nicht aktualisiert. Ich weiß nicht wo der Fehler ist. Könnte jemand mir bitte helfen? Ich bedanke mich sehr!!