Problem mit Suchmaske

[Josef P.]

Hallo!

Vorab: der Vorschlag von MaggieMay mit dem gebundenen Feld zur Dateneingabe ist meiner Meinung nach am einfachsten und sinnvollsten.

Trotzdem noch die im Beispiel versuchte Variante mittels VBA einen Datensatz anzufügen:

Code (vb) [Auswählen] Erweitern

  'Neuen Bericht in tblBerichte anlegen
  Dim mvRs As DAO.Recordset
  Dim itm As Variant
  With CurrentDb().OpenRecordset("tblBerichte", dbOpenDynaset, dbAppendOnly)
    .AddNew
    !BerichtNr = NeueBerichtNummer
    !Datum = Me![txt_Datum]
    !lngLetzteVersion = 1
    !lngMitarbeiter = Me![cbo_Pruefer]
    Set mvRs = !lngTest.Value
    For Each itm In Me.cbo_Test.Value
      mvRs.AddNew
      mvRs.Fields(0).Value = itm
      mvRs.Update
    Next
    !Kommentare = Me![txt_Kommentare]
    .Update
    .Close
  End With

BTW: dir ist schon bewusst, dass du über deine "Eingabemaske" immer einen Datensatz in der Tabelle tblBerichte änderst, weil das Formular an diese Tabelle gebunden ist und cbo_Test am Datenfeld dieser Tabelle hängt?

mfg
Josef

[Carlos_C]

Danke Ihr beide für Eure Antworten! Ich werde beide Lösungen testen. Sage Euch Bescheid, wie es mir gegangen ist.

[Carlos_C]

Stimmt! Di Lösung von Maggie war einfach und sinnvoll. Die Lösung von Josef hat auch funktioniert, hat aber manchmal Fehlermeldungen gegeben. Danke Ihr beide!