Question

您好我已经尝试了几个小时，无论我多少搜索尝试不同的选项，我无法获得查找给出我正在寻找的结果。我正在测试它使用我知道的日期和工作代码在我所指的表中。

我使用输入框提供日期并将工作代码修复为13（Dispatch）。查找应该返回表中的日期，因为日期输入在表中。我的代码是：

Sub Append_Dispatch()

Dim dbs As Object
Dim qdf As querydef
Dim InputDateString As String
Dim InputDate As Date
Dim RtnDate As String
Dim chkDate As Date
Dim WC As Long

Set dbs = CurrentDb
Set qdf = dbs.querydefs("Dispatch Append to Production Data")
WC = 13

InputDateString = InputBox("Please enter start date to import", "Date")
InputDate = DateValue(InputDateString)


RtnDate = DLookup("[Date of Action]", "Production Data", "[Date of Action]= #" & InputDate & "# AND [Work Code] =  " & WC & "")
chkDate = DateValue(RtnDate)
 If InputDate = chkDate Then
    IB = MsgBox("This dispatch date has already been entered:" & vbCrLf & "Please check and use a date after " & Dte, vbOKOnly, "Date Error")
    Exit Sub

End If
 'qdf.Parameters("Dispatch Date").Value = InputDate
    'qdf.Execute
    'qdf.Close
    'Set qdf = Nothing
    'Set dbs = Nothing

End Sub

此外，如果输入参数并运行追加查询，我无法在结束后使代码工作。但这是另一个问题。

请任何想法.....

数据存在时，Dlookup返回null

0 个答案: