Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Private Sub cmdSearchAll_Click()
DoCmd.OpenTable "tblItemDetail"
End Sub
Private Sub cmdSearchItem_Click()
Dim strSQL As String
strSQL = "SELECT * " & _
"INTO tblResults " & _
"FROM tblItemDetail " & _
"WHERE Item# = '" & txtItemNumber & "'"
DoCmd.RunSQL
DoCmd.OpenTable "tblResults"
strSQL = vbNullString
End Sub
Private Sub cmdSearch_Click()
If IsNull(txtItem) Then
DoCmd.OpenTable "tblItemDetail"
Else
Dim strSQL As String
strSQL = "SELECT * " & _
"INTO tblResults " & _
"FROM tblItemDetail " & _
"WHERE Item# = '" & txtItemNumber & "'"
DoCmd.RunSQL
DoCmd.OpenTable "tblResults"
strSQL = vbNullString
End If
End Sub