Only Numbers in textbox

[DaveRussell]

Hi there, first... thanks for all the contributions you people make in this forum, i have gotten many a question answered just by reading the posts.

second: I am trying to create a text box that will only allow numbers to be imputted into it when a certain contition is true... here is my code:

Private Sub bSearch_Click()

Dim searchResults As DAO.Recordset
Dim selectStr As String

If ogSearchBy.Value = 1 Then
    selectStr = "SELECT * FROM lclCustomerInfo WHERE ciLastName = '" & tbSearch.Value & "';"
ElseIf ogSearchBy.Value = 2 Then
    selectStr = "SELECT * FROM lclCustomerInfo WHERE ciUserName = '" & tbSearch.Value & "';"
ElseIf ogSearchBy.Value = 3 Then
    selectStr = "SELECT * FROM lclCustomerInfo WHERE AcctID = " & tbSearch.Value & ";"
End If

Set db = CurrentDb
Set searchResults = db.OpenRecordSet(selectStr)

MsgBox (searchResults.RecordCount)

End Sub

Private Sub tbSearch_KeyPress(KeyAscii As Integer)

If ogSearchBy.Value = 3 Then
  'only allow numbers to be entered
End If
End Sub

So, if anyone has any ideas... i got this to work in .NET using a SELECT/CASE statement, but i can't figure it out now. go figure. thanks in advance

dave.

 

[DaveRussell]

Okay, well i just figured out one way using the IsNumeric() Function:

If ogSearchBy.Value = 1 Then
    selectStr = "SELECT * FROM lclCustomerInfo WHERE ciLastName = '" & tbSearch.Value & "';"
ElseIf ogSearchBy.Value = 2 Then
    selectStr = "SELECT * FROM lclCustomerInfo WHERE ciUserName = '" & tbSearch.Value & "';"
ElseIf ogSearchBy.Value = 3 Then

    If IsNumeric(tbSearch.Value) = False Then
     MsgBox ("This is not a valid search term for this search type.  Please enter a valid account number")
     Exit Sub
    Else
      selectStr = "SELECT * FROM lclCustomerInfo WHERE AcctID = " & tbSearch.Value & ";"
    End If
    
End If

it would still be nice to just validate as they entered it into the field though.

 

[RoyVidar]

Hi!

[tt]Private Sub tbSearch_KeyPress(KeyAscii As Integer)

If ogSearchBy.Value = 3 Then
if keyascii<=48 or keyascii>=57 then
keyascii=0 ' cancelling the keystroke
end if
End If
End Sub[/tt]

- ensure the forms keypreview property is set to yes

Roy-Vidar

 

[DaveRussell]

Hey! that's perfect Roy-Vidar, thanks! i don't suppose you know the backspace number off hand, do you? i'd like them to be able to use that one too

 

[PHV]

BasckSpace is 8

Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884