SQL INSERT INTO SUBFROM from QUERY in ms access

Question

我有一个收据表格，我想从客户那里收到付款并取消发票

我已经创建了收货表主

字段是，TID(自动编号)，客户ID, Chq No，金额，银行，RVDate

另一个表单Rvdetails:

ID(自动编号)，收据ID(与收据主的TID连接)SINVOICE ID, INvoice No, total total, Customer ID, Bal, Amount

我想在Rvdetail子表单中插入RV查询，当选择客户时，它在客户ID

上更新vba

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字段

发票编号，发票编号，客户编号，总金额，summofamount, BAL

请告诉我哪里写错了

Answer 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接收id字段改为TID，然后更正代码，更正后的代码如上所述