Unterformular automatisch ausfüllen

Computer: Software & Programmierung Microsoft Access
#1

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

#2

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

#3

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]

#4

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 Like