Access Search Form

[scgamecock]

I am trying to build a search form that will display the data if the data exist and if the disposal check box is checked. I would like for an error message to display if the data exist, but the disposal check box is unchecked. I also would like an error message to display if the data does not exist at all.

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
 

[Scott Price]

I am trying to build a search form that will display the data if the data exist and if the disposal check box is checked. I would like for an error message to display if the data exist, but the disposal check box is unchecked. I also would like an error message to display if the data does not exist at all.

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
 

To check if the check box is unchecked :-)

If Me!DisposalCheckBox = 0 Then

...

On your second error message, it looks like you have code for that already? Where are you running into problems on that?

Regards,
Scott