Synchronisieren von Formularen in einem Navigationsformular

[Michael Alexander]

Hallo!

Ich verzweifle schon an der Synch von zwei frm, die innerhalb eines Navi-UFO
eines Navi liegen.

Habe schon alle Kombonationen versucht, zuletzt

Set rsFrm =
[Forms]![Navigationsformular]![Navigationsunterformular].Form![frmkunden].Form.RecordsetClone
rsFrm.FindFirst "KdID" = Me.KdID
[Forms]![Navigationsformular]![Navigationsunterformular].[Form]![frmkunden].Form
= rsFrm.Bookmark
rsFrm.Close

Bekomme immer einen Fehler beim Set rsFrm, weil er das Feld frmKunden oder
das Formular frmKunden nicht findet. Klar, frmKunden ist ja das Ufo des Ufos
des Navi.

Aber ich schaffe es trotz Dev Ashis "Refer to Form and Subform properties
and controls" einfach nicht das rs zu befüllen.

Gegeben sind

Navigationsformular
mit UFO Navigationsunterformular mit wiederum zwei Ufo drauf frmkunden und
frmBestellungen.

Bitte um Eure Hilfe.
Danke
Michael

Access 2010

[Ekkehard Böhme]

Hallo Michael,

> Hallo!
>
> Ich verzweifle schon an der Synch von zwei frm, die
> innerhalb eines Navi-UFO eines Navi liegen.
>
> Habe schon alle Kombonationen versucht, zuletzt
>
> Set rsFrm =
> [Forms]![Navigationsformular]![Navigationsunterformular].Form![frmkunden].Form.RecordsetClone
> rsFrm.FindFirst "KdID" = Me.KdID
>
> [Forms]![Navigationsformular]![Navigationsunterformular].[Form]![frmkunden].Form
> = rsFrm.Bookmark
> rsFrm.Close

IMO fehlt da noch eine Ebene und bin nicht sicher, ob
Du auch wirklich die Namen der UFo-Controls verwendest,
und nicht die Namen der eingebetteten Formulare.
Versuche es mal mit dieser Schreibweise:
Forms!NameDesHauptforms.Controls("NameDesUFos").Form.Controls("NameDesUfoUFos").Form.RecordsetClone
Nochmal:
"NameDesUFos" ist NICHT der Name des darin angezeigten
Forms, sondern der Steuerelementname;
dto. für "NameDesUfoUFos"

>
> Bekomme immer einen Fehler beim Set rsFrm, weil er
> das Feld frmKunden oder das Formular frmKunden nicht
> findet. Klar, frmKunden ist ja das Ufo des Ufos des
> Navi.
>
> Aber ich schaffe es trotz Dev Ashis "Refer to Form
> and Subform properties and controls" einfach nicht
> das rs zu befüllen.

Hab' ich jetzt nicht gelesen, wird aber wohl nicht
anderes drinstehen wie hier:
http://www.donkarl.com?FAQ4.2

>
> Gegeben sind
>
> Navigationsformular
> mit UFO Navigationsunterformular mit wiederum zwei
> Ufo drauf frmkunden und frmBestellungen.
>
> Bitte um Eure Hilfe.
> Danke
> Michael
>
> Access 2010

hth
gruss ekkehard

[Michael Alexander]

Hallo Ekkehard!

Danke für Deine Hilfe, aber ich bekomms dennoch nicht hin.

Set rs =
[Forms]![Navigationsformular]![Navigationsunterformular].[Form]![frmBestellungen].RecordsetClone
geht nicht

detto

Set rs
=Forms![Navigationsformular].Controls("Navigationsunterformular").Form.Controls("frmBestellungen").Form.RecordsetClone
rs.FindFirst "KdID = " & Me.KdID
Me.Bookmark = rs.Bookmark

Wobei dieser Code im Form_Current des frmKunden steht und ich die
entsprechende Anzeige im frmBestellungen "vorbereiten" will.

Gruß
Michael



"Ekkehard Böhme" <beak...@arcor.de> schrieb im Newsbeitrag
news:4f4697f5$0$7614$9b4e...@newsspool1.arcor-online.net...

[Winfried Sonntag]

Am 24.02.2012 schrieb Michael Alexander:

> Danke für Deine Hilfe, aber ich bekomms dennoch nicht hin.

Kannst Du evtl. eine reduzierte Anwendung zum Download zur Verfügung
stellen? Dann kann man sich die ansehen und evtl. korrigieren.
http://www.file-upload.net/

> Set rs
> =Forms![Navigationsformular].Controls("Navigationsunterformular").Form.Controls("frmBestellungen").Form.RecordsetClone
> rs.FindFirst "KdID = " & Me.KdID
> Me.Bookmark = rs.Bookmark

Im Formular Navigationsformular (heißt das so?) gibt es ein Control
welches Navigationsunterformular heißt? In diesem
Navigationsunterformular gibt es ein Unterformular frmBestellungen?

Führe den nachstehenden Code im Navigationsformular und im
Navigationsunterformular aus.

Public Sub MeinTest()

