关于保存问题

小梅　发表于：2010-06-05 18:18:06 　

复制

我做了一个窗体，这个窗是由2部份组成，6个文本框和一个子窗体，能不能用一个按钮保存到一个表里面去，或是分别保存到2个表里面去。不知道能不能实现

Top

煮江品茶发表于：2010-06-05 19:12:25

追加查询即可

Top

小梅发表于：2010-06-05 19:17:12

能帮我实现一下吗

Top

小梅发表于：2010-06-05 19:18:43

你说的是保存到一个表还是分别保存到2个表

Top

小梅发表于：2010-06-05 19:56:29

点击下载此附件

Top

煮江品茶发表于：2010-06-06 07:01:45

保存按钮中加如下语句：

'-----------------------------------------------------------------------------
        Dim frm As Form
        Dim ctls As Controls
        Dim i As Long
        Dim ssql As String
        Dim str As String
        str = "INSERT INTO 物料档案表2 (BOM编号,物料编码,物料名称,[规格/型号],计量单位,物料来源,供应商,用量比,损耗率) VALUES ('" & Me.Text10.value & "','"
        Set frm = Me.BOM子窗体.Form
        Set ctls = frm.Controls
        For i = 1 To frm.RecordsetClone.RecordCount
            frm.SelTop = i
            ssql = str & ctls("物料编码").value & "','"
            ssql = ssql & ctls("物料名称").value & "','"
            ssql = ssql & ctls("规格/型号").value & "','"
            ssql = ssql & ctls("计量单位").value & "','"
            ssql = ssql & ctls("物料来源").value & "','"
            ssql = ssql & ctls("供应商").value & "','"
            ssql = ssql & ctls("用量比").value & "','"
            ssql = ssql & ctls("损耗率").value & "')"
            MsgBox ssql
            CurrentDb.Execute ssql
        Next
'---------------------------------------------------------------------------------