Find Record Command

[betterdayz]

hi...im trying to design the "find record" command whereby the user enters an ID Number and than clicks ok and the database does a search for that particular ID...the wizard command uses find and replace but rather i would just like to have "find record"..ive read recent forums on the same question and decided to try a script that was posted in one of the forums...here is the script
Dim strFindID As String


strFindID = InputBox("Enter the ODSTL/Licensce_No:")


If IsNumeric(strFindID) Then
With Me.RecordsetClone
.FindFirst "[ODSTL/Licensce_No]=" & strFindID
If .NoMatch Then
MsgBox "Sorry, couldn't find that ID#."
Else
Me.Bookmark = .Bookmark
End If
End With
Else
MsgBox "Please enter a valid ID#!"
End If

I've added this script to the "find record" command button but it still doesnt work..the command button is designed to be in a form....please help.....

[ADezii]

hi...im trying to design the "find record" command whereby the user enters an ID Number and than clicks ok and the database does a search for that particular ID...the wizard command uses find and replace but rather i would just like to have "find record"..ive read recent forums on the same question and decided to try a script that was posted in one of the forums...here is the script
Dim strFindID As String


strFindID = InputBox("Enter the ODSTL/Licensce_No:")


If IsNumeric(strFindID) Then
With Me.RecordsetClone
.FindFirst "[ODSTL/Licensce_No]=" & strFindID
If .NoMatch Then
MsgBox "Sorry, couldn't find that ID#."
Else
Me.Bookmark = .Bookmark
End If
End With
Else
MsgBox "Please enter a valid ID#!"
End If

I've added this script to the "find record" command button but it still doesnt work..the command button is designed to be in a form....please help.....

You're dimensioning strFindID as a String but checking to see if it is Numeric - is ODSTL/Licensce_No a Number or String? If it is a String in a Numeric Format, then the Syntax is wrong.

[betterdayz]

You're dimensioning strFindID as a String but checking to see if it is Numeric - is ODSTL/Licensce_No a Number or String? If it is a String in a Numeric Format, then the Syntax is wrong.

ODSTL is a number....Each cutomer has a unique ODSTL number...It is labelled as such - Licensce_No - ODSTL 002/01..The Licensce_No is an attribute in the tale. Which syntax do i need to change??

[ADezii]

ODSTL is a number....Each cutomer has a unique ODSTL number...It is labelled as such - Licensce_No - ODSTL 002/01..The Licensce_No is an attribute in the tale. Which syntax do i need to change??

Assuming ODSTL/Licensce_No is the name of the Field in the underlying RecordSource of your Form, and you have already stated that it is Unique, then:

Dim varFindID As Variant
 
varFindID = InputBox("Enter the ODSTL/Licensce_No:")
 
If IsNumeric(varFindID) Then
  With Me.RecordsetClone
    '.FindFirst "[ODSTL/Licensce_No]=" & varFindID
    If .NoMatch Then
      MsgBox "Sorry, couldn't find that ID#."
    Else
      Me.Bookmark = .Bookmark
    End If
  End With
ElseIf Len(CStr(varFindID)) = 0 Then
  'User pressed Cancel or OK with no entry in Text Box, just let go
Else     'if it gets to this point, something was entered but it wasn't a Number
  MsgBox "Please enter a valid ID#!"
End If