记录的输入问题

stweihong　发表于：2010-08-20 09:07:43 　

复制

每次打开窗体,记录总是一不小心修改了,如何在点了保存按钮后再保存记录,防止记录是无意修改?

Top

麥田发表于：2010-08-20 10:48:48

用个确认修改命令相当于多了一道卡提醒作用点否就取消

Top

麥田发表于：2010-08-20 10:54:40

If MsgBox("此数据已修改，是否保存？", vbQuestion + vbYesNo, "**管理信息系统") = vbNo Then
Me.Undo
End If

Top

stweihong 发表于：2010-08-20 14:03:47

请麥田说得详细一点，具体如何操作

Top

jia 发表于：2010-08-20 16:12:04

在保存记录前进行询问

一、作用于录入、修改、删除后

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
    End If
End Sub

如是子窗体在子窗体输入上述代码。

Top

文双全发表于：2010-08-20 18:51:55

我前几天也遇到了你说的问题,我做了一下修改,现在好了,你可以看下我的代码.当你进入窗体时,你可以对窗体字段进行设置,那些能用,那些不能用,当保存或者关闭时,也做出提示,防止保存了错误的数据.

If MsgBox("你需要修改发货清单吗？", vbQuestion + vbOKCancel + vbDefaultButton2, "系统提示") = vbOK Then
Me.收货人电话.Enabled = True
Me.顾客名称.Enabled = True
Me.收货单位.Enabled = True
Me.送达地址.Enabled = True
Me.运输商.Enabled = True
Me.运输方式.Enabled = True
Me.发货日期.Enabled = True
Me.UserName.Enabled = True
Me.收货人.Enabled = True
Me.预计到货日期.Enabled = True
Me.备注.Enabled = True
Me.ZUOFEI.Enabled = True
Me.成品发货明细_子窗体.Form.AllowEdits = True
Me.成品发货明细_子窗体.Form.AllowDeletions = True
Me.成品发货明细_子窗体.Form.AllowAdditions = True
Else
DoCmd.CancelEvent
Me.收货人电话.Enabled = False
Me.顾客名称.Enabled = False
Me.收货单位.Enabled = False
Me.送达地址.Enabled = False
Me.运输商.Enabled = False
Me.运输方式.Enabled = False
Me.发货日期.Enabled = False
Me.UserName.Enabled = False
Me.收货人.Enabled = False
Me.预计到货日期.Enabled = False
Me.备注.Enabled = False
Me.成品发货明细_子窗体.Form.AllowEdits = False
Me.成品发货明细_子窗体.Form.AllowDeletions = False
Me.成品发货明细_子窗体.Form.AllowAdditions = False
Me.ZUOFEI.Enabled = False
End If
End Sub

Top

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

Access交流中心

记录的输入问题