in-form keypad NUMBER pad

[696796]

Hi,

Bit of a tricky one, just wondering how i should approach this. Can a keypad (numbers0-9) be created in a form or as a subform, so that a user can click a button eg button1, and that will put 1 in the text field they are on.

Can this be done/is it difficult to do/any ideas????!!

Thanks for your time,

Regards,

Alex

 

[ClydeData]

Create 10 buttons

name each text box 1 , 2 3 etc

use this eitheer on the on click of each number button or as a function

Me.MyTextBox = Me.MyTextBox & Screen.ActiveControl.Name


Best wishes

Jimmy

 

[696796]

Jimmy,

Thanks for your feedback, I'm not quite sure on what is happening. In my head:-

Each button is

btnTextbox1
btnTextbox2 etc...

Then the on-click event

Me.MyTextBox = Me.MyTextBox & Screen.ActiveControl.Name

Not too sure whats happening here. how does this assign a number to the textbox that the curser is in?

Would it be possible for you to explain this furthur, i'm really interested in how this will work as it will make my application complete!

Really apreciate your expertise and knowledge, thanks in advance

Alex

 

[randy700]

Try this...
Create 10 buttons. Name them cmdZero through cmdNine. Define a variable such as strTextbox. In the Got Focus event of each text box that can receive data from the buttons, place this code...
strTextbox = me.TextBoxName

Now create this function...
Private Function FillTextBox(intX as Integer)
Select Case strTextbox
Case "FirstTextboxName":
me.FirstTextboxName = intX
Case "SecondTextboxName":
me.SecondTextboxName = intX
Case ...continue for as many as needed...
End Select
End Function

In the click event of each button...
Call FillTextBox(Number)


Randy

 

[ClydeData]

there are also the many popup tools available on line

thise has a calculator and number pad

http://easyweb.easynet.co.uk/~trevor/downloads/popups.zip

Jimmy

 

[696796]

Thanks for for feedback guys, i'm trying your method Randy. here's what ive done...


At the top ive declared:-

Dim strTextBox As String

I have this function:-

Private Function FillTextBox(intX As Integer)
   Select Case strTextBox
      Case "Text78":
         Me.Text78 = intX
      Case "Text80":
         Me.Text80 = intX
     
   End Select
End Function

And this for the On-Click of button 1:-

Private Sub Command98_Click()
Call FillTextBox(1)
End Sub

And this for the get_focus of textbox (text78)

Private Sub Text78_GotFocus()
[aqua]strTextBox = Me.Text78[/aqua]
End Sub

i'm getting runtime error 94 - invalid use of null, and it takes me to the above line of code

Can you see what i may have got wrong or what this error means?

Thanks again for your help, its really very much apreciated,

Regards,

Alex

 

[696796]

Sorry forgot to say i did declare the variable strTextbox as a string and an int and neither worked,

Cheers

Al

 

[RoyVidar]

Looks like randy700's code might work with the following alteration of the

[tt]Private Function FillTextBox(intX as Integer)
me(strTextbox).value = intX ' or perhaps
' me(strTextbox).value = me(strTextbox).value & intX
' to concatinate the text
End Function[/tt]

And the GotFocus event might perhaps look like this:

[tt]Private Sub Text78_GotFocus()
strTextBox = "Text78" ' the name of the control
End Sub[/tt]

Roy-Vidar

 

[randy700]

Change this...
Private Sub Text78_GotFocus()
strTextBox = Me.Text78
End Sub

to this...
Private Sub Text78_GotFocus()
strTextBox = "Text78"
End Sub


Randy