Hallo Mario
Es gibt verschiedene Lösungen. Hier eine relativ einfache:
Angenommen das Formular enthält einen Button buCmd1 und Datenherkunft des Formulars ist Tabelle0 mit mind. Feld1 mit dem aktuellen Datensatz. Tabelle1 mit Feld1 und Tabelle2 mit Feld5 sind weitere Tabellen der aktuellen Access-Datenbank. Im dern Ereignisprozedur von buCmd1_Click() würde dann folgendes stehen müssen:
a) Wert aus Tabelle1 Feld1 des Datensatzes mit z.B. ID=24 lesen:
Tab1Fld1=DLookup("Feld1","Tabelle1","ID=24")
b) Wert aus Feld1 des aktuellen Datensatzes lesen:
AktFld1=Me("Feld1") 'oder
AktFld1=Me!Feld1 'oder
AktFld1=Me![Feld1]
c) einen Wert "TestWert" in das Feld5 des Datensatzes
mit ID=5 der Tabelle2 schreiben:
Dim s1 as String
s1="UPDATE Tabelle2 SET Feld5='TestWert' WHERE ID=5"
DoCmd.SetWarnings False
DoCmd.RunSQL s1
DoCmd.SetWarnings True
ist TestWert eine Zahl z.B. 365.25, dann Zeile
mit s1=... ersetzen durch:
s1="UPDATE Tabelle2 SET Feld5=365.25 WHERE ID=5"
Falls die WHERE-Klausel weggelassen wir, wird Feld5 aller
Datensätze in Tabelle2 auf 365.25 gesetzt!
Ich hoffe das hilft. Je nach Anwendung müssen allerdings weitere Anpassungen gemacht werden und eventuell muss nach anderen Lösungsmöglichkeiten gesucht werden.
Gruss
BobDG
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Foren auf CAD.de
| 
