Office: (Office 2016) Alle Felder aktivieren / deaktivieren

tinocio · 20. Juni 2020

Guten Morgen,
ich möchte miteinem Befehl alle Textfelder aktivieren bzw. deaktivieren.
Dabei möchte ich nicht jedes Feld einzeln ansprechen sondern ich suche nach einen Lösung / Befehl für alle.

Danke

:)

hcscherzer · 21. Juni 2020

Mit einer einzigen Anweisung wird das nicht gehen.

Aber Du kannst mit einer For ... Each Schleife durch sämtliche Controls iterieren, jeweils den Typ prüfen und wenn es ein Textfeld ist, en- oder disablen.

tinocio · 21. Juni 2020

Danke, das werde ich sofort versuchen !!!!*Smilie *Smilie

tinocio · 22. Juni 2020

Meine Kenntnisse sind dazu leider nicht ausreichend
Den Code fand ich im Netz, leider meldet er , das das Elemnet nicht unterstützt wird.

Code:

Private Sub Befehl0_Click()
Dim Ctrl As Control

For Each Ctrl In Me.Controls
If Ctrl.GetType().Name = "TextBox" Then
Ctrl.Enabled = False
End If
Next Ctrl
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Was ist falsch.
Bitte nochmals um Unterstützung

Danke

fraeser · 22. Juni 2020

Lies den ControlType aus!

https://www.devhut.net/2010/12/05/ms...ols-on-a-form/

Hubert111 · 22. Juni 2020

Das sollte weiterhelfen:

Code:

'Felder Enabled = False
Dim i%, C As Control

For i = 0 To Me.Controls.count - 1
Set C = Me.Controls(i)

' Textfelder nicht anzeigen
If TypeOf C Is TextBox Then
C.Enabled = False
End If

' CheckBoxen nicht anzeigen
If TypeOf C Is CheckBox Then
C.Enabled = False
End If

' Kombifelder nicht anzeigen
If TypeOf C Is ComboBox Then
C.Enabled = False
End If

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

hcscherzer · 23. Juni 2020

\@Hubert:
Wenn Du kommentierst "... nicht anzeigen", dann sollte anschließend nicht die Eigenschaft .enabled behandelt werden sondern die Eigenschaft .visible
Hier war ja aber nur das aktivieren gefragt ...
Ich würde es so machen:
Code:

sub text_an_aus(an as boolean)
dim c as control

for each c in me.controls
if c.controltype = actextbox then
c.enabled = an
end if
next
end sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jetzt kann man sich zwei Buttons in den Formularkopf platzieren und deren OnClick Prozedur mit der obigen Prozedur verbinden: Code:

sub an_button_click()
text_an_aus true
end sub

sub aus_button_click()
text_an_aus false
end sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beaker s.a. · 23. Juni 2020

Hallo,
Es gibt ja nicht nur TextBoxen, sondern alle möglichen Controls, die man
"abschalten" kann. Und auch wenn der Entwickler wissen sollte, welche
Controls er auf dem Form verwendet, würde ich das ganz "dirty" so machen
Code:

sub text_an_aus(an as boolean)
On Error Resume Next '!

dim c as control

for each c in me.controls
c.enabled = an
next

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

gruss ekkehard

Wo sind die Einrückungen geblieben? *entsetzt

NeuerMann1978 · 23. Juni 2020

Wo sind die Einrückungen geblieben?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bei Zitaten gibt es keine Einrückungen. *grins

Beaker s.a. · 23. Juni 2020

Uuups, geändert.

Office: (Office 2016) Alle Felder aktivieren / deaktivieren

Alle Felder aktivieren / deaktivieren

Alle Felder aktivieren / deaktivieren

Alle Felder aktivieren / deaktivieren

Alle Felder aktivieren / deaktivieren

Alle Felder aktivieren / deaktivieren - Similar Threads - Felder aktivieren deaktivieren

Keine Feldaktualisierung über Abschnittsumbrüche hinaus

Felder: Hochgestellter Text bleibt nicht erhalten

Feld in Abhängigkeit eines Dropdowns

Intelligente Tabelle mit mehreren Überschrift-Feldern

Mehrere Abfragen mit gleichen Kriterien in bestimmten Felder

Zeichenformatvorlagen für Felder

Abfrage mit leeren Feldern