SQL INSERT INTO SUBFORM from QUERY in ms access

Posted 2023-05-06

【中文标题】SQL INSERT INTO SUBFORM from QUERY in ms access

【英文标题】：SQL INSERT INTO SUBFROM from QUERY in ms access

【发布时间】：2014-06-14 15:06:26

【问题描述】：

我有一张收据表格，我想在其中接收客户的付款并敲掉发票

我已经创建了收据主表

字段是、TID（自动编号）、客户 ID、Chq 编号、金额、银行、RVDate

另一种形式Rvdetails：

ID (AutoNumber), Receipt ID (Join with TID of Receipt Master) SINVOICE ID, INvoice No, Totalinvamt, Customer ID, Bal, Amount

我想插入RV查询，当在客户ID上选择vba的客户时，在rvdetail子表单中向RVDetail子表单插入一个rvdetail子表单

Private Sub Cust_AfterUpdate()
Me.Refresh
DoCmd.RunSQL "INSERT INTO rvdetails ( [Sinvoice ID],[Invoice No],TotalInvamt,Bal,Amount, [Customer ID]) SELECT RVquery.[Sinvoice ID],RVquery.[Invoice No], RVquery.Totalinvamt, RVquery.bal,0, Rvquery.[customer id]" & Me.[Customer ID] & " from [RVquery] where [RVquery].[Customer ID] = " & Me.Cust
Me.Refresh
End Sub

附上 RV 查询和表单设计的图片

问题是在选择客户时，rvquery 提交的文件没有插入子表单中

RVQUERY 文件是

SINVOICE ID , INVOICE NO, CUSTOMER ID, TOTALINVAMT, SUMOFAMOUNT, BAL

请告诉我我哪里弄错了

【问题讨论】：

现在问题已经解决了，把Rvdetails的receept id改成TID，然后更正代码

【参考方案1】：

Private Sub Cust_AfterUpdate()
Me.Refresh
DoCmd.RunSQL "INSERT INTO rvdetails ([Sinvoice ID],[Invoice No],TotalInvamt,Bal,[Customer ID], TID) SELECT rvquery.[Sinvoice ID],rvquery.[Invoice No],rvquery.totalinvamt, rvquery.bal, rvquery.[customer id]," & Me.TID & " from [rvquery] where [rvquery].[Customer ID] = " & Me.Cust
Me.Refresh
End Sub

现在问题已经解决了，把Rvdetails reciept id字段改成TID，然后更正上面提到的更正代码