Function as event handler

"Gary Schuldt" wrote in message


(FYI, the plant botanical names, consisting of Family, Genus,
species, and Cultivar have their case rules set by an international
standard. Lucky me! I can auto-correct whatever the user types, at
least as far as case goes.)

That is handy. The names of people are not so easy to get right.

--
Dirk Goldgar, MS Access MVP
www.datagnostics.com

(please reply to the newsgroup)

names of people

Like e e cummings . . . or my former colleague III (pronounced like the
numeral 3) . . . or my hometown next door nabors the VanTines . . . as
opposed to the von Trapps . . . but all of them would be offended by my
PCase function. Fortunately, the plants are more orderly!

Gary

"Dirk Goldgar" wrote in message
...
"Gary Schuldt" wrote in message


(FYI, the plant botanical names, consisting of Family, Genus,
species, and Cultivar have their case rules set by an international
standard. Lucky me! I can auto-correct whatever the user types, at
least as far as case goes.)

That is handy. The names of people are not so easy to get right.

--
Dirk Goldgar, MS Access MVP
www.datagnostics.com

(please reply to the newsgroup)

"doh"! Thanks, Doug...got my fingers tongue-tied on this one!

--

Ken Snell
MS ACCESS MVP

"Douglas J. Steele" wrote in message
...
Actually, you need to set the value of Screen.ActiveControl. It doesn't
matter whether or not the function returns a value:

Public Function MyUcase() As String
Screen.ActiveControl.Value = UCase(Screen.ActiveControl.Value)
End Function


--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)



"Ken Snell [MVP]" wrote in message
...
I believe you must create your own function and call it, not use the
built-in function that requires an argument.

Create this function in a regular module:

Public Function MyUcase() As String
MyUcase = UCase(Screen.ActiveControl.Value)
End Function


Then use MyUcase() as the event handler function.

--

Ken Snell
MS ACCESS MVP

"Gary Schuldt" wrote in message
...
I thought I could code a function reference in the event-handler box
for
a
control, but I'm missing something, since I can't get it to work.

I want to make a text field all upper case AfterUpdate.

The Expression Builder guides me through to yield the entry:

=Ucase([txtFld])

but it doesn't work. When I type lower-case letters into the field
and
tab
out, they remain lower-case.

I know I've seen this done before!

Gary

Hello Group

Maybe wrong thinking or not but why not just format the field which must
have uppercases with

Herman

"Gary Schuldt" wrote in message
...
I thought I could code a function reference in the event-handler box for a
control, but I'm missing something, since I can't get it to work.

I want to make a text field all upper case AfterUpdate.

The Expression Builder guides me through to yield the entry:

=Ucase([txtFld])

but it doesn't work. When I type lower-case letters into the field and
tab
out, they remain lower-case.

I know I've seen this done before!

Gary

Herman,

Actually, what I really wanted to do was more complex than that . . . I just
didn't admit it! I had several different controls with different case
requirements, including the need to capitalize the first letter of every
word the user typed in on one of the controls.

So I got what I wanted--a way to manipulate the active control with a
function reference, something I can reuse in the future.

Thanks for your suggestion.

Gary

"hermie" wrote in message
...
Hello Group

Maybe wrong thinking or not but why not just format the field which must
have uppercases with

Herman

"Gary Schuldt" wrote in message
...
I thought I could code a function reference in the event-handler box for
a
control, but I'm missing something, since I can't get it to work.

I want to make a text field all upper case AfterUpdate.

The Expression Builder guides me through to yield the entry:

=Ucase([txtFld])

but it doesn't work. When I type lower-case letters into the field and
tab
out, they remain lower-case.

I know I've seen this done before!

Gary

I cannot get this code to work. Please tell me what I am doing wrong.

I opened the properties for the field that I wish to have converted to
uppercase, Clicked the "..." button on the "After Update" line under "Event"
tab.
Selected "Code Builder" from options.
Pasted the suggested code but it still did not work. Am I supposed to
replace "Screen", "ActiveControl" and/or "Value" with specific information?

Trina Gray


"Gary Schuldt" wrote:

Ah, that's the trick! I remember now:

1. It HAS to be a user function to be used in one-liner event handler
context

2. It doesn't matter what the function value is set to

3. The function code (or something it calls, like a Sub) must set the
value(s) you want.

How COULD I have forgotten?? g

Thanks,

Doug

"Douglas J. Steele" wrote in message
...
Actually, you need to set the value of Screen.ActiveControl. It doesn't
matter whether or not the function returns a value:

