Question

这看起来很简单，我需要从一个表中选择所有记录，其中一个字段等于表单文本框中的数字，然后修改该字段，并将记录粘贴回同一个表中。我想在按钮的事件过程中使用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表示＆＃34; MAX（Quotes.QuoteID）AS Expr1＆＃34;部分。

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复制和修改记录

1 个答案: