Tabelle über Formular (mit Ergänzung) aus Vorgabetabelle füllen.

[DieOmer]

Hallo,
wie kann ich am besten vorgehen, wenn ich über ein Formular,
- Werte aus einer Vorgabe-Tabelle laden,
- im Formular ändern bzw. noch nicht vorhandene Werte ergänzen will,
- und diese dann in einer anderen Tabelle anfügen will?

Ich habe es bisher mit

Private Sub cmbType_AfterUpdate()
    DoCmd.OpenQuery "qrySchraubertype"
    DoCmd.Close
    Forms!frmNeuSchrauber.Requery
    DoCmd.GoToRecord , , acLast
    End Sub

gemacht.
- Das Formular ist an die Tabelle gebunden, wo ich anfügen möchte.
- Wählen der Vorgabedaten geschiet über ein Formular mit Kombobox
- Anschließend Daten eingeben und speichern.

Nur wenn ich den Datensatz (vor dem Speichern) jetzt doch verwerfen will... muss ich den erst wieder löschen.

Hat jemand eine andere Idee?
Kann auch ganz anderes gelöst sein sein.
Was nicht geht ist die Vorgabe nur mit dem Datensatz zu verknüfen.

Gruß Dennis

[DF6GL]

Hallo,

Erstell ein ungebundenes Kombifeld mit Datensatzherkunft zur Vorlagentabelle und mit allen benötigten Feldern.

In der AfterUpdate-Ereignisprozedur weist Du die einzelnen Kombispaltenwerte der Standardwert-Eigenschaft der entspr.  Formularfelder zu.  Dabei auf die Datentypen achten.

Code [Auswählen] Erweitern

Sub cmbKombi_Afterupdate()
Me!Feld1.Defaultvalue = Me!cmbKombi.Column(1)  'Datentyp Long
Me!Feld2.Defaultvalue = """" & Me!cmbKombi.Column(2) & """"  'Datentyp Text
Me!Feld3.Defaultvalue = Str(CDbl(Me!Column(3)))    ' Datentyp Datum


End Sub

Ein Datensatz wird nur dann generiert, wenn in ein Feld ein Wert tatsächlich eingegeben wird.