Dim ctlSteuerelement As Control
For Each ctlSteuerelement In Me.Controls
Debug.Print ctlSteuerelement.Name
Next ctlSteuerelement

End Sub

Werden die richtigen Controls ausgegeben? Sind die Namen die
richtigen?

Servus
Winfried
--
Connect2WSUS: http://www.grurili.de/tools/Connect2WSUS.exe
Community Forums NNTP Bridge: http://communitybridge.codeplex.com/
Access-FAQ: http://www.donkarl.com/AccessFAQ.htm
Access-Stammtisch: http://www.access-muenchen.de

[Michael Alexander]

Hallo Winfried!

Vorab danke für Deine Bemühungen:

Bevor ich das uploade hier einmal das Ergebnis des MeinTest:

Im Navigationsformular habe ich
Auto_Logo0
Auto_Kopfzeile0
NavigationControl0
NavigationButton9
NavigationButton7
NavigationButton16
NavigationButton18
NavigationButton1
Navigationsunterformular


Das Navigationsunterformular hat ja nur zwei Ereignisse (beim Hingehen und
beim Verlassen) und beide werden nicht ausgelöst!
Ich kann daher nicht feststellen, wie die ctls dort heissen.

Auf dem Navigationsunterformular liegen die Reiter (Register) für die frms.
Wenn ich die Register anklicke werden die Ereignisse des
Navigationsunterformular nicht ausgelöst.
Somit wüßte ich nicht, wie ich diese Ereignisse auf dem
Navigationsunterformular sonst auslösen kann.

Ich habe zwischenzeitlich herausgefunden, dass im Ufo-Ufo frmBestellungen
jedesmal, wenn ich es im Navigationsunterformular aufrufe, das Load bzw.
beim Verlassen, das Unload-Ereignis ausgelöst wird, danach das Current.

Nun habe ich einmal testweise versucht beim Load auf die Kundennummer 7 zu
gehen.
Set rsFrm = Me.RecordsetClone
rsFrm.FindFirst "[KdID] = 1" '& rs("SuchenNach")
Me.Bookmark = rsFrm.Bookmark
rsFrm.Close

funktioniert auch nicht, sichtbar ist der erste DS in der
Sortierreihenfolge.

debug.print Me.name bringt aber frmBestellungen!, also bin ich richtig im
frm.

Also irgendwie verstehe ich das ganze nicht.

Nehme gerne Dein Angebot an, und habe eine verkleinerte Kopie der DB als
rar.Datei hochgeladen.
http://www.file-upload.net/download-4150050/Database4.rar.html

Besten Dank
Michael






"Winfried Sonntag" <Winfried...@gmx.de> schrieb im Newsbeitrag
news:1d3ms9bh9j2r$.dlg@ID-163725.user.individual.de...

[Winfried Sonntag]

Am 26.02.2012 schrieb Michael Alexander:

> Bevor ich das uploade hier einmal das Ergebnis des MeinTest:

Ich hab mir die DB kurz angesehen, beschreib mir doch bitte *ganz*
genau was wann passieren soll. Welches Formular wird aufgerufen, was
soll dann passieren? Was möchtest Du erreichen?

[Michael Alexander]

Hallo!

Ich öffne das Navigationsformular, dann wähle ich einen Kunden (keinen
Neueintrag) und dann wechsle ich im frmBestellungen zu desser erster (oder
letzter - aber das ist dann feintuning) Bestellung.
Oder vice versa, ich stehe im frmBestellung in einer Bestellung und möchte
von dort zum Kunden im frmKunden springen.

Derzeit beginnt die Darstellung des jeweiligen frm immer mit dem in der
Sortierung ersten Datensatz.

Das Steuerelement tmpKdID auf dem Navigationsformular hat keine Bedeutung,
wäre nur als "globales" Hilfsfeld gedacht.

Gruß

Michael


"Winfried Sonntag" <Winfried...@gmx.de> schrieb im Newsbeitrag

news:68tqo14jescq$.dlg@ID-163725.user.individual.de...

[Winfried Sonntag]

Am 27.02.2012 schrieb Michael Alexander:

> Ich öffne das Navigationsformular, dann wähle ich einen Kunden (keinen
> Neueintrag) und dann wechsle ich im frmBestellungen zu desser erster (oder
> letzter - aber das ist dann feintuning) Bestellung.
> Oder vice versa, ich stehe im frmBestellung in einer Bestellung und möchte
> von dort zum Kunden im frmKunden springen.

Bisher hatte ich noch keine Zeit, wird wohl noch bis Mitte März
andauern, vorher komme ich nicht dazu. Falls zwischenzeitlich jemand
anderer das Problem lösen kann, soll er die Lösung hier bitte
veröffentlichen.

[Michael Alexander]

Trotzdem, danke vorab für Deine Rückmeldung, ich harre Deiner Lösung!!

Gruß
Michael

"Winfried Sonntag" <Winfried...@gmx.de> schrieb im Newsbeitrag

news:1xqt5w10dkzpe$.dlg@ID-163725.user.individual.de...