[解决了]修改记录时把原记录保存到另一表里,怎样实现?

sunny-xie

如库描述,查到需修改的记录,直接在子窗体里改好,按修改按钮的同时把原记录保存到表2
表只保存修改后的记录,怎么做?

[:25]

[ 本帖最后由 sunny-xie 于 2008-3-27 08:46 编辑 ]

duchuanlong

期待达人...

hi-wzj

1、表一增加一个字段名为id的主关键字。以便定位记录。
2、表二增加一个同名的外部关键字字段索引为“有(有重复)”
3、窗体“表1子窗体”更新前事件运行追加查询。
Private Sub Form_BeforeUpdate(Cancel As Integer)
DoCmd.RunSQL "INSERT INTO 表2 SELECT 表1.* FROM 表1 WHERE 表1.id=" & Me.id & ";"
End Sub

sunny-xie

试下先

kangking

Private Sub Form_Dirty(Cancel As Integer)
    Dim sql As String
    On Error Resume Next

    sql = "INSERT INTO 表2 ( 日期, 编号, 名称, 数量 )" & _
          "SELECT 表1.日期, 表1.编号, 表1.名称, 表1.数量" & _
          " FROM 表1 " & _
          " WHERE (((表1.编号)='" & 编号 & "'));"

    DoCmd.RunSQL sql

    If Err() <> 0 Then
        sql = "UPDATE 表2  SET 表2.日期 = #" & 日期 & "#,  表2.名称 = '" & 名称 & "', 表2.数量 = " & 数量 & _
              " WHERE (((表2.编号)=" & 编号 & "));"
        DoCmd.RunSQL sql

    End If
End Sub

在脏数据事件中写上面的代码,注意:我是以编号为关键字的,把数据的类型改为了数据.程序运行后,在你编辑数据时将自动保存原来的数据到表2,但在关闭窗体前的再编辑,数据不会再次保存,除非关闭窗体后再打开编辑.

kangking

Private Sub Form_Dirty(Cancel As Integer)
    Dim sql As String
    On Error Resume Next

    If DCount("编号", "表2", "编号='" & 编号 & "'") = 0 Then
    sql = "INSERT INTO 表2 ( 日期, 编号, 名称, 数量 )" & _
          "SELECT 表1.日期, 表1.编号, 表1.名称, 表1.数量" & _
          " FROM 表1 " & _
          " WHERE (((表1.编号)='" & 编号 & "'));"
    Else
        sql = "UPDATE 表2  SET 表2.日期 = #" & 日期 & "#,  表2.名称 = '" & 名称 & "', 表2.数量 = " & 数量 & _
              " WHERE (((表2.编号)='" & 编号 & "'));"
   
    End If

    DoCmd.RunSQL sql

End Sub

试了一下,现在的代码较好,你可以再调试一下.

kangking

依楼主的要求，我做了一个例子。

sunny-xie

不错,[:11]
一个追加一个更新查询,明白了,谢谢!

13555609005

学习吓