复制和修改具有访问权限 VBA 的记录

Question

这看起来很简单，我需要 select 来自一个 table 的所有记录，其中一个字段等于表单文本框中的一个数字，然后修改该字段，并将记录粘贴回同样table。我想在按钮的事件过程中使用 VBA 来做到这一点。想像：

DoCmd.Runsql "INSERT INTO QuoteLines (QuoteID,ItemID,QuotedQTY,QuotedPrice) SELECT (MAX(Quotes.QuoteID) AS Expr1,ItemID,QuotedQTY,QuotedPrice) WHERE QuoteID = Forms![MakeQuote].[QuoteNum]"

Access 说 "MAX(Quotes.QuoteID) AS Expr1" 部分缺少运算符。

Answer 1

编辑：意识到您希望将 QuoteLines 中的记录插入到 QuoteLines 中。

尝试使用 DMax() 函数，或使用子查询。

"INSERT INTO QuoteLines (QuoteID,ItemID,QuotedQTY,QuotedPrice) " _
& "SELECT (DMax(""QuoteID"",""Quotes""),ItemID,QuotedQTY,QuotedPrice) " _
& "FROM QuoteLines WHERE QuoteID = Forms![MakeQuote].[QuoteNum]"

使用 SELECT INTO here.

的示例

复制和修改具有访问权限 VBA 的记录

Copy and modify records with access VBA

ms-access

vba

sql-insert