Microsoft Access 掲示板

Microsoft Access 掲示板

バーコードを使って在庫品を検索したい / 9

19 コメント
views
4 フォロー
9
hatena 2019/05/08 (水) 08:35:22

検索（FindRecord ）した結果、JANコード と JANコード検索 が一致していなかったら、該当の JANコード が見つからなかったということなりますので、それを利用すればいいでしょう。

Private Sub JANコードで検索する_Click()
    Forms![F_1　在庫品マスター　入庫の登録画面].SetFocus
    Forms![F_1　在庫品マスター　入庫の登録画面]!JANコード.SetFocus
    DoCmd.FindRecord Me.JANコード検索, acEntire
    If Me.JANコード検索 = Forms![F_1　在庫品マスター　入庫の登録画面]!JANコード Then
        Docmd.Close acForm, Me.Name
    Else
        MsgBox "未登録のコードを入力しました。もう一度入力コードを確認してください。"
        Me.SetFocus
        Me.JANコード検索.SetFocus
    End If
End Sub
通報 ...