Office: (Office 2010) Unterformulare aufklappen

anni92 · 2. Mai 2013

Hi Anne,

unglaublich - funktioniert!!!
Also sozusagen von oben nach unten - muss ich mir merken.
Wieder ein ganz kleiner Schritt nach vorne ...

Auch Diesmal: VIELEN DANK ANNE *Smilie

Viele Grüße,
Annika

Anne Berg · 7. Januar 2021

Hi,

nochmal ein kleiner Nachtrag zu der von dir zitierten #56:

von Anne Berg

Oder aber von unten nach oben mit Hilfe von Me.Parent.Form!ID, was ich auf jeden Fall bevorzugen würde.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Natürlich nur da wo anwendbar.

anni92 · 4. Mai 2013

Hallo Anne,

melde mich schon wieder, ist mir echt schon peinlich. *confused.gif*
Baue gerade Deinen aus #54 geposteten Code ein, hat bis heute Mittag suppi funktioniert.

Hier nochmal Dein Code zur Orientierung:
Code:

Private Sub lbl_ArtBestTeile0_DblClick(Cancel As Integer)
' Prüft ob das Formular ein Öffnungsargument mitbekommen hat.
' Wenn es aus dem Unterformular geöffnet wird, ist dies der Fall.
If Me.OpenArgs = "aktiv" Then
' wenn ja dann schließe das Formular, denn es ist ja offen
DoCmd.Close acForm, Me.Name
Else
' wenn keine OpenArgs vorhanden sind, mach folgendes:
' Ist das Hauptformular geöffnet?
If CurrentProject.AllForms("frm_Artikelstamm").IsLoaded Then
' dann prüfe, ob es einen gültigen Key gibt
If Me.Parent.NewRecord Then
MsgBox "Kein Datensatz vorhanden!"
Else
' öffne das Formular und gib ihm das Argument "aktiv" mit
' was oben für die Prüfung zum schließen gebraucht wird.
DoCmd.OpenForm "frm_Artikelbestandteile", , , _
"ArtBestTeile_ArtSt_ref=" & Parent!ArtSt_ID, , acDialog, "aktiv"
End If
Else
' als Hauptformular geöffnet
DoCmd.Close acForm, Me.Name
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann bin ich auf den Fall gestoßen, bei dem ein Unterform (hier: frm_Artikelbestandteile) in mehreren Hauptforms (hier zusätzlich: frm_Stueckliste) verwendet wird.
In ähnlichen Fällen konnte ich mir in der Vergangenheit einfach mit einer "Duplizierung" oder entsprechendem Umbau helfen.
Doch hier kriege ich es nicht hin. Den ganzen Nachmittag probiere ich schon rum, ohne Erfolg.

Hier ein Versuchsbeispiel mit "aktiv" und "aktiv2":
Code:

Private Sub lbl_ArtBestTeile0_DblClick(Cancel As Integer)
' Prüft ob das Formular ein Öffnungsargument mitbekommen hat.
' Wenn es aus dem Unterformular geöffnet wird, ist dies der Fall.
If Me.OpenArgs = "aktiv" Then
' wenn ja dann schließe das Formular, denn es ist ja offen
DoCmd.Close acForm, Me.Name
Else
' wenn keine OpenArgs vorhanden sind, mach folgendes:
' Ist das Hauptformular geöffnet?
If CurrentProject.AllForms("frm_Artikelstamm").IsLoaded Then
' dann prüfe, ob es einen gültigen Key gibt
If Me.Parent.NewRecord Then
MsgBox "Kein Datensatz vorhanden!"
Else
' öffne das Formular und gib ihm das Argument "aktiv" mit
' was oben für die Prüfung zum schließen gebraucht wird.
DoCmd.OpenForm "frm_Artikelbestandteile", , , _
"ArtBestTeile_ArtSt_ref=" & Parent!ArtSt_ID, , acDialog, "aktiv"
End If
Else
' als Hauptformular geöffnet
DoCmd.Close acForm, Me.Name
End If
End If

