Hallo,
gibt es eine Möglichkeit, die Text-Eigenschaften von ca. 50 Textboxen mit einem kurzen Steuerbefehl, evt. einer For EachNext-Schleife auf .text="", also leer, zu stellen, ohne die Dialogbox zu entladen?
Gruß Wilhelm
die einfachste lösung ist wenn die textboxen alle denselben namen haben und sich nur durch den index unterscheiden.
Dann kannst du das einfach mit einer for schleife lösen:
for i = 0 to 50
textboxname(i).text=""
next i
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Leider haben sämtliche Boxen unterschiedliche Namen, also txty, txty txtz pp.
Hast Du dafür auch eine Lösung, mit der ich nicht 50 x die Eigenschaft ändern muß?
Gruß Wilhelm
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Leider haben sämtliche Boxen unterschiedliche Namen, also
txty, txty txtz pp.
macht nix…
…eine Lösung, mit der ich nicht 50 x die Eigenschaft
ändern muß?
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
ctl.Text = ""
End If
Next
greets from michL (vienna)
Danke zunächst für die Hilfe. Jetzt funktioniert das Entleeren bei den txtboxen; wenn ich die Prozedur aber auf Comboboxen anwenden will, deren Value auf False gestellt werden soll, funktioniert es nicht; das Drop-down Fenster bei ctl. zeigt für V nur Visible aber nicht Value! Ist diese Hürde auch zu nehmen?
Gruß Wilhelm
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
wenn ich die Prozedur aber auf Comboboxen
anwenden will, deren Value auf False gestellt werden soll,
funktioniert es nicht; das Drop-down Fenster bei ctl. zeigt
für V nur Visible aber nicht Value! Ist diese Hürde auch zu
nehmen?
sorry … ich verstehe Deine Frage / Problem nicht?!? Eine ComboBox hat kein Property ‚Value‘. Bitte etwas anders beschreiben!
greets from michL
Hi michL,
offenbar war ich bei meinem posting heute morgen noch nicht ganz wach; hab’ bereits Asche auf mein Haupt gestreut.
Natürlich bezieht sich meine Frage nicht auf eine Combo-Box, sondern auf eine Checkbox. Ist Value = false da hinzubekommen?
Gruß Wilhelm
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
offenbar war ich bei meinem posting heute morgen noch nicht
ganz wach; hab’ bereits Asche auf mein Haupt gestreut.
einen wunderschönen guten morgeeeen! 
Natürlich bezieht sich meine Frage nicht auf eine Combo-Box,
sondern auf eine Checkbox. Ist Value = false da hinzubekommen?
here it is:
Dim ctl As Control
For Each ctl In Me.Controls
If TypeOf ctl Is TextBox Then
ctl.Text = ""
ElseIf TypeOf ctl Is CheckBox Then
ctl.Value = False
End If
Next
greets from michL (vienna)
Hi michL,
also: die Form hat 50 txtboxen und 50 chkboxen. Sowohl die txtboxen als a u c h die ckboxen sollen geleert bzw. auf Value = False gestellt werden; müsste der zweite Teil des Codes nicht so aussehen:
For Each ctlx In Me.Controls
If TypeOf ctlx Is CheckBox Then
ctlx.Value = False('Dieses False ist im Drop-Down-Feld nicht angezeigt und funktioniert nicht, wenn man Value = False manuell eingibt.)
End If
Next ctlx
Funktioniert das etwa auf Deinem System? Wenn ja, müsste ich Bier in meine Zentraleinheit gießen. Bitte melde Dich noch einmal. Da capo also: (txtbox.text:="" und chkbox.Value = False)
Gruß Wilhelm
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
oki-doki … keine Panik.
mit
http://webinsel.lion.cc/stlucia/190077/Download/test…
bekommst Du ein kleines Test-Projekt mit 50 Text- und 50 CheckBoxen die auf Knopfdruck „geleert“ werden.
Hoffe, dass es das ist!!!
greets from michL
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Rover,
Gut gemacht … *klatsch*
*Lach* … wir sehen uns im Chat !!
Mfg Maik Jannasch