Neuigkeiten:

Ist euer Problem gelöst, dann bitte den Knopf "Thema gelöst" drücken!

Mobiles Hauptmenü

Zwei Formulare synchronsieren

Begonnen von UFO, Mai 08, 2012, 23:16:35

⏪ vorheriges - nächstes ⏩

UFO

Hallo an alle Access-Profis!
Folgendes "kleines" Problem beschäftigt mich:
Ich wähle in einem Fomular "frmANLAGE" eine bestimmte Anlage (biogasanlage) aus und möchte über eine Schaltfläche mit passendem Befehl ein neues Formular "frmProjektAnlegen" öffnen (soweit kein Problem).
Im frmProjektAnlegen soll nun ein neues Projekt/Auftrag (genau zu dieser Anlage) angelegt werden.

Tabellen AUFTRAG (AUFTRAG_KEY, ANLAGE_KEY etc.), ANLAGE (ANLAGE_KEY etc) da es  zu jeder Anlage mehrere Aufträge gibt.

In der Tabel AUFTRAG wird als Fremdschlüssel  demnach ANLAGE_KEY gespeichert.

Ich schaffe es das Auftragsformular zu öffnen und ein neuer Datensatz lässt sich anfügen, das Textfeld ANLAGE_KEY (nur für den Testzweck) bleibt aber leer.
Habe schon ne Weile rumprobiert und habe selbst schon keine Ahnung mehr, was ich wo schon an vba eingetragen habe.
Wer kann mir die einzelnen Verfahrensschritte aufskizzieren, d.h. gegen eine fertige Lösung ist auch nichts einzuwenden.
Habe schon alles mögliche gelesen und komme mit vergleichbaren Lösungen nicht klar.

DANKE

Beaker s.a.

Hallo Ufo,
Übergebe ANLAGE_KEY als OpenArgs an das Auftragsformular.
Beachte aber, dass OpenArgs ein String ist. Da musst Du
evtl. zweimal eine Typumwandlung vornehmen.
hth
gruss ekkehard
Alles, was geschieht, geschieht. - Alles, was während seines Geschehens etwas anderes geschehen lässt, lässt etwas anderes geschehen. - Alles, was sich selbst im Zuge seines Geschehens erneut geschehen lässt, geschieht erneut. - Allerdings tut es das nicht unbedingt in chronologischer Reihenfolge.
(Douglas Adams, Mostly Harmless)

DF6GL

Hallo,

schlage zusätzlich noch vor, den Fremdschlüsselwert in der Eigenschaft  "Standardwert" abzulegen:


.
.
.
Docmd.Openform " frmProjektAnlegen, , , , acFormAdd, acDialog, Me!ANLAGE_KEY
.
.
.



Im Form "frmProjektAnlegen":

Sub Form_Load()
If Not isnull(Me.Openargs) Then Me!ANLAGE_KEY.Defaultvalue = Me.Openargs
End Sub
Viele Grüße vom Bodensee
Franz, DF6GL

Hilfestellung:  http://www.access-o-mania.de/forum/index.php?topic=6969.msg118738#msg118738

Links und Tipps:
1.   http://v.hdm-stuttgart.de/~riekert/lehre/db-kelz/
1a. http://www.tinohempel.de/info/info/datenbank/normalisierung.htm
1b. https://support.office.com/de-de/article/Grundlagen-des-Datenbankentwurfs-eb2159cf-1e30-401a-8084-bd4f9c9ca1f5#bmterms
2.   http://www.donkarl.com
3.   https://web.archive.org/web/20201201233522/http://www.dbwiki.net/
4.   http://www.access-tutorial.de/
5.   http://www.tty1.net/smart-questions_de.htm
6.   http://access.joposol.com/accept

Last but not least:   < F1 > für Hilfe
;) Learning by doing not by spoon-feed ;)

Tipp: Find and Replace for Access

UFO

Ihr seid super.
Es funktioniert. Habe es genau so wie beschrieben umgesetzt.
Werde jetzt mit den Feinheiten weiter machen und hoffe dass ich klar komme.
Vielen Dank
UFO :)