Microsoft Access 掲示板

コードを見る限りは問題なさそうです。
実物をみないと原因の特定は難しそうです。

DoCmd.FindRecord はフォーカス移動させる必要があったり扱いが面倒なので、
別案を提案しておきます。

Private Sub Btn　自社コードで検索する_Click()

    If Nz(Me.自社コード検索, "") = "" Then
        MsgBox "自社コード入力欄　に値が入力されていません。自社コードを入力してください。"
        Me.SetFocus
        Me.自社コード検索.SetFocus
        Exit Sub
    End If

    With Forms![C15＿入出庫履歴＿メイン].Recordset
        .FindFirst "自社コード=" & Me.自社コード検索
        If .NoMatch Then
            DoCmd.Close acForm, Me.Name
        Else
            MsgBox "未登録のコードを入力しました。もう一度自社コードを確認してください。"
            Me.自社コード検索.SetFocus
        End If
    End With
End Sub

自社コード フィールドのデータ型が数値型の場合です。
テキスト型の場合は、下記のように ' で囲んでください。

        .FindFirst "自社コード='" & Me.自社コード検索 & "'"