Hallo,
ich habe ein Formular "F1". Darin werden Inhalte aus einer Abfrage "A1" angezeigt.
in F1 ist eine Unterformular "F2". Darin sind Ihalte aus einer Tabelle "T2".
Nun gibt es eine lerre Tabelle "T3", die nur Spaltenüberschriften hat.
Ich will im Formular einen Datensatz anzeigen lassen, im Unterformular eine Auswahl auswählen und mittels einer Befehlsschaltfläche die Werte aus F1 und F2 in T3 speichern.
Wie geht das? Gibt es dazu einen VBA-Code für die Befehlsschaltfläche ?
Hallo,
ich denke, zunächst ist mal der Aufbau der Formulare falsch.
Hafo > T1
Ufo > T3
Wenn Hafo und Ufo über die Schlüsselfelder aus T1 und T3 verknüpft sind, wird dann das Schlüsselfeld in T3 automatisch gefüllt.
Im Ufo wird mit einem Kombi das Schlüsselfeld aus T2 in das entsprechende Feld vonT3 geschrieben.
Das beherrscht Access alles automatisch, ohne eine einzige Zeile VBA und somit auch keine Befehlsschaltfläche.
Hallo,
dazu wirst du einen Recordset verwenden müssen.
so in etwa:
Private Sub Befehl1_Click()
dim rs as dao.recordset
dim rsa as dao.recordset
dim rsb as dao.recordset
dim strA as string
dim strB as string
set rs = currentdb.openrecordset ("A1",dbopendynaset)
set rsa = currentdb.openrecordset("T2",dbopendynaset)
set rsb = currentdb.openrecordset("T2",dbopendynaset)
strA = Forms!F1.(dein auswahlfeld) 'keine Datenblatansicht verwenden. entweder Formular oder Endlosformular
strB = Forms!F1.F2.(dein auswahlfeld)
rs.finffirst ("(dein auswahlfeld) = '" & strA & "'")
rsa.findfirst(".(dein auswahlfeld) = '" & strB & "'")
rsb.addnew
rsb!(Feldname) = rs!(Feldname aus der Abfrage) 'oder rsa!(Feldname aus der Tabelle)
... 'für jedes Feld was du zuordnen willst eine neue Zeile
rsb.update
end sub
viel Spass beim probieren
Hallo,
ich denke auch, dass wir erst mal den Untergrund trockenlegen müßten, bevor ein Haus auf diesen Morast gebaut wird...
An anderer Stelle wird die ähnliche Frage gestellt. Das ganze Konzept führt zu nichts außer Verdruß (für nappil)