Hallo,
ich habe ein Formular mit einem Unterformular. Nun Möchte ich, wenn ich im Hauptformular einen neuen Datensatz anlege, automatisch (oder auf Knopfdruck) im Unterformular mehrere Datensätze mit vordefinierten Werten angelegt werden.
Beispiel: Eine Bestellung mit Kundendaten im Hauptformular und den einzelnen Artikeln der Bestellung im Unterformular. Auf Knopfdruck sollen nun im Unterformular die Standardpositionen wie z.B. Porto, Versicherung, usw als Positionen eingetragen werden.
Gruß
Thomas
Z.B. im AfterInsert-Ereignis des HFs:
Private Sub Form\_AfterInsert()
Dim RS as DAO.Recordset
Set RS = Me!MeinUFO.Form.recordsetclone
RS.Addnew
RS!Position = 1
RS!BestellungNr = Me!BestellungNr
RS!Bezeichnung = "Porto"
RS!Preis = 12.34
RS.Update
RS.Close
Me!MeinUFO.Requery
end sub
Gruß aus dem Norden
Reinhard Kraasch
http://www.kraasch.de
Hallo Reinhard,
das ist mir ein klein wenig zu hoch so. Kannst Du mir das bitte ein wenig erläutern?
Gruß
Thomas
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Nun ja - man öffnet einen Recordsetclone des Unterformulars und fügt dort den Datensatz ein.
Näheres findest du in der Hilfe unter
- OpenRecordset
- Recordsetclone
- Addnew
- Update usw.
1 „Gefällt mir“