如何设置修改内容

林小兵　发表于：2008-09-05 10:51:17 　

复制

如何设置修改内容

当一打开数据库时，一不小心就把里面的给修改了，如果在窗体中设一个修改内容键，如果要修改的话要点那个修改内容键才能进行修改。

Top

符鸿敏发表于：2008-09-05 11:21:24

保存时，使窗体中的输入性控件设为锁定，增加一个修改命令按钮，在其单击事件码中，写出解除需要修改内容的控件的锁定。

Top

刘贵平发表于：2008-09-05 11:37:01

http://www.accessoft.com/article-show.asp?id=1362可以参考个文章。

Top

彭海涛发表于：2008-09-05 14:14:42

Top

小ビビ2UのB8 发表于：2008-09-06 16:18:28

可以在窗体成为当前事件中写入以下类似的代码：

Private Sub Form_Current()

    If Me.NewRecord = True Then

       Me.Form.AllowEdits = True

    Else

        Me.Form.AllowEdits = False

    End If

End Sub

然后在修改按扭中写入：

Me.Form.AllowEdits = True
思路是这样，，，要怎么样，，，自己再改改，，，

Top

小ビビ2UのB8 发表于：2008-09-06 16:20:19

有需要的话，，，再在保存按扭中加入：

Me.Form.AllowEdits = False

,,,

Top

符鸿敏发表于：2008-09-07 19:06:26

4楼的代码让我开了眼界,学习了.

Top

马山杨梅发表于：2008-09-07 20:39:32

我手头书上有这个范例，我抄下代码，并做了个简单的窗体，象是你所说的效果。即打开窗体时为“只读”，按下修改按钮变成可“编辑”状态。你可以先看看这个例子再说。如果觉得可行就按下面操作：
首先把这个窗体的允许编辑，允许删除，允许添加三个属性都改为“否”
然后建一个名称为“修改内容”的按钮，并将其属性中标题改为“修改”
再把下面这段代码放入
Private Sub 修改内容_Click()
If Me![修改内容].Caption = "修改" Then
    Me.AllowAdditions = True '允许添加
    Me.AllowDeletions = True '允许删除
    Me.AllowEdits = True '允许编辑
    Me![修改内容].Caption = "--"
ElseIf Me![修改内容].Caption = "--" Then
    Me.AllowAdditions = False '不允许添加
    Me.AllowDeletions = False '不允许删除
    Me.AllowEdits = False '不允许编辑
    Me![修改内容].Caption = "修改"
End If
End Sub

经过我实际试用觉得有二点缺陷。1.当按下按钮成可编辑状态后，再次按这个按钮却回不到只读状态。2.只能用在单个窗体，在母子窗体使用时好像对子窗体不起作用。哪位高手看能改改的，请帮忙完善。

点击下载此附件

Top

符鸿敏发表于：2008-09-09 20:27:22

回答7楼的问题：

要在完成修改任务后单击保存按钮，保存按钮的代码应该包括：

Me![修改内容].Caption = "--" Then
    Me.AllowAdditions = False '不允许添加
    Me.AllowDeletions = False '不允许删除
    Me.AllowEdits = False '不允许编辑

Top

马山杨梅发表于：2008-09-09 22:54:30

谢谢8楼fuhongmin版主的回答，确实如此，只要保存了数据就能按按钮回到只读状态。另外，在此建议楼主lbq351100去参考一下前几天park05版主的《共享成果“Note”，“大众模板”》一帖上传文件中的只读/编辑转换钮，那个更好。

Top

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

Access交流中心

如何设置修改内容