Public Function MyUcase() As String
Screen.ActiveControl.Value = UCase(Screen.ActiveControl.Value)
End Function


--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)



"Ken Snell [MVP]" wrote in message
...
I believe you must create your own function and call it, not use the
built-in function that requires an argument.

Create this function in a regular module:

Public Function MyUcase() As String
MyUcase = UCase(Screen.ActiveControl.Value)
End Function


Then use MyUcase() as the event handler function.

--

Ken Snell
MS ACCESS MVP

"Gary Schuldt" wrote in message
...
I thought I could code a function reference in the event-handler box
for
a
control, but I'm missing something, since I can't get it to work.

I want to make a text field all upper case AfterUpdate.

The Expression Builder guides me through to yield the entry:

=Ucase([txtFld])

but it doesn't work. When I type lower-case letters into the field
and
tab
out, they remain lower-case.

I know I've seen this done before!

Gary

I cannot get this code to work. Please tell me what I am doing wrong.

I opened the properties for the field that I wish to have converted to
uppercase, Clicked the "..." button on the "After Update" line under "Event"
tab.
Selected "Code Builder" from options.
Pasted the suggested code but it still did not work. Am I supposed to
replace "Screen", "ActiveControl" and/or "Value" with specific information?

Trina Gray


"Gary Schuldt" wrote:

Ah, that's the trick! I remember now:

1. It HAS to be a user function to be used in one-liner event handler
context

2. It doesn't matter what the function value is set to

3. The function code (or something it calls, like a Sub) must set the
value(s) you want.

How COULD I have forgotten?? g

Thanks,

Doug

"Douglas J. Steele" wrote in message
...
Actually, you need to set the value of Screen.ActiveControl. It doesn't
matter whether or not the function returns a value:

Public Function MyUcase() As String
Screen.ActiveControl.Value = UCase(Screen.ActiveControl.Value)
End Function


--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)



"Ken Snell [MVP]" wrote in message
...
I believe you must create your own function and call it, not use the
built-in function that requires an argument.

Create this function in a regular module:

Public Function MyUcase() As String
MyUcase = UCase(Screen.ActiveControl.Value)
End Function


Then use MyUcase() as the event handler function.

--

Ken Snell
MS ACCESS MVP

"Gary Schuldt" wrote in message
...
I thought I could code a function reference in the event-handler box
for
a
control, but I'm missing something, since I can't get it to work.

I want to make a text field all upper case AfterUpdate.

The Expression Builder guides me through to yield the entry:

=Ucase([txtFld])

but it doesn't work. When I type lower-case letters into the field
and
tab
out, they remain lower-case.

I know I've seen this done before!

Gary

You don't put the function in the form's module.

Create this function in a regular module:

Public Function MyUcase() As String
Screen.ActiveControl.Value = UCase(Screen.ActiveControl.Value)
End Function

Then use MyUcase() as the event handler function.

--

Ken Snell
MS ACCESS MVP

"Trina Gray" Trina wrote in message
...
I cannot get this code to work. Please tell me what I am doing wrong.

I opened the properties for the field that I wish to have converted to
uppercase, Clicked the "..." button on the "After Update" line under
"Event"
tab.
Selected "Code Builder" from options.
Pasted the suggested code but it still did not work. Am I supposed to
replace "Screen", "ActiveControl" and/or "Value" with specific
information?

Trina Gray


"Gary Schuldt" wrote:

Ah, that's the trick! I remember now:

1. It HAS to be a user function to be used in one-liner event handler
context

2. It doesn't matter what the function value is set to

3. The function code (or something it calls, like a Sub) must set the
value(s) you want.

How COULD I have forgotten?? g

Thanks,

Doug

"Douglas J. Steele" wrote in message
...
Actually, you need to set the value of Screen.ActiveControl. It
doesn't
matter whether or not the function returns a value:

Public Function MyUcase() As String
Screen.ActiveControl.Value = UCase(Screen.ActiveControl.Value)
End Function


--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)



"Ken Snell [MVP]" wrote in message
...
I believe you must create your own function and call it, not use the
built-in function that requires an argument.

Create this function in a regular module:

Public Function MyUcase() As String
MyUcase = UCase(Screen.ActiveControl.Value)
End Function


Then use MyUcase() as the event handler function.

--

Ken Snell
MS ACCESS MVP

"Gary Schuldt" wrote in message
...
I thought I could code a function reference in the event-handler
box
for
a
control, but I'm missing something, since I can't get it to work.

I want to make a text field all upper case AfterUpdate.

The Expression Builder guides me through to yield the entry:

