Office: (Office 2016) Source Object per VBA aendern

Hallo,

ich habe eine Form inder ich viele verschiedene Subforms aufrufen muss.
Nun will ich aber nur ein Subformfeld in meiner Form haben.
Um alle verschiedenen Subforms nacheinander anzeigen zu lassen, will ich die Object Source von dem Subformfeld einfach aendern.

Kann mir jemand sagen wie ich das in dem Form-Modul schreiben muss?


Name der Form: frm_ReuTemplate
Name des Subformfeldes: Popup
Name der globalen Variable die in die Source Object eingetragen wird: PIP

Name der Subform1: sub_REU_Selection
Name der Subform2: sub_Operational_REU

:)

 

Aus dem Hauptformular heraus:
Code:

 

Leider funktioniert das auch nicht.
Bei mir würde das also so heissen:
Me.Popup.Form.SourceObject = PIP

Die Fehlermeldung ist folgende: Invalid Qualifier

 

Hallo Klimber,
das ist eine gängige Praxis, die ich auch verwendet. Allerdings solltest du dich an die üblichen Namenskonventionen halten, damit es weniger Missverständnisse gibt.

Subformfeld -> SubForm und im Text dann SubForm Control (nicht Feld)
Popup als Name ist sehr unglücklich, damit wird eher eine bestimmte Einstellung bzw, ein besonderes Verhalten von Formularen verbunden.
Formulare die vorzugsweise als SubForm instanziert werden, bekommen meistens den Prefix "sfr", wohin gegen "normale" Formulare überlicherweise mit dem Prefix "frm" gekennzeichnet werden.

Zurück zu deinem Problem:
Um dynamisch dem SubForm-Control ein neues Formular zuzuweisen:
innerhalb von frm_ReuTemplate: Me.subForm.SourceObject = "sfr...."

Wenn die globale Variable PIP den Namen eines zu ladenden Unterformulars enthält:
Me.subForm.SourceObject = PIP

(siehe auch: Forms: Refer to Form and Subform properties and controls)

Ich verwende ubrigens ein Interface, welches in den Unterformularen implementiert wird. Damit hat das Unterformular die Möglichkeit, auf bestimmte Aktionen zu reagieren. Zum Beispiel werden vor dem "Entladen (Unbind)" aus dem Hauptformular die Methode Save() und GetItemData() aufgerufen, um dem Unterformualr die Change zu geben, Inhalte zu sichern und mit GetItemData Returncodes an das Hauptformular zurück zu übermitteln. Init() ist selbstredend.

PHP:

         ' *****************************************************************************
' Interface:  IBindable
' *****************************************************************************
'
Option Compare Database
Option Explicit

Public Function Save() As Boolean
End Function

Public Function GetItemData() As Variant
End Function

Public Sub Init()
End Sub


 

Super!

Das hat funktioniert!

Danke für die vielen Tips