Office: (Office 2013) Controls

ChrisG · 7. Oktober 2020

Hallo,
ich habe folgende Funktion geschrieben.

Code:

Public Sub setControl(inForm As String, inTag As String, inAttribut As Integer, inBoolean As Boolean)
'Setzt Attribute f?r bestimmte Controllelemente mit einem Tag-Wert
'inForm = Formularname auf dem das Steuerelement ist
'inTag = Tag-Bezeichnung des Steuerelementes
'inAttribut = 1 = Sourceobject
' 2 = Visible
'inBoolean = TRUE = Der Wert des Steuerlementes wird wenn m?glich auf true gesetzt
' FALSE = Der Wert des Steuerlementes wird wenn m?glich auf false gesetzt

'### Last Edit : 23.02.2009 ###

'### Ben?tigt keine weiteren Module ###

Dim ctl As Control

For Each ctl In Forms(inForm).Controls
If ctl.Tag = inTag Then
Select Case inAttribut
Case 1
If inBoolean = True Then
ctl.SourceObject = ctl.Name
Else
ctl.SourceObject = ""
End If

Case 2
ctl.Visible = inBoolean
End Select
End If
Next ctl
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Funktion soll alle Control-Elemente auf invisible setzen mit diesem Aufruf :

Call setControl("f_main_shift_input", CStr(i), 2, False)

Das klappt auch.

ABER nun rufe ich die Funktion im Formular "f_main_shift_input" welches ein Unterformular im Hauptformular "f_sys_config" ist.

Nun klappt das nicht mehr, da das Formular f_main_shift_input nicht mehr gefunden wird.

Wie muss ich das anpassen, damit dieser Code im Unterformular klappt ???

:)

CatboyJones · 9. Oktober 2020

Code:

Public Sub setControl(oForm As Form, ...

For Each ctl In oForm.Controls

Call setControl(Me, ...
Call setControl(Me.subForm.Form, ...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du verstehst was ich meine?

Maxel · 9. Oktober 2020

Zur Prüfung könntest Du diese Funktion anpassen:
Code:

If SysCmd(acSysCmdGetObjectState, acForm, Me.Name) = 0 Then
'Formular als Unterformular eingebunden
Else
'Formular als Hauptformular geöffnet
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ChrisG · 9. Oktober 2020

Hi,
leider verstehe ich noch nicht so ganz was du vor hast.
Einen rekursiven Aufruf ?

CatboyJones · 9. Oktober 2020

Wenn du die Parameter angepasst hast, kannst du das auch rekursiv verwenden.

Code:

Public Sub setControl(oForm As Form, inTag As String, inAttribut As Integer, inBoolean As Boolean)
Dim ctl As Control

For Each ctl In oForm.Controls
If ctl.ControlType = acSubform Then
setControl ctl.Form, inTag, inAttribut, inBoolean
ElseIf ctl.Tag = inTag Then
Select Case inAttribut
Case 1
If inBoolean = True Then
ctl.SourceObject = ctl.Name
Else
ctl.SourceObject = ""
End If

Case 2
ctl.Visible = inBoolean
End Select
End If
Next ctl

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2013) Controls

Controls

Controls

Controls

Controls - Similar Threads - Controls

Microsoft ImageComboBox Control 6.0 (SP6)

Bilddaten aus Speicher direkt ins Image control laden

WindowsMediaPlayer Control erstellen und bearbeiten

Slider Control 6.0 einbinden

Control an Sub übergeben

Zugriff auf das FlexGrid Control

Wie vorgehen bei Bennung der Controls auf Multipages