If Me.OpenArgs = "aktiv_2" Then
' wenn ja dann schließe das Formular, denn es ist ja offen
DoCmd.Close acForm, Me.Name
Else
' wenn keine OpenArgs vorhanden sind, mach folgendes:
' Ist das Hauptformular geöffnet?
If CurrentProject.AllForms("frm_Stueckliste").IsLoaded Then
' dann prüfe, ob es einen gültigen Key gibt
If Me.Parent.NewRecord Then
MsgBox "Kein Datensatz vorhanden!"
Else
' öffne das Formular und gib ihm das Argument "aktiv" mit
' was oben für die Prüfung zum schließen gebraucht wird.
DoCmd.OpenForm "frm_Artikelbestandteile", , , _
"ArtBestTeile_Stueckl_ref=" & Parent!Stueckl_ID, , acDialog, "aktiv_2"
End If
Else
' als Hauptformular geöffnet
DoCmd.Close acForm, Me.Name
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Oder noch ein Beispiel mit dem "Weglassen" des Mittelteils:
Code:

Private Sub lbl_ArtBestTeile0_DblClick(Cancel As Integer)
' Prüft ob das Formular ein Öffnungsargument mitbekommen hat.
' Wenn es aus dem Unterformular geöffnet wird, ist dies der Fall.
If Me.OpenArgs = "aktiv" Then
' wenn ja dann schließe das Formular, denn es ist ja offen
DoCmd.Close acForm, Me.Name
Else
' wenn keine OpenArgs vorhanden sind, mach folgendes:
' Ist das Hauptformular geöffnet?
If CurrentProject.AllForms("frm_Artikelstamm").IsLoaded Then
' dann prüfe, ob es einen gültigen Key gibt
If Me.Parent.NewRecord Then
MsgBox "Kein Datensatz vorhanden!"
Else
' öffne das Formular und gib ihm das Argument "aktiv" mit
' was oben für die Prüfung zum schließen gebraucht wird.
DoCmd.OpenForm "frm_Artikelbestandteile", , , _
"ArtBestTeile_ArtSt_ref=" & Parent!ArtSt_ID, , acDialog, "aktiv"
End If
Else
' als Hauptformular geöffnet
DoCmd.Close acForm, Me.Name
End If

If CurrentProject.AllForms("frm_Stueckliste").IsLoaded Then
' dann prüfe, ob es einen gültigen Key gibt
If Me.Parent.NewRecord Then
MsgBox "Kein Datensatz vorhanden!"
Else
' öffne das Formular und gib ihm das Argument "aktiv" mit
' was oben für die Prüfung zum schließen gebraucht wird.
DoCmd.OpenForm "frm_Artikelbestandteile", , , _
"ArtBestTeile_Stueckl_ref=" & Parent!Stueckl_ID, , acDialog, "aktiv"
End If
Else
' als Hauptformular geöffnet
DoCmd.Close acForm, Me.Name
End If
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das zuletzt genannte Beispiel funktioniert sogar, wenn man das Unterform aus einem der beiden Hauptforms (hier: frm_Artikelstamm oder frm_Stueckliste) öffnet und schließt.
Doch öffnet man das Unterform als Hauptform (also separat), kommt nach einem versuchten Schließen der Laufzeitfehler '5': Ungültiger Prozeduraufruf oder ungültiges Argument.

Bis dann,
Annika

Anne Berg · 4. Mai 2013

Hallo Annika,

sorry, aber als "Trockenübung" (lediglich durch Code-Ansicht) lässt sich das wohl kaum lösen,
da es zu viele "Unbekannte" in dem Zusammenhang gibt.
(bspw. ist ein "frm_Stueckliste" bisher noch nicht in Erscheinung getreten)

Da wirst du wohl nochmal eine Beispiel-DB hochladen müssen.

anni92 · 5. Mai 2013

Hi Anne,

anbei die um das Hauptform "frm_Stueckliste" erweiterte Datenbank.
Ich wünsche Dir noch einen schönen, sonnigen Sonntag!

Viele Grüße,
Annika

Anne Berg · 5. Mai 2013

Hallo Annika,

wenn du das Formular "frm_Artikelbestandteile" in verschiedene Formulare mit unterschiedlicher Verknüpfung als Unterformular einfügst, wieso wunderst du dich darüber, dass es "Parent!ArtSt_ID" nicht in jedem Fall (er)kennt?!

Mach dir erstmal Gedanken darüber, wie die Daten zusammenhängen und was du mit den Formularen überhaupt bezweckst.

anni92 · 6. Mai 2013

Hi Anne,

wenn du das Formular "frm_Artikelbestandteile" in verschiedene Formulare mit unterschiedlicher Verknüpfung als Unterformular einfügst, wieso wunderst du dich darüber, dass es "Parent!ArtSt_ID" nicht in jedem Fall (er)kennt?!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe nochmals alles überprüft, konnte nach meinem Wissen keinen Fehler feststellen. Die Beziehungen sind korrekt aufgebaut, "Parent!ArtSt_ID" ist auch korrekt geschrieben.

Mach dir erstmal Gedanken darüber, wie die Daten zusammenhängen und was du mit den Formularen überhaupt bezweckst.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe ein Unterform (frm_Artikelbestandteile), dass in zwei Hauptforms (frm_Artikelstamm und frm_Stueckliste) verwendet werden soll. Diese Konstellation tritt noch an vielen anderen Stellen in meiner Datenbank auf, wie z.B. das Unterform "frm_Adressen", das in den beiden Hauptforms "frm_Kundenstamm" und "frm_Lieferantenstamm" verwendet wird.

Habe ich hier etwas falsch gemacht?

Bis bald,
Annika

Anne Berg · 6. Mai 2013

Hi Annika,

"Parent!ArtSt_ID" ist auch korrekt geschrieben
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aber "ArtSt_ID" ist doch in "frm_Stueckliste" gar nicht enthalten!

anni92 · 6. Mai 2013

Hallo Anne,

bin jetzt etwas irritiert.
- frm_Artikelstamm + frm_Stueckliste sind zwei gleichwertige Hauptformulare (1. Hierarchie).
- frm_Artikelbestandteile ist ein Unterformular (2. Hierarchie) und "bedient" sozusagen die beiden oberen Hauptformulare.

aber "ArtSt_ID" ist doch in "frm_Stueckliste" gar nicht enthalten!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Muss ich "ArtSt_ID" in frm_Stueckliste einbauen? Ist mein Datenmodell falsch?

Viele Grüße,
Annika

Anne Berg · 6. Mai 2013

Du bist echt lustig! *wink.gif*

Wie willst du das Hauptformular "frm_Stueckliste" nach "ArtSt_ID" filtern, wenn es dieses Datenfeld überhaupt nicht enthält?!

Die angesichts des Beziehungsfensters erwartete n:m-Beziehung existiert also gar nicht.

Muss ich "ArtSt_ID" in frm_Stueckliste einbauen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nein, das Datenfeld hat dort nichts verloren.

Ist mein Datenmodell falsch?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich fürchte, Ja, denn...

Übrigens habe ich arge Bedenken, was die Tabelle "tbl_Artikelbestandteile" betrifft.
Du hast dort einfach eine zusätzliche Spalte eingefügt. Aber es ist entweder "ArtBestTeile_ArtSt_ref" oder "ArtBestTeile_Stueckl_ref" gefüllt.

Nachtrag:
Wie pflegst du diese Tabelle eigentlich?!

anni92 · 6. Mai 2013

Hi Anne,

habe jetzt ganz schnell eine Beispieldatenbank erstellt mit Kundenstamm und Lieferantenstamm und einem gemenisamen Unterformular mit den Adressen.
Ist das Datenmodell falsch?

