trying to code a number keypad, decimal point does not work

[bmonz4]

Hi all! unsure if this is the correct place to post this, if not sorry!



I am new to using Access and trying to create a number keypad to be used in Access 365. All the number, as well as the "clear," buttons work, but I cannot get a decimal point to get inserted into the field for the life of me. I was wondering if someone can look at this code I used and try to fix it for me.

Thanks!

Private Sub NumDecimal_Click()
If Not CurrentTextBox Is Nothing Then
If InStr(CurrentTextBox.Value, ".") = 0 Then
CurrentTextBox.Value = CurrentTextBox.Value & "."
End If
End If
End Sub


for reference, here is the "1" digit code, that works fine and basically works with all my other digits

Private Sub Num1_Click()
If Not CurrentTextBox Is Nothing Then
CurrentTextBox.Value = CurrentTextBox.Value & "1"
End If
End Sub

[June7]

What do you mean by 'field'? A table field or an unbound textbox?

Display of decimal point followed by zeros is a format setting for numeric values. If you are entering a string, that is different issue.

Any help in https://www.access-programmers.co.uk...yboard.156617/

[bmonz4]

It is a text box, or several text boxes that I am using. Again, all the number buttons and clear button works on all the text boxes, except for this darn decimal point!

When I use the decimal point on my regular keyboard, it inserts a decimal.. if that means anything as well

Thanks for the quick response!

[Bob Fitz]

Perhaps the key is broken? Does it work in other applications?

[davegri]

Is the 'field' defined as an integer or long integer? By definition integers are whole numbers and do not allow decimal entry.

[bmonz4]

I do not think it is broken. I tried making a new button with a different name and still same issue

I have the field formatted as "Currency" with 2 decimal places

The a decimal point DOES get inserted into the selected textbox when I use my keyboard and everything functions correctly, the decimal DOES NOT get inserted when I use the number keypad I made, which is extremely frustrating.. but again, all numbers 0-9 work as well as the clear button on all the selected textboxes

[Welshgasman]

Upload your DB with just enought to replicate the issue.

[davegri]

This works fine for me.
Here's the form (unbound)



Here's the VBA

Option Compare Database
Option Explicit


Private Sub CE_Click()
    CurrentTextBox = Null
End Sub


Private Sub Num0_Click()
    If Not CurrentTextBox Is Nothing Then
        CurrentTextBox.Value = CurrentTextBox.Value & "0"
    End If
End Sub


Private Sub Num1_Click()
    If Not CurrentTextBox Is Nothing Then
        CurrentTextBox.Value = CurrentTextBox.Value & "1"
    End If
End Sub
Private Sub Num2_Click()
    If Not CurrentTextBox Is Nothing Then
        CurrentTextBox.Value = CurrentTextBox.Value & "2"
    End If
End Sub
Private Sub Num3_Click()
    If Not CurrentTextBox Is Nothing Then
        CurrentTextBox.Value = CurrentTextBox.Value & "3"
    End If
End Sub
Private Sub Num4_Click()
    If Not CurrentTextBox Is Nothing Then
        CurrentTextBox.Value = CurrentTextBox.Value & "4"
    End If
End Sub
Private Sub Num5_Click()
    If Not CurrentTextBox Is Nothing Then
        CurrentTextBox.Value = CurrentTextBox.Value & "5"
    End If
End Sub
Private Sub Num6_Click()
    If Not CurrentTextBox Is Nothing Then
        CurrentTextBox.Value = CurrentTextBox.Value & "6"
    End If
End Sub
Private Sub Num7_Click()
    If Not CurrentTextBox Is Nothing Then
        CurrentTextBox.Value = CurrentTextBox.Value & "7"
    End If
End Sub
Private Sub Num8_Click()
    If Not CurrentTextBox Is Nothing Then
        CurrentTextBox.Value = CurrentTextBox.Value & "8"
    End If
End Sub
Private Sub Num9_Click()
    If Not CurrentTextBox Is Nothing Then
        CurrentTextBox.Value = CurrentTextBox.Value & "9"
    End If
End Sub

'NOTE: fixes bug in your published code which will not allow leading decimal point
'Unclear if this is your original complaint
Private Sub NumDecimal_Click()
    If CurrentTextBox & "" = "" Then
        CurrentTextBox = "0."
    Else
        If InStr(CurrentTextBox.Value, ".") = 0 Then
            CurrentTextBox.Value = CurrentTextBox.Value & "."
        End If
    End If
End Sub

[bmonz4]

It actually does work in an unbound textbox for me, but I need to have it function on a bound textbox… is there a big difference in how I would code it?

I double checked format, decimal, field size, and data type in tables and forms sections, and I can’t find what’s wrong

[June7]

Again, perhaps you should provide your file.

[davegri]

bmonz-davegri-v01.zip

I double checked format, decimal, field size, and data type in tables and forms sections,

The form is manipulating a string, so the table field should be short text.
In the form, the format property should be blank
The data tab text format property should be 'plain text'

[davegri]

I see a couple of problems with having the solution I provided in post#11 using a bound form.
For example, when the form loads, it will always show the value of the first record in the table. I suspect you want it to show nothing.
you've provided no context for the form's existence, so it's unknown how the form will know which record in the table to update.

You have been asked twice to provide your database and have not responded. If you had done so, I think your problem would have been much closer to resolution by now.
The main reason I put people on my ignore list is because they ignore requests for vital information.

[Welshgasman]

It actually does work in an unbound textbox for me, but I need to have it function on a bound textbox… is there a big difference in how I would code it?

I double checked format, decimal, field size, and data type in tables and forms sections, and I can’t find what’s wrong

Update the bound control from the unbound control?