Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Textbox dynamisch ansprechen

Frage Entwicklung VB for Applications

Mitglied: 106543

106543 (Level 2)

02.09.2013 um 09:16 Uhr, 1406 Aufrufe, 4 Kommentare

Hallo Leute,

könnte mir einer sagen, was ich bei diesem Code-Snippet falsch mache bzw. wie ich es denn richtig umsetzen müsste ?
01.
Dim sName As String 
02.
sName = Me.ActiveControl.Name 
03.
 
04.
If Not IsNumeric(sName.Text) Then 
05.
    sName.Text = "" 
06.
    Exit Sub 
07.
End If 
08.
If sName.Text < 10 Then sName.Text = "0" & sName.Text 
09.
If sName.Text > 23 Then sName.Text = ""
in diesem Fall ist Me.ActiveControl.Name = "TextBox_Montag_Start_ST"

Grüße
Exze
Mitglied: colinardo
LÖSUNG 02.09.2013, aktualisiert 05.12.2013
Hallo Exze,
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
01.
set sName = Me.ActiveControl 
02.
 
03.
If Not IsNumeric(sName.Text) Then 
04.
    sName.Text = "" 
05.
    Exit Sub 
06.
End If 
07.
If sName.Text < 10 Then sName.Text = "0" & sName.Text 
08.
If sName.Text > 23 Then sName.Text = ""
Grüße Uwe
Bitte warten ..
Mitglied: 106543
02.09.2013, aktualisiert um 09:34 Uhr
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
01.
Dim objControl As Control 
02.
 
03.
For Each objControl In Controls 
04.
   Select Case TypeName(objControl) 
05.
      Case "TextBox" 
06.
         objControl.Text = "" 
07.
      Case "ComboBox" 
08.
         objControl.ListIndex = -1 
09.
      Case "CheckBox" 
10.
         objControl.Value = False 
11.
      Case "OptionButton" 
12.
         objControl.Value = False 
13.
   End Select 
14.
Next
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>
Bitte warten ..
Mitglied: colinardo
LÖSUNG 02.09.2013, aktualisiert 05.12.2013
Der Code ist eigentlich so OK, was stören könnte wäre das 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
Bitte warten ..
Mitglied: 76109
02.09.2013 um 11:17 Uhr
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
Bitte warten ..
Neuester Wissensbeitrag
Humor (lol)

Linkliste für Adventskalender

(3)

Information von nikoatit zum Thema Humor (lol) ...

Ähnliche Inhalte
Visual Studio
C-Sharp WPF Binding TextBox.Text und Property MVVM (die 2.) (4)

Frage von mayho33 zum Thema Visual Studio ...

Batch & Shell
gelöst Powershell: Suchen und dynamisch erweitern (2)

Frage von rkrausby zum Thema Batch & Shell ...

DNS
Zwei VPN Server via SRV record ansprechen (2)

Frage von maddig zum Thema DNS ...

VB for Applications
gelöst Zeilen dynamisch ausblenden (10)

Frage von Tollgemacht zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Windows Server
DHCP Server switchen (24)

Frage von M.Marz zum Thema Windows Server ...

SAN, NAS, DAS
gelöst HP-Proliant Microserver Betriebssystem (14)

Frage von Yannosch zum Thema SAN, NAS, DAS ...

Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...

Erkennung und -Abwehr
Spam mit eigener Domain (12)

Frage von NoobOne zum Thema Erkennung und -Abwehr ...