=Ucase([txtFld])

but it doesn't work. When I type lower-case letters into the
field
and
tab
out, they remain lower-case.

I know I've seen this done before!

Gary

You don't put the function in the form's module.

Create this function in a regular module:

Public Function MyUcase() As String
Screen.ActiveControl.Value = UCase(Screen.ActiveControl.Value)
End Function

Then use MyUcase() as the event handler function.

--

Ken Snell
MS ACCESS MVP

"Trina Gray" Trina wrote in message
...
I cannot get this code to work. Please tell me what I am doing wrong.

I opened the properties for the field that I wish to have converted to
uppercase, Clicked the "..." button on the "After Update" line under
"Event"
tab.
Selected "Code Builder" from options.
Pasted the suggested code but it still did not work. Am I supposed to
replace "Screen", "ActiveControl" and/or "Value" with specific
information?

Trina Gray


"Gary Schuldt" wrote:

Ah, that's the trick! I remember now:

1. It HAS to be a user function to be used in one-liner event handler
context

2. It doesn't matter what the function value is set to

3. The function code (or something it calls, like a Sub) must set the
value(s) you want.

How COULD I have forgotten?? g

Thanks,

Doug

"Douglas J. Steele" wrote in message
...
Actually, you need to set the value of Screen.ActiveControl. It
doesn't
matter whether or not the function returns a value:

Public Function MyUcase() As String
Screen.ActiveControl.Value = UCase(Screen.ActiveControl.Value)
End Function


--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)



"Ken Snell [MVP]" wrote in message
...
I believe you must create your own function and call it, not use the
built-in function that requires an argument.

Create this function in a regular module:

Public Function MyUcase() As String
MyUcase = UCase(Screen.ActiveControl.Value)
End Function


Then use MyUcase() as the event handler function.

--

Ken Snell
MS ACCESS MVP

"Gary Schuldt" wrote in message
...
I thought I could code a function reference in the event-handler
box
for
a
control, but I'm missing something, since I can't get it to work.

I want to make a text field all upper case AfterUpdate.

The Expression Builder guides me through to yield the entry:

=Ucase([txtFld])

but it doesn't work. When I type lower-case letters into the
field
and
tab
out, they remain lower-case.

I know I've seen this done before!

Gary

By regular module are you refering to creating a new module? Please explain
how I "use MyUcase() as the event handler function".

Thanks,
Trina Gray

"Ken Snell [MVP]" wrote:

You don't put the function in the form's module.

Create this function in a regular module:

Public Function MyUcase() As String
Screen.ActiveControl.Value = UCase(Screen.ActiveControl.Value)
End Function

Then use MyUcase() as the event handler function.

--

Ken Snell
MS ACCESS MVP

"Trina Gray" Trina wrote in message
...
I cannot get this code to work. Please tell me what I am doing wrong.

I opened the properties for the field that I wish to have converted to
uppercase, Clicked the "..." button on the "After Update" line under
"Event"
tab.
Selected "Code Builder" from options.
Pasted the suggested code but it still did not work. Am I supposed to
replace "Screen", "ActiveControl" and/or "Value" with specific
information?

Trina Gray


"Gary Schuldt" wrote:

Ah, that's the trick! I remember now:

1. It HAS to be a user function to be used in one-liner event handler
context

2. It doesn't matter what the function value is set to

3. The function code (or something it calls, like a Sub) must set the
value(s) you want.

How COULD I have forgotten?? g

Thanks,

Doug

"Douglas J. Steele" wrote in message
...
Actually, you need to set the value of Screen.ActiveControl. It
doesn't
matter whether or not the function returns a value:

Public Function MyUcase() As String
Screen.ActiveControl.Value = UCase(Screen.ActiveControl.Value)
End Function


--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)



"Ken Snell [MVP]" wrote in message
...
I believe you must create your own function and call it, not use the
built-in function that requires an argument.

Create this function in a regular module:

Public Function MyUcase() As String
MyUcase = UCase(Screen.ActiveControl.Value)
End Function


Then use MyUcase() as the event handler function.

--

Ken Snell
MS ACCESS MVP

"Gary Schuldt" wrote in message
...
I thought I could code a function reference in the event-handler
box
for
a
control, but I'm missing something, since I can't get it to work.

I want to make a text field all upper case AfterUpdate.

The Expression Builder guides me through to yield the entry:

=Ucase([txtFld])

but it doesn't work. When I type lower-case letters into the
field
and
tab
out, they remain lower-case.

I know I've seen this done before!

Gary