106543
Sep 02, 2013
2326
4
0
Textbox dynamisch ansprechen
Hallo Leute,
könnte mir einer sagen, was ich bei diesem Code-Snippet falsch mache bzw. wie ich es denn richtig umsetzen müsste ?
in diesem Fall ist Me.ActiveControl.Name = "TextBox_Montag_Start_ST"
Grüße
Exze
könnte mir einer sagen, was ich bei diesem Code-Snippet falsch mache bzw. wie ich es denn richtig umsetzen müsste ?
Dim sName As String
sName = Me.ActiveControl.Name
If Not IsNumeric(sName.Text) Then
sName.Text = ""
Exit Sub
End If
If sName.Text < 10 Then sName.Text = "0" & sName.Text
If sName.Text > 23 Then sName.Text = "" Grüße
Exze
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 215836
Url: https://administrator.de/contentid/215836
Printed on: April 19, 2024 at 20:04 o'clock
4 Comments
Latest comment
Hallo Exze,
machs so
Grüße Uwe
sName ist kein Objekt sondern nach deinem Script ein String, deswegen kannst du in Zeile 4 nicht mit sName.Text abfragen! bzw. in Zeile 5 und weiter den Text setzen.machs so
set sName = Me.ActiveControl
If Not IsNumeric(sName.Text) Then
sName.Text = ""
Exit Sub
End If
If sName.Text < 10 Then sName.Text = "0" & sName.Text
If sName.Text > 23 Then sName.Text = ""
Hi Uwe,
wunderbar dank dir ;)
hätte ich auch selbst drauf kommen können ...
Jetzt ist allerding ein neues Problem aufgetaucht :D
könntest du mal drüberschauen ?
Der Code liegt hinter einem Button, der die Userform clearen soll
bringt die Meldung "Laufzeitfehler '424': Objekt erforderlich"
Danke schonmal
Grüße
Exze
<EDIT>
ok Problem gelöst ;)
der Code war nicht direkt hinter dem Button gelegen, sondern in einem seperaten Modul, klar dass sich dann das Objekt auf nichts bezieht.
</EDIT>
wunderbar dank dir ;)
hätte ich auch selbst drauf kommen können ...
Jetzt ist allerding ein neues Problem aufgetaucht :D
könntest du mal drüberschauen ?
Der Code liegt hinter einem Button, der die Userform clearen soll
Dim objControl As Control
For Each objControl In Controls
Select Case TypeName(objControl)
Case "TextBox"
objControl.Text = ""
Case "ComboBox"
objControl.ListIndex = -1
Case "CheckBox"
objControl.Value = False
Case "OptionButton"
objControl.Value = False
End Select
NextDanke schonmal
Grüße
Exze
<EDIT>
ok Problem gelöst ;)
der Code war nicht direkt hinter dem Button gelegen, sondern in einem seperaten Modul, klar dass sich dann das Objekt auf nichts bezieht.
</EDIT>
Der Code ist eigentlich so OK, was stören könnte wäre das
Setz mal einen Breakpoint und bewege dich dann Schritt für Schritt mit F8 durch den Code, bis die Fehlermeldung kommt. Dann weist du in welcher Zeile eventuell der Fehler liegt.
Grüße Uwe
Controls in Zeile3, ändere das mal in Me.Controls.Setz mal einen Breakpoint und bewege dich dann Schritt für Schritt mit F8 durch den Code, bis die Fehlermeldung kommt. Dann weist du in welcher Zeile eventuell der Fehler liegt.
Grüße Uwe
Hallo Exce!
Wobei im ersten Code z.B. die Werte "0", "0.x" oder "0,x" oder "-1" auch als Numeric-Werte durchgehen...
Gruß Dieter
Wobei im ersten Code z.B. die Werte "0", "0.x" oder "0,x" oder "-1" auch als Numeric-Werte durchgehen...
Gruß Dieter
