VBAを使用してODBCテキスト列にアクセステキストボックスを妥当性チェック

Question

データに接続する際に問題があるようですが、正しいことを確認するために、データベース列に対してテキストボックスを検証するよう確認されましたソース（ODBC接続のリンクテーブル） 誰かが私が間違っている場所を強調表示できる場合。私のVBAはほとんど存在しません。

Private Sub Command65_Click() 

    Dim sCnxnStr As String 
    Dim db As database 
    sCnxnStr = "ODBC;DSN=Matrix" 
    Set db = CurrentDb 
    Dim queryString As String '"SELECT "SERIAL" FROM ["TABLE]" WHERE "SERIAL" = "'Serial Number' "'. 
    If "SERIAL" = "'Serial Number'" Then 
    MsgBox "Serial Number is Correct'.", 16, msgboxtitle 
    Else 
    MsgBox "Serial Number is Not Correct'.", 16, msgboxtitle 
End If 
End Sub 

Answer 1

これは、それを簡略化することがあります

Dim buf 
Dim SerialNumber As String 
SerialNumber = "123" 

buf = DLookup("Serial", "Table", "Serial = '" & SerialNumber & "'") 
If Not IsNull(buf) Then 
    MsgBox "Serial Number is Correct.", 1, msgboxtitle 
Else 
    MsgBox "Serial Number is Not Correct.", 1, msgboxtitle 
End If