數據類型不匹配錯誤

Question

這裏是我當前的代碼：

Dim SQL As String 
Dim firstDate As Date 
Dim firstemployee As String 
Dim secondemployee As String 
firstemployee = DLookup("[empName]", "[TempTable]", "[ID] = 1") 
secondemployee = DLookup("[empName]", "[TempTable]", "[ID] = 2") 
SQL = "INSERT INTO [Weeks on Call]([Primary Employee], [Backup Employee]," & _ 
     " [Week]) VALUES ('" + firstemployee + "','" + secondemployee + "'," & _ 
     "#" + firstDate + "#)" 

表中的主要員工是一個文本字段，

備份是一個文本字段，

周是一個日期/時間字段

我似乎無法弄清楚我要出錯的地方。有人可以快速看一下嗎？

謝謝

Answer 1

我看不到你賦值的任何變量。嘗試以下操作。

Dim strSQL As String 
Dim firstDate As Date 
Dim firstemployee As String 
Dim secondemployee As String 

firstDate = Date() 
firstemployee = "Santa" 
secondemployee = "Aimonce" 

strSQL = "INSERT INTO [Weeks on Call] ([Primary Employee], [Backup Employee], [Week]) " & _ 
     "VALUES ('" & firstemployee & "', '" & secondemployee & "', " & Format(firstDate, "\#mm\/dd\/yyyy\#") & ")" 
Debug.Print strSQL 

看看你在即時窗口打印什麼。它應該幫助你進行調試。