My form finds the record, but when I click the button to load the information into another form, the info does not transfer from the search.
Can any help?
Here is my code:
Private Sub Command8_Click()
On Error GoTo handler
Dim strID As String
strID = InputBox("Enter ID Number", "Search Box")
If [ID].Value = strID Then
Me.RecordsetClone.FindFirst "[ID] like '" & strID & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
Else
Me.RecordsetClone.FindFirst "[ID] like '" & strID & "'"
If Me.RecordsetClone.NoMatch Then
MsgBox "no record found"
Else
Me.Bookmark = Me.RecordsetClone.Bookmark
End If
End Sub
Can any help?
Here is my code:
Private Sub Command8_Click()
On Error GoTo handler
Dim strID As String
strID = InputBox("Enter ID Number", "Search Box")
If [ID].Value = strID Then
Me.RecordsetClone.FindFirst "[ID] like '" & strID & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
Else
Me.RecordsetClone.FindFirst "[ID] like '" & strID & "'"
If Me.RecordsetClone.NoMatch Then
MsgBox "no record found"
Else
Me.Bookmark = Me.RecordsetClone.Bookmark
End If
End Sub