Neuigkeiten:

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

Mobiles Hauptmenü

Automatische übernahme von Daten einer Tabelle in eine 2 Tabelle

Begonnen von wombl, Mai 16, 2011, 10:37:31

⏪ vorheriges - nächstes ⏩

wombl

Hallo,

ich habe 3 Tabellen in meiner Datenbank

Kontakte (FimrenID, Adresse,usw)
Niederlassungen (NlID, FirmenID_F, usw...)
Ansprechpartner APID, NlID_F, usw...)
Für jede Tabelle gibt es ein entsprechendes Formular

meine Frage ist nun folgendes.

Mitarbeiter gibt im Formular Kontakte eine Firma ein und möchte eine Niederlassung eingeben (öffnet also das Formular "Niederlassungen".

Wie schaffe ich es, das beim öffnen des Formulars"Niederlassungen",  im Feld [FirmenID_F] die Zahl aus dem  Feld [FirmenID] vom Formular "Kontakte" steht.
Wenn ich das alles richtig gemacht habe wird ja anhand dieser Zahl die Nl eindeutig der jeweiligen Fimra zugeordnet!?


Da ich relativ wenig ahnung habe, wäre eine Lösung echt toll und nett :)
Danke im Vorraus

LG
Wombl

DF6GL

Hallo,


etwa nach diesem Prinzip:
im: Form "Kontakte"

Sub btnNL_Click()
Docmd.Openform "Niederlassungen",,,,acFormAdd,acDialog,Me!FirmenID
End Sub

'und im Form "Niederlassungen":

Sub Form_Load()
If Not IsNull(Me.Openargs) Then  Me!FirmenID_F.Defaultvalue = Me.Openargs
End Sub


Statt dem separaten Öffnen von Form "Niederlassungen"  könnte ein UFO-Steuerelement mit Herkunftsobjekt "Niederlassungen" im (Haupt-)Form "Kontakte" dienlich sein, dessen Eigenschaften "Verknüpfen von/nach" auf die entspr. Schlüsselfelder ("FirmenID" und "FirmenID_F") eingestellt werden.

wombl

Danke.

funktioniert genau so wie ich mir das vorgestellt habe :)

Danke für die Hilfe :)

lg
wombl

wombl

da hab ich mich wohl zu früh gefreut.

es funktioniert leider nicht !

beim Laden des Formulars "Niederlassungen" erhalte ich folgende Meldung:

"objekt unterstützt diese Eigenschaft der Methode nicht"

dann öffnet sich die ereignissprozedur(debugger) und er markiert folgenden Bereich:

If Not IsNull(Me.OpenArgs) Then Me!KontaktID.DefaultValue = Me.OpenArgs

der Name des Feldes ist kein fehler.. habe den Namen in der Tabelle geändert (so kenn ich mich besser aus)

zufällig ne Idee warum ich diesen Fehler bekomme?

lg
wombl