Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

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, 1444 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 ..
Ähnliche Inhalte
VB for Applications
gelöst VBA Textbox fokussieren und Daten über Button eintragen (1)

Frage von Aximand zum Thema VB for Applications ...

Visual Studio
gelöst VB bestimmte Stelle im Bild highlighten wenn MouseOver Textbox? (9)

Frage von PixL86 zum Thema Visual Studio ...

Microsoft Office
gelöst VBA Excel Problem mit UserForm, ListBox und TextBox (12)

Frage von abuelito zum Thema Microsoft Office ...

Exchange Server
gelöst Dynamische Verteilergruppe (9)

Frage von justdan zum Thema Exchange Server ...

Neue Wissensbeiträge
Windows 10

Heise Newsticker: Microsoft veröffentlicht das "Fall Creators Update

(8)

Information von Penny.Cilin zum Thema Windows 10 ...

LAN, WAN, Wireless

Schwachstelle im WPA2 Protokoll veröffentlicht

(3)

Information von colinardo zum Thema LAN, WAN, Wireless ...

Heiß diskutierte Inhalte
Windows Server
gelöst Gruppenrichtlinie greift nicht zu! (23)

Frage von Syosse zum Thema Windows Server ...

Hosting & Housing
Mailserver Software Empfehlungen (15)

Frage von sunics zum Thema Hosting & Housing ...

Windows 7
gelöst Windows 7 Anmeldedomäne festlegen (13)

Frage von flotaut zum Thema Windows 7 ...