关于数据保存的新思路。

qqqq

以前有不少爱好者提问有关数据保存的问题。我最近有这样一个思路。。
就是在表中增加个布尔保存字段。（作为是否保存的标志）
在窗体中增加保存按扭。在VBA中用DAO逐条更新该字段（还没保存的）。
这样的好处可以增加保存/停电恢复/取消保存的功能。
而且结合控件做出漂亮的界面。
缺点就是有点繁琐。。
不知各位同意我的想法么？呵呵认为是垃圾的就给我减分，否则不要忘了加分啊。

ququ

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
    strMsg = "数据已经改变."
    strMsg = strMsg & vbCr & "你想保存吗?"
    strMsg = strMsg & vbCr & "点击[是]保存，点击[否]放弃保存。"
    If MsgBox(strMsg, vbQuestion + vbYesNo, "记录保存吗?") = vbYes Then
        ' 什么也不需要做，就会保存记录
    Else
        DoCmd.RunCommand acCmdUndo
        
        ' 对于Access 95, 使用DoMenuItem方法代替
        'DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
    End If
End Sub


转载 ---???

qqqq

以下是引用ququ在2004-1-6 8:30:45的发言：
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim strMsg As String
     strMsg = "数据已经改变."
     strMsg = strMsg & vbCr & "你想保存吗?"
     strMsg = strMsg & vbCr & "点击[是]保存，点击[否]放弃保存。"
     If MsgBox(strMsg, vbQuestion + vbYesNo, "记录保存吗?") = vbYes Then
         ' 什么也不需要做，就会保存记录
     Else
         DoCmd.RunCommand acCmdUndo
         
         ' 对于Access 95, 使用DoMenuItem方法代替
         'DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
     End If
End Sub


转载 ---???

此方法在有数据子窗体时,在子窗体每录完一条记录就会有提示...挺麻烦的..
再说要是遇到突然停电可就惨了...

ququ

qqqq

很是感谢这位班主的耐心解答!

谢谢!!

chenghai

我觉得ACCESS默认的输入即保存的方式很好，不必再做代码进行修改；
至于可能不小心误改数据的事，可以通过不同用户不同权限的方式加以控制，这样更灵活。

有些人提出增加临时表来达到保存数据的思路，我觉得太烦，没必要，还不如在数据库的其他方面多考虑考虑呢。

qqqq

哦。。。说得有道理啊。。
呵呵，又走了一段弯路，，不过俺在探讨中长了见识。。。

[此贴子已经被作者于2004-1-17 21:39:42编辑过]