我如何将 sql 代码更改为 VBA ACCESS ，更新查询中的 Dlookup

Question

我在 "access." 中使用更新查询该查询在查询模式下运行良好；但是，当我想在 VBA 模式下运行时，程序出错了。产生这个错误的代码如下。

UPDATE 
  tblInvoiceS 
SET 
  tblInvoiceS.invoiceSqty = DLookUp(
    "invoiceSqty", "tblinvoiceS", "invoiceSid=forms!frminvoice!invoiceid and invoicesProductcode=forms!frminvoice!lstproduct"
  )+ 1 
WHERE 
  (
    (
      (
        tblInvoiceS.invoiceSproductCode
      )= [Forms] ! [frmInvoice] ! [lstProduct]
    ) 
    AND (
      (tblInvoiceS.invoiceSid)= [forms] ! [frmInvoice] ! [invoiceId]
    )
  );

此程序在 VBA 模式下产生的错误说明我在 "Dlookup section." 模式下有问题此错误涉及 end of statement in "invoiceSqty".

Answer 1

首先，您应该能够将其减少到：

UPDATE 
  tblInvoiceS 
SET 
  invoiceSqty = invoiceSqty + 1
WHERE 
  invoiceSproductCode = [Forms]![frmInvoice]![lstProduct]
  AND
  invoiceSid = [forms]![frmInvoice]![invoiceId]

那么，如何"run in VBA"？这只是 SQL.

我如何将 sql 代码更改为 VBA ACCESS ，更新查询中的 Dlookup

how can i change the sql code to VBA ACCESS , Dlookup in Update query

ms-access

auto-update