theinviter
Registered User.
- Local time
- Today, 06:28
- Joined
- Aug 14, 2014
- Messages
- 265
HI
i Have a form which filter after entering code number, as code below;
but i wannt to show msg box if no record found and cancel filter, how to modify the code below:
Private Sub filterThisForm1()
Dim strFilter As String
On Error GoTo err_handler
If Len(Trim$(Me!Combo79 & "")) Then
strFilter = "code = '" & Me!Combo79.Column(2) & "' Or [Other Code] = '" & Me!Combo79.Column(3) & "'"
Else
strFilter = "code like '" & Me!FindCode & "' Or [Other Code] like '" & Me!FindCode & "'"
End If
With Me
.Filter = strFilter
.FilterOn = True
![Table1 Subform].Form.FilterOn = False
Me.Table1_Subform.SetFocus
DoCmd.GoToControl ("[Qnty_IN]")
DoCmd.GoToRecord , , acNewRec
End With
exit_here:
Exit Sub
err_handler:
MsgBox Err.Number & ": " & Err.Description
Resume exit_here
End Sub
i Have a form which filter after entering code number, as code below;
but i wannt to show msg box if no record found and cancel filter, how to modify the code below:
Private Sub filterThisForm1()
Dim strFilter As String
On Error GoTo err_handler
If Len(Trim$(Me!Combo79 & "")) Then
strFilter = "code = '" & Me!Combo79.Column(2) & "' Or [Other Code] = '" & Me!Combo79.Column(3) & "'"
Else
strFilter = "code like '" & Me!FindCode & "' Or [Other Code] like '" & Me!FindCode & "'"
End If
With Me
.Filter = strFilter
.FilterOn = True
![Table1 Subform].Form.FilterOn = False
Me.Table1_Subform.SetFocus
DoCmd.GoToControl ("[Qnty_IN]")
DoCmd.GoToRecord , , acNewRec
End With
exit_here:
Exit Sub
err_handler:
MsgBox Err.Number & ": " & Err.Description
Resume exit_here
End Sub