I am aware of how to manually set an individual text or listbox to force caps, however I was wondering if there is a way to force the entire userform to do so?
I have several hundred objects here and I figured I would ask before going to town copy/pasting for an hour.
either in the CHANGE event
txtbox = ucase(txtbox)
or
rather than program all of the controls, Ucase them all when user clicks SAVE button
Please Login or Register to view this content.
Even with that method I still need a line for every control sadly. I guess I should have clarified that better, when I said manually I guess I meant "individually with VBA".
I was thinking about setting them all on the "save" event as you suggested, but again that's a loooot of copy and pasting so I was hoping for something that could just set everything on the entire userform at once, even if that includes labels.
Good evening IMMTech
Loop through the objects - the code below will go through the textboxes. The example assumes there are only 3.
HTHPlease Login or Register to view this content.
DominicB
So, if I am looking at that correctly, the textboxes need to be named Textbox1, Textbox2, Textbox3, etc.
Unfortunately I have named them all relative to what information they contain for ease of keeping up with my code and fixing problems that may occur.
That would certainly do it otherwise.
Perhaps in the future I will simply stick to the default textbox numbering and try to keep track of it solely with notes instead.
Hi IMM Tech
You don't have to do it this way - I was just being lazy, and you didn't specify otherwise ...
Use this code to run through all textboxes in Userform1, irrespective of how they are named.
HTHPlease Login or Register to view this content.
DominicB
So, thanks for the replies thus far, however to me this is remarkably vague and assumes I understand the context of each of those components and variables, which I do not.
I'm gonna try to decipher what you have posted for myself. Please correct me if I am wrong.
"TypeName" refers to a given type of object or class. I assume this is setting "texty" as a variable which would need to be defined... I am guessing something like "dim texty as object" (or something like that?).
Since texty is set as a textbox after beginning to "For Each" with texty, I don't see how that can function.
"For Each" tells it to check the entire userform for all objects and do the action/code defined after "Then" on all objects that match whatever "texty" is defined as (textbox).
Next tells it to continue the check and move on to the next object and repeat.
I believe the code needed to set "texty" as upper case is "texty.value = UCase(texty)"
I will assume again that the msgbox has nothing to do with what I want.
So I will now try this.
This throws an error on the very first line so I will define "texty" as a thing with "dim texty as object".Please Login or Register to view this content.
After defining "texty" as an object, it throws "object required" at me and highlights the second line, presumably because "texty" doesn't actually exist as it hasn't been defined as a text box until after we are already trying to use it.
From here I have no clue where to go.
Last edited by IMM Tech; 02-27-2018 at 02:50 PM.
Hi IMM Tech
Apologies - I gave a bad example. It shows how the structure works, but now how to use it to solve your issue.
The code below has just been tested with one userform (called UserForm1 in this instance - that bit's important), 3 textbuttons and a command button.
When the command button is clicked, the textboxes become uppercase.
HTHPlease Login or Register to view this content.
DominicB
Works perfectly, thanks.
I don't know why I missed the stupid userform1 thing. Bad day perhaps.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks