Question

我遇到了VBA问题，

我有以下几行 VID＆amp; TXTapp是填写在表单上的两个字段，此参数应在TXTApp更新后运行。

sSQL = "SELECT VID, App_Date, App_Time"
sSQL = sSQL & " FROM QRY_subform"
sSQL = sSQL & " WHERE VID = " & Me.VID & "AND App_Date = #" & Me.TXTApp & "#"
Set oRS = CurrentDb.OpenRecordset(sSQL)

但它似乎没有将日期字段传递给查询，不确定它有什么问题。任何帮助都会非常有用，因为这让我很生气。

Answer 1

在第三行的AND之前添加一个空格，否则可能会出现语法错误

sSQL = sSQL & " WHERE VID = " & Me.VID & " AND App_Date = #" & Me.TXTApp & "#" 不 sSQL = sSQL & " WHERE VID = " & Me.VID & "AND App_Date = #" & Me.TXTApp & "#"

您可以在构建查询后添加行Debug.Print sSQL，或者在sSQL上使用Watch并观察已构建的String，从而自行调试。

VBA语句中的Where子句

1 个答案: