复制窗体数据并保存的问题

牛先生　发表于：2010-06-15 00:08:10 　

鉴于一些产品的原料构成基本一致，所以想采取复制原有产品原料构成的数据，把它显示在窗体中同时保存在相应的表中。但是，目前没有反应。请诸位老师，帮忙解决，谢谢了。操作步骤和要求打开示例后可以看到。

煮江品茶发表于：2010-06-15 08:47:52

Private Sub 产品ID_AfterUpdate()
Dim ssql As String
If DCount("*", "成本核算表", "成本核算ID=" & Me.产品ID.Column(0)) = 0 Then
    ssql = "INSERT INTO 成本核算表 ( 成本核算ID, 原料品种, 原料类别, 使用数量, 合计成本 ) "
    ssql = ssql & "SELECT " & Me.产品ID.Column(0) & ", 原料品种, 原料类别, 使用数量, 合计成本 "
    ssql = ssql & "FROM 成本核算表 "
    ssql = ssql & "WHERE 成本核算ID=" & Me.Parent.Form.Controls("产品ID").Value
    DoCmd.SetWarnings False
    DoCmd.RunSQL ssql
End If
End Sub

点击下载此附件

Top

牛先生发表于：2010-06-15 09:02:12

好像是还没解决，点击产品名称下拉框确定以后，窗体没有发生变化，表中也没有添加新的数据，请煮江品茶老师再看看。

Top

煮江品茶发表于：2010-06-15 11:12:53

点击下载此附件

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

复制窗体数据并保存的问题