Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Unterformular austauschen
zurück: Ribbons abgeschaltet - Rechte Maustatse einschalten weiter: Daten in Excel exportieren und Drucken ( Kontrollkästchen ) Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
stan_1958
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Nov 2009, 20:35
Rufname:

Unterformular austauschen - Unterformular austauschen

Nach oben
       Version: Office 2003

Hallo,

diese Frage wurde hier bereits einmal im Forum gestellt (nicht von mir) ist allerdings unbeantwortet geblieben.
Ich habe ein Hauptformular und hier gibt es dann ein Unterformular.
Das Unterformular soll in Abhängigkeit von einem in einem Kombifeld (Hauptformular) ausgewählten Wert ein anderes (bereits erstelltes) Unterformular anzeigen.
Natürlich könnte ich die Recordsource des Unterformulares ändern. Hier müssten dann allerdings so viele Info´s angezeigt werden, dass die Sache unübersichtlich wird.
Also: Kombilfeld Wert = "Otto" --> angezeigtes UFO = "1"
Kombifeld Wert = "Fritz" --> angezeigtes UFO = "2"

Gibt´s hier eine Lösung oder einen Lösungsansatz
Danke für eure Hilfe
jens05
Moderator


Verfasst am:
25. Nov 2009, 21:22
Rufname:
Wohnort: ~~~~~


AW: Unterformular austauschen - AW: Unterformular austauschen

Nach oben
       Version: Office 2003

Hallo,
du könntest die Eigenschaft "Herkunftsobjekt" (SourceObject) entsprechend deines gewünschten Formulares für das UF Element einstellen.

Öffne das Form im Entwurf, suche dir im Eigenschaftenfenster des Kombis das Ereignis "Nach Aktualisierung". Wähle dort [Ereignisprozedur] aus. Jetzt ein Klick rechts auf die 3 Punkte. Im VBA-Editor solltest du folgende Zeilen vorfinden.
Code:
Private Sub Kombiname_AfterUpdate()

End Sub
Dazwischen weist du dem Ufoelement eine neue Herkunft zu
Code:
    SELECT CASE Nz(Me!Kombiname)
      Case "Otto":  Me!UFoElement.SourceObject = "NamedesFormulares"
      Case "Fritz":  Me!UFoElement.SourceObject = "NamedesanderenFormulares"
    End Select

_________________
mfg jens05 Wink
stan_1958
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Nov 2009, 21:39
Rufname:

Re: AW: Unterformular austauschen - Re: AW: Unterformular austauschen

Nach oben
       Version: Office 2003

Hallo Jens,
danke für die schnelle Antwort. Ausprobiert habe ich es jetzt noch nicht (die Bayern spielen sofort). Falls ich noch eine Rückfrage habe, werde ich mich noch mal melden.
Ansonsten noch einmal herzlichen Dank!


jens05 - 25. Nov 2009, 20:22 hat folgendes geschrieben:
Hallo,
du könntest die Eigenschaft "Herkunftsobjekt" (SourceObject) entsprechend deines gewünschten Formulares für das UF Element einstellen.

Öffne das Form im Entwurf, suche dir im Eigenschaftenfenster des Kombis das Ereignis "Nach Aktualisierung". Wähle dort [Ereignisprozedur] aus. Jetzt ein Klick rechts auf die 3 Punkte. Im VBA-Editor solltest du folgende Zeilen vorfinden.
Code:
Private Sub Kombiname_AfterUpdate()

End Sub
Dazwischen weist du dem Ufoelement eine neue Herkunft zu
Code:
    SELECT CASE Nz(Me!Kombiname)
      Case "Otto":  Me!UFoElement.SourceObject = "NamedesFormulares"
      Case "Fritz":  Me!UFoElement.SourceObject = "NamedesanderenFormulares"
    End Select
tk6
SAP-Consultant


Verfasst am:
25. Nov 2009, 21:49
Rufname:

AW: Unterformular austauschen - AW: Unterformular austauschen

Nach oben
       Version: Office 2003

Achtung: Edit, s.u.
Falls die Lösung von Jens nicht funktioniert (was ich befürchte, aber nicht hoffe), kannst du es auf jeden Fall mit einem "plumpen Trick" machen. Du baust beide UFos in das HF. Eines davon verkleinerst du auf ca. 2x1cm und schiebst es irgendwohin, wo noch Platz auf dem Formular ist. Da stellst du die Eigenschaft "Visisble" dieses UFo auf "False".

