Question

我有一张收据表格，我希望收到客户的付款并扣掉发票

我创建了收据大师表

字段是，TID（自动编号），Cutomer ID，Chq No，Amount，Bank，RVDate

另一种形式Rvdetails：

ID（自动编号），收据ID（与收据主控的TID一起加入）SINVOICE ID，INVoice No，Totalinvamt，Customer ID，Bal，Amount

我想在选择客户ID后更新客户的客户ID

时插入RV查询，其中包含以下数据到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 Query＆amp; amp;表格设计

问题在于选择客户时rvquery提交的未插入子表单

RVQUERY文件是

SINVOICE ID，INVOICE NO，CUSTOMER ID，TOTALINVAMT，SUMOFAMOUNT，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

现在问题已经解决，将详细信息收据ID字段更改为TID，然后更正上面提到的更正代码的代码

SQL在INS访问中从QUERY INSERT INTO SUBFORM

1 个答案: