Re: access control name from the sub

Tech Tip: Click here to run a free scan for Windows Errors and optimize PC performance

Putting the numeric value into the text box should work fine.

I don't see where you'd need to convert from string to integer.

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


"Souris" <Souris@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:E3360FCC-7332-4E88-8D1F-2AE84B556D0D@xxxxxxxxxxxxxxxx
I think that text box value is string and spind button value is integer.
Are there any way convert integer to string and string to integer?

Thanks again,

"Souris" wrote:

Thanks millions,

I have name conversion all the spin button have prefix spb and text boxes
have prefix txt and use following code

Me.Controls("txt" & Right(Screen.ActiveControl.Name, Len
(Screen.ActiveControl.Name - 3))).Value = Screen.ActiveControl.Value

I got type mismatch error

Do I missing anything here?

Thanks again,

"Douglas J. Steele" wrote:

Does each spin button correspond to a single text box? If so, you need
to
introduce a naming convention so that Spin03 is related to Text03.

If Screen.ActiveControl.Value > 100 Then
Response = MsgBox("You may enter up to 100 ", vbOKOnly)
Screen.ActiveControl.Value = 100
ElseIf Screen.ActiveControl.Value < 0 Then
Response = MsgBox("You have enter 0 ", vbOKOnly)
Screen.ActiveControl.Value = 0
Else
Me.Controls("Text", Right$(Screen.ActiveControl.Name, 2) =
Screen.ActiveControl.Value
End If


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


"Souris" <Souris@xxxxxxxxxxxxxxxxxxxxxxxxx> wrote in message
news:D814AE55-53D1-4770-865A-491B51A813C9@xxxxxxxxxxxxxxxx
Thanks for the message,
I have multi spin buttons and text box to let user enter intger data
using
spin button or text box on the form.

I want to synchronized the value between the text box and spin button
values.

I have onSpinButtonUpdate even like followin

If Screen.ActiveControl.Value > 100 Then
Response = MsgBox("You may enter up to 100 ", vbOKOnly)
Screen.ActiveControl.Value = 100

End If

If Screen.ActiveControl.Value < 0 Then
Response = MsgBox("You have enter 0 ", vbOKOnly)
Screen.ActiveControl.Value = 0

End If
txtFrequency.Value = spbFreq.Value

Screen.ActiveControl works to access the value and name.
I can move above code to a module to validate.

The problem is that I am unable to synchronize the value of text,
since I
can not access text control without its name.

Are there any way to access text box value to synchronize from spin
button
vise versa?

Thanks millions again for helping,


"Klatuu" wrote:

Multiple controls cannot share the save event procedure; however,
you can
do
what you want easily.
Since you have a form and a subform to deal with, my suggestion
would be
to
create a public function from the event code and put it in a
standard
module.
Then just call the sub from the on event property in the properties
dialog.
You don't need to know the name of the control. You can use
Screen.ActiveControl.
--
Dave Hargis, Microsoft Access MVP


"Souris" wrote:

I have several same controls on the form like spin buton.
Because it runs exactly same logic, but its name, I would like to
have
one
even code called by all the controls.

I need to know the name of the controls to do some actions.

I tried to use name, but it gives me the name of the form.
I tried self but VBA does not recognize it.

How can I access the control name from its events?

Your information is great appreciated,





.

Quantcast