Creating a form in VBA that will display search results in DS view

[mnsemple83]

This question may have been answered in an earlier thread but...

I am trying to create a form in VBA for Access that will return the results of a search in Datasheet view. Here is the code that I have written:

    If Len(cmbSearchField) = 0 Or IsNull(cmbSearchField) = True Then
        MsgBox "You must select a field to search."
 
    ElseIf Len(txtSearchTxt) = 0 Or IsNull(txtSearchTxt) = True Then
        MsgBox "You must enter a search string."
 
    Else
        Dim frmResults As Form
        Set frmResults = CreateForm
 
        'Generate search criteria
        GCriteria = cmbSearchField.Value & " LIKE '*" & txtSearchTxt & "*'"
 
        'Filter frmDatabaseMainScreen_2 based on search criteria
        'Form_frmDatabaseMainScreen_2.RecordSource = "select * from tblPatients where " & GCriteria
        'Form_frmDatabaseMainScreen_2.Caption = "Database (" & cmbSearchField.Value & " contains '*" & txtSearchTxt & "*')"
        frmResults.RecordSource = "select * from tblPatients where " & GCriteria
        frmResults.Caption = "Database (" & frmDatabaseMainScreen_2.cmbSearchField.Value & " contains '*" & frmDatabaseMainScreen_2.txtSearchTxt & "*')"
 
        DoCmd.OpenForm "frmResults", acFormDS

Any suggestions or answers?

[rpeare]

I'm assuming it doesn't work?

You don't really say if this is a problem or if you're looking for a better solution or if you're getting an error message or anything.