運行時錯誤“13”類型不匹配 - 訪問數據庫

Question

我正在嘗試將兩個文本字段 txtTrailerNumber 和 txtSealNumber 與數據庫表 Tab_TrailerDetails 進行比較。 表中列出的 [TrailerNumber] 和 [SealNumber]。

我試圖讓數據庫查看表格中輸入的拖車號，如果發現重復值，則查看表格中輸入的封條號。 如果兩個值在表中都有重復，它應該拋出 Msg_Box 錯誤代碼。

Private Sub txtSealNumber_AfterUpdate()

Dim NewTrailer, NewSeal As String
Dim stLinkCriteria As String


'Assign the entered Trailer Number and Seal Number to a variable
NewTrailer = Me.txtTrailerNumber.Value
NewSeal = Me.txtSealNumber.Value

stLinkCriteria = ("[TrailerNumber]='" & NewTrailer & "'" And "[SealNumber]='" & NewSeal & "'")

If Me.txtTrailerNumber = DLookup("[TrailerNumber]", "Tab_TrailerDetails", stLinkCriteria) Then

   MsgBox "This trailer, " & NewTrailer & ", has already been entered in database," _
              & vbCr & vbCr & "along with seal " & NewSeal & "" _
              & vbCr & vbCr & "Please make sure Trailer and Seal are not already entered.", vbInformation, "Duplicate information"
     
'undo the process and clear all fields
    Me.Undo
    

End If

End Sub

Answer 1

錯誤的原因是您有一個邏輯關鍵字，尤其是字符串表達式中的AND 。 將您的代碼更改為

stLinkCriteria = ("[TrailerNumber]='" & NewTrailer & "' And [SealNumber]='" & NewSeal & "'")