Search Form

[scgamecock]

I am trying to create a search form. I would like to have the form to search to see if the data exist and if the disposal check box is checked. If so then display the data. If the data exist and the check box is unchecked then display an error message. If the data does not exist at all, then display a different error message.

Here is the code I have so far:

Option Compare Database
Private Sub cmdSearch_Click()
    Dim strSampleNumber As String
    Dim strSearch As String
    
'Check txtSearch for Null value or Nill Entry first.

    If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then
        MsgBox "Please enter a value!", vbOKOnly, "Invalid Search Criterion!"
        Me![txtSearch].SetFocus
        
    Exit Sub
End If
'---------------------------------------------------------------
        
'Performs the search using value entered into txtSearch
'and evaluates this against values in strStudentID
        
    DoCmd.ShowAllRecords
    DoCmd.GoToControl ("sampleno")
    DoCmd.FindRecord Me!txtSearch
        
    sampleno.SetFocus
    strSampleNumber = sampleno.Text
    txtSearch.SetFocus
    strSearch = txtSearch.Text
        
'If matching record found sets focus in strStudentID and shows msgbox
'and clears search control

    If strSampleNumber = strSearch Then
        MsgBox "Match Found For: " & strSearch, , "Congratulations!"
        txtSearch.SetFocus
        txtSearch = ""
        
    'If value not found sets focus back to txtSearch and shows msgbox
        Else
          MsgBox "Sample ID " & strSearch & " has not been disposed.", _
            , "Invalid Sample ID!"
            txtSearch.SetFocus
            txtSearch = ""
    End If
End Sub
/code]