Anschließend gibst du folgenden Code in eine Prozedur ein, z.B. in der Ereignisprozedur "Button_Click" eines Befehlsbuttons:
Code:
Private Sub Befehl17_Click()
    Dim kUfo As Long
    Dim uWidth1 As Long
    Dim uHeight1 As Long
    Dim uLeft1 As Long
    Dim uTop1 As Long
   
    If Me.frm_Auftrag.Width < 2000 Then
        kUfo = 2
      Else
        kUfo = 1
    End If
    Me.frm_Auftrag.Visible = False 'Achtung: Kein Fehler, verhindert das "Flackern"
    Me.frm_Auftrag2.Visible = False
    uWidth1 = Me.frm_Auftrag2.Width
    Me.frm_Auftrag2.Width = Me.frm_Auftrag.Width
    Me.frm_Auftrag.Width = uWidth1
    uHeight1 = Me.frm_Auftrag2.Height
    Me.frm_Auftrag2.Height = Me.frm_Auftrag.Height
    Me.frm_Auftrag.Height = uHeight1
    uLeft1 = Me.frm_Auftrag2.Left
    Me.frm_Auftrag2.Left = Me.frm_Auftrag.Left
    Me.frm_Auftrag.Left = uLeft1
    uTop1 = Me.frm_Auftrag2.Top
    Me.frm_Auftrag2.Top = Me.frm_Auftrag.Top
    Me.frm_Auftrag.Top = uTop1
    If kUfo = 1 Then
        Me.frm_Auftrag.Visible = False
        Me.frm_Auftrag2.Visible = True
        kUfo = 2
      Else
        Me.frm_Auftrag2.Visible = False
        Me.frm_Auftrag.Visible = True
        kUfo = 1
    End If
End Sub

Edit, 261109, 01:23:
Habe die Lösung von Jens getestet und sie funktioniert. Die umständliche Lösung von mir ist also nicht notwendig. Allerdings kann man diese Technik für Formularobjekte nutzen, die man zur Laufzeit nicht hinzufügen oder weglassen kann. Ob es solche gibt, weiß ich nicht. Dann ist es eben eine Spielerei mit Variablen...

_________________
Beste Grüße

tk
stan_1958
Im Profil kannst Du frei den Rang ändern


Verfasst am:
03. Dez 2009, 20:53
Rufname:


Re: AW: Unterformular austauschen - Re: AW: Unterformular austauschen

Nach oben
       Version: Office 2003

Hallo Tk6,

danke auch für deine Hilfe. Habe beide Lösungen erfolgreich ausprobieren können.

Beste Grüsse
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular nach Zeitspanne filtern 2 Udosym 105 01. Dez 2013, 14:48
MaHumba Unterformular nach Zeitspanne filtern
Keine neuen Beiträge Access Tabellen & Abfragen: Per VBA neuen Datensatz in Unterformular 5 turbochris 9357 28. Aug 2013, 16:57
sponsorsearch Per VBA neuen Datensatz in Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Berechnung in Unterformular 1 Bollerkohl 100 09. Okt 2012, 08:19
kyron9000 Berechnung in Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Laufende Uhrzeit im Unterformular 3 Iron70 305 23. Sep 2012, 07:57
Iron70 Laufende Uhrzeit im Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular Neuer Datensatz nicht am Schluss 1 chris374 389 03. März 2012, 10:56
KlausMz Unterformular Neuer Datensatz nicht am Schluss
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular per SQL füllen / Objekt geschlossen... 6 htc.zenit 513 15. Feb 2012, 18:12
Gast Unterformular per SQL füllen / Objekt geschlossen...
Keine neuen Beiträge Access Tabellen & Abfragen: SQL Append Query Fremdschlüssel austauschen VBA 1 gg019 994 07. Apr 2011, 10:33
gg019 SQL Append Query Fremdschlüssel austauschen VBA
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular für Artikelbestellung 5 JochenGAST 304 01. März 2011, 20:10
KlausMz Unterformular für Artikelbestellung
Keine neuen Beiträge Access Tabellen & Abfragen: Variabler Wert in einem Abhängigem Unterformular 7 Ogni 589 07. Feb 2011, 18:45
Bitsqueezer Variabler Wert in einem Abhängigem Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Leere Abfrage wenn kein Wert im Unterformular??? 5 Gast 588 23. Dez 2010, 15:02
Willi Wipp Leere Abfrage wenn kein Wert im Unterformular???
Keine neuen Beiträge Access Tabellen & Abfragen: Design Unterformular 5 boernie62 826 30. Jul 2010, 21:36
derArb Design Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage in Unterformular 3 Hundshamer 302 25. Mai 2010, 11:22
blackoutNO Abfrage in Unterformular
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS