Number pad... (or on screen keyboard)

Chrisopia said:

Basically Ive just asked for what I need, a number pad.

See eventually we're getting touch screens because the shelf for the computer is going so we only have enough room for a monitor, which is all we need.

I have done this before with a department box, you click on the box and the department pad opens up, and enters an number (department number) into the relavent box (department ID) and thus the department appears,

however this time I require to string figures together... for instance pressing 1 will not close the box off, and pressing 2 after it will not erase the 1 previously pressed... but pressing a CL key will clear the box completely.

Click to expand...

Oldsoftboss said:

This is something that may help from here.....

http://www.access-programmers.co.uk/forums/showthread.php?t=99444&highlight=public+terminal

Dave

Click to expand...

missinglinq said:

Doing it for multiple fields is a little harder but can be done

Code:

Private Sub Form_Current()
  Me.AnyTextBox.SetFocus
End Sub

Private Sub CL_Click()
  Screen.PreviousControl = Null
  Screen.PreviousControl.SetFocus
End Sub

Private Sub Key1_Click()
If IsNull(Screen.PreviousControl) Then
  Screen.PreviousControl = "1"
  Screen.PreviousControl.SetFocus
Else
  Screen.PreviousControl = Screen.PreviousControl & "1"
  Screen.PreviousControl.SetFocus
End If
End Sub

Click to expand...

missinglinq said:

In order for the comma you're using as a decimal mark to be used with this field, the field's datatype has to be changed from Float to Text. If the field is only being used for display and you will not be using it for mathematical operations, it really doesn't need to be defined as a float, does it?

Click to expand...

SELECT
SUM(Order_Value) AS Sum_Order
FROM dbo.Canteen

missinglinq said:

You don't say whether you're planning to use this "keypad" to enter data in one field or multiple fields.

One field is fairly easy, with the buttons being repeated for digits 3-0

Code:

Private Sub Key1_Click()
If IsNull(Me.FieldA) Then
  Me.FieldA = "1"
Else
  Me.FieldA = Me.FieldA & "1"
End If
End Sub

Private Sub Key2_Click()
If IsNull(Me.FieldA) Then
  Me.FieldA = "2"
Else
  Me.FieldA = Me.FieldA & "2"
End If
End Sub

Private Sub CL_Click()
  Me.FieldA = Null
End Sub

Doing it for multiple fields is a little harder but can be done

Code:

Private Sub Form_Current()
  Me.AnyTextBox.SetFocus
End Sub

Private Sub CL_Click()
  Screen.PreviousControl = Null
  Screen.PreviousControl.SetFocus
End Sub

Private Sub Key1_Click()
If IsNull(Screen.PreviousControl) Then
  Screen.PreviousControl = "1"
  Screen.PreviousControl.SetFocus
Else
  Screen.PreviousControl = Screen.PreviousControl & "1"
  Screen.PreviousControl.SetFocus
End If
End Sub

Private Sub Key2_Click()
If IsNull(Screen.PreviousControl) Then
  Screen.PreviousControl = "2"
  Screen.PreviousControl.SetFocus
Else
  Screen.PreviousControl = Screen.PreviousControl & "2"
  Screen.PreviousControl.SetFocus
End If
End Sub

Click to expand...