Im Unterform frm_Adressen ist ja auch entweder die Kunden-ID-ref oder die Lieferant-ID-ref drin. So habe ich mir das überall in der Datenbank aufgebaut.

Wenn es falsch sein sollte, was ist dann die Alternative?

Viele Grüße,
Annika

Anne Berg · 6. Mai 2013

Im Unterform frm_Adressen ist ja auch entweder die Kunden-ID-ref oder die Lieferant-ID-ref drin. So habe ich mir das überall in der Datenbank aufgebaut.

Wenn es falsch sein sollte, was ist dann die Alternative?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Alternative könnte sein, die Adress-ID in den bezugnehmenden Tabellen zu speichern, also bei den Kunden und Lieferanten etc.

(accdb kann ich z.Zt. nicht öffnen. )

anni92 · 7. Mai 2013

Hi Anne,

habe noch eine 2003-er Version der gestrigen Datei erstellt, die sich vielleicht besser öffnen lässt.

Viele Grüße,
Annika

anni92 · 8. Mai 2013

Hi Anne,

jippie, ich habs geschafft! *dance *yelrotflmao *winner *happy
Ich habe Deinen Code aus #54 doch noch so umbauen können, dass er auch mit zwei oder mehr Hauptforms funktioniert!
Endlich: Nach langem Kopfzerbrechen und zig mal Umstellen, Probieren, Umstellen, Probieren, Umstellen, Probieren...
So sieht er jetzt aus:
Code:

Private Sub lbl_ArtBestTeile0_DblClick(Cancel As Integer)
' Prüft ob das Formular ein Öffnungsargument mitbekommen hat.
' Wenn es aus dem Unterformular geöffnet wird, ist dies der Fall.
If Me.OpenArgs = "aktiv" Then
' wenn ja dann schließe das Formular, denn es ist ja offen
DoCmd.Close acForm, Me.Name
Else
' wenn keine OpenArgs vorhanden sind, mach folgendes:
' Ist das Hauptformular geöffnet?
If CurrentProject.AllForms("frm_Artikelstamm").IsLoaded Then
' dann prüfe, ob es einen gültigen Key gibt
If Me.Parent.NewRecord Then
MsgBox "Kein Datensatz vorhanden"
Else
' öffne das Formular und gib ihm das Argument "aktiv" mit
' was oben für die Prüfung zum schließen gebraucht wird.
DoCmd.OpenForm "frm_Artikelbestandteile", , , _
"ArtBestTeile_ArtSt_ref=" & Parent!ArtSt_ID, , acDialog, "aktiv"
End If
End If
If CurrentProject.AllForms("frm_Stueckliste").IsLoaded Then
' dann prüfe, ob es einen gültigen Key gibt
If Me.Parent.NewRecord Then
MsgBox "Kein Datensatz vorhanden"
Else
' öffne das Formular und gib ihm das Argument "aktiv" mit
' was oben für die Prüfung zum schließen gebraucht wird.
DoCmd.OpenForm "frm_Artikelbestandteile", , , _
"ArtBestTeile_Stueckl_ref=" & Parent!Stueckl_ID, , acDialog, "aktiv"
End If
End If
' als Hauptformular geöffnet
DoCmd.Close acForm, Me.Name
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bis bald,
Annika

Office: (Office 2010) Unterformulare aufklappen

Unterformulare aufklappen

Unterformulare aufklappen

Unterformulare aufklappen

Unterformulare aufklappen

Unterformulare aufklappen

Unterformulare aufklappen - Similar Threads - Unterformulare aufklappen

Schriftart einer Tabelle im Unterformular verändern

Unterformular schrumpfen

MS Access Formular: Datensatz duplizieren mit Unterformularen

Listenfeld im Endlosformular

Spaltenposition in Unterformular ermitteln

Formular/ Unterformular/ m:n Beziehung

ID von Unterformular auf Registersteuerelement auslesen