Close one form if record is found

This form searches for a check number in another form. If it exists, it opens that form.

Forms DISPLAY data they don't hold data. So, if you want to search for the existence of data you search through a table, not a form. If the form uses a filtered Recordsource, then you search through that Recordsource.

I see Ken suggested some better coding that you got to work. But you do need to understand how it works.

I had to make a couple changes but this worked

The simplest solution would be to use a combo box, whose RowSource is a query which returns all cheque numbers from the relevant table, as the control in the search form.  That way you can guarantee that the cheque exists.  The code for the combo box’s AfterUpdate event procedure would be like this:

    Dim strCriteria As String

    strCriteria = “CheckNr =" &  Me.ActiveControl

    If Not IsNull(Me.ActiveControl) Then

        DoCmd.OpenForm "CDfrmchecksort", WhereCondition:=strCriteria

        DoCmd.Close acForm, Me.Name
    End If

The above assumes that the CheckNr column is of a number data type.  If it’s of text data type amend the code as follows:

    strCriteria = "CheckNr = """ &  Me.ActiveControl & """"

This form searches for a check number in another form. If it exists, it opens that form.

Assuming the CheckNr column is of a number data type try this:

Private Sub cmdChecknr_Click()

    Const MESSAGE_TEXT = “No matching record found.”

    DoCmd.OpenForm "CDfrmchecksort",WhereCondition:="CheckNr = " & CheckNr

   If  Not IsNull(Forms(“CDfrmchecksort”).CheckNr) Then

       DoCmd.Close acForm, Me.Name

   Else

        DoCmd.Close acForm, “CDfrmchecksort”

        MsgBox MESSAGE_TEXT, vbInformation, “Warning”

    End If

Exit_cmdChecknr_Click:
    Exit Sub

Err_cmdChecknr_Click:
    MsgBox Err.Description
    Resume Exit_cmdChecknr_Click

End Sub

The above assumes that the CDfrmchecksort form’s recordset is updatable, so that the form would go to an empty new record if no match is found.  If you want the CheckNr control to receive focus when the form opens just make it the first control in the form’s detail section’s tab order.