access中如何用命令按钮让窗体里的记录在可编辑和不可编辑之间切换?

 我来答
百度网友ddc004f
2018-05-29 · TA获得超过3596个赞
知道小有建树答主
回答量:61
采纳率:100%
帮助的人:3.4万
展开全部

使用this.Enabled = false。

可以使用this.Enabled = false;是窗体处于不可编辑状态。

使用showDialog(),showDialog()是一个对话框窗口界面```执行结果以新窗口界面出现```不允许进行后台运行```就是你想编辑什么的时候```非得先关闭showDialog()窗口界面才可以进行其他操作。

在数据库中保存的信息以表的形式存储,其中包含有关特定主题的数据,例如资产或联系人。表中的每条记录包含有关某个项目(如特定联系人)的信息。记录由字段(如姓名、地址和电话号码)组成。记录和字段通常也分别称作行和列。

Microsoft Office Access 2007 允许您直接在数据表视图中添加、编辑或删除表中的记录。如果您设计并创建了选择查询,则可直接在通过运行查询而产生的数据表中查看并经常编辑记录。还可以创建基于任何表或查询的窗体,然后使用该窗体来添加或编辑记录。

本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
东方月初aa91093
2018-03-17 · TA获得超过868个赞
知道答主
回答量:10
采纳率:0%
帮助的人:1673
展开全部

就是让窗体里的记录默认处于不可编辑状态,添加一个“编辑”按钮,点按钮后记录变为可编辑状态,这时“编辑”按钮自动变成“保存”按钮,再次点击后记录又变成不可编辑状态。
我主要是为了防止误操作

我找到一个代码
Private Sub command13_Click()
If Me![command13].Caption = "编辑" Then
Me.AllowAdditions = True '允许添加
Me.AllowDeletions = True '允许删除
Me.AllowEdits = True  '允许编辑
Me![command13].Caption = "检视"
ElseIf Me![command13].Caption = "检视" Then
Me.AllowAdditions = False '不允许添加
Me.AllowDeletions = False '不允许删除
Me.AllowEdits = False '不允许编辑
Me![command13].Caption = "编辑"
End If
End Sub
我看这个代码给的示例可以实现,就照着弄了一下,按钮文字可以变换,可为什么不起实际作用窗体中的记录仍然可以编辑?
会不会是按钮在主窗体上,不在子窗体上的缘故?

已赞过 已踩过<
你对这个回答的评价是?
评论 收起
iamgubing
推荐于2019-11-09 · TA获得超过1964个赞
知道小有建树答主
回答量:364
采纳率:100%
帮助的人:346万
展开全部
假定
假定,窗体上有一个文本框text1,一个命令按钮command1,在窗体顶端设置一个模块级变量(私有变量)flag用来标志command1按钮的状态。

Option Compare Database
Private flag As Boolean ‘设置私有变量flag,用来标志command1按钮的状态

Private Sub Form_Open(Cancel As Integer) ‘打开窗体时,
Me.Text1.Locked = True ‘设置text1文本框锁定,
Me.Command1.Caption = "编辑" ‘设置command1按钮标题为 编辑
End Sub

Private Sub Command1_Click()
If flag Then ‘第一次单击时,flag没有赋值,默认为0,即false
Me.Text1.Locked = True
Me.Command1.Caption = "编辑"
Else
Me.Text1.Locked = False
Me.Command1.Caption = "保存"
End If
flag = Not flag ‘每次单击时,变换flag的取值
End Sub

基本原理就这样,关键是设置一个模块级变量flag。
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
iamgubing
2018-01-31 · TA获得超过1964个赞
知道小有建树答主
回答量:364
采纳率:100%
帮助的人:346万
展开全部
假定
假定,窗体上有一个文本框text1,一个命令按钮command1,在窗体顶端设置一个模块级变量(私有变量)flag用来标志command1按钮的状态。

Option Compare Database
Private flag As Boolean ‘设置私有变量flag,用来标志command1按钮的状态

Private Sub Form_Open(Cancel As Integer) ‘打开窗体时,
Me.Text1.Locked = True ‘设置text1文本框锁定,
Me.Command1.Caption = "编辑" ‘设置command1按钮标题为 编辑
End Sub

Private Sub Command1_Click()
If flag Then ‘第一次单击时,flag没有赋值,默认为0,即false
Me.Text1.Locked = True
Me.Command1.Caption = "编辑"
Else
Me.Text1.Locked = False
Me.Command1.Caption = "保存"
End If
flag = Not flag ‘每次单击时,变换flag的取值
End Sub

基本原理就这样,关键是设置一个模块级变量flag。
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式