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

就是让窗体里的记录默认处于不可编辑状态,添加一个“编辑”按钮,点按钮后记录变为可编辑状态,这时“编辑”按钮自动变成“保存”按钮,再次点击后记录又变成不可编辑状态。
我主要是为了防止误操作
我找到一个代码
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
我看这个代码给的示例可以实现,就照着弄了一下,按钮文字可以变换,可为什么不起实际作用窗体中的记录仍然可以编辑?
会不会是按钮在主窗体上,不在子窗体上的缘故?

第1个回答  2012-08-11
假定
假定,窗体上有一个文本框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。本回答被提问者和网友采纳

access中如何用命令按钮让窗体里的记录在可编辑和不可编辑之间切换?
使用this.Enabled = false。可以使用this.Enabled = false;是窗体处于不可编辑状态。使用showDialog(),showDialog()是一个对话框窗口界面```执行结果以新窗口界面出现```不允许进行后台运行```就是你想编辑什么的时候```非得先关闭showDialog()窗口界面才可以进行其他操作。在数据库中保存的信息以表的...

我想在ACCESS一个窗体中加个按钮,点击后就可以直接跳到另一个窗体添加...
1、在设计视图中做好那个能添加新记录的目标窗体,如确定好记录源,将窗体的允许添加(AllowAdditions )属性设置为 是 、数据输入(DataEntry )属性设置为 是 ;2、在想打开窗体的那个命令按钮的“单击”事件属性上,写为〔事件教程〕;并弹出其VBA编写窗口 3、将下列代码写入过程中:DoCmd.OpenForm ...

在Access 2007窗体中添加命令按钮
1、首先打开access。2、创建一个窗体,点击右键,选择设计视图。3、在窗体控件菜单里面选择【按钮】。4、将按钮添加到所需要的位置,就会弹出一个命令按钮导航,选择要执行的命令。5、最后点击【完成】即可。

access子窗体记录导航按钮在哪啊
1、首先打开access找到要编辑的窗体,如下图所示。2、然后鼠标右击窗体选择【设计视图】,如下图所示。3、接着右击左上角的黑色矩形,在下拉列表中选择【属性】,如下图所示。4、然后选择第一个选项【格式】,找到【导航按钮】点击右侧的倒三角按钮。5、接着在下拉列表中选择【否】,如下图所示。6、...

怎么做access的切换面板啊
1、启动access2010,打开一个数据库,点击文件选项卡,点击选项命令;2、导航栏点击自定义功能区,右侧主选项卡下双击数据库工具,点击新建组按钮,重命名为切换面板;3、选择命令下不在功能区中的命令,找到切换面板管理器,点击添加,点击确定;4、点击数据库工具选项卡,切换面板功能区点击切换面板管理器...

ACCESS窗体中上下相邻的两条记录如何进行位置交换,即如何将指定的记录向...
ACCESS窗体中上下相邻的两条记录如何进行位置交换,即如何将指定的记录向上或向下移动一行。 10 我有一个连续窗体,记录以数字类型的序号字段升序排列。要求用上移和下移两个命令按钮操作序号变化和记录移动,同时刷新显示,并且在刷新显示时光标指针保持在原来选定的记录上,刷新... 我有一个连续窗体,记录以数字类型的...

在ACCESS数据库中执行下一记录命令的代码如何填写?
ACCESS窗体中的命令按钮代码,很多是不用自己编辑的。你可以中窗体中添加一个按钮,这时会弹出【命令按钮向导】对话框:“类别”中选择“记录导航”,“操作”中选择“转至下一项记录”,【下一步】;如果想让按钮上显示文字,可以选择“文本”,同时还可以编辑自己想要的文字。如果想要按钮上显示图标,既...

access中怎么降窗体中的命令按钮设置为灰色无效状态??
1、打开窗体,选择”设计视图“。2、如果是将”退出“命令按钮设置为不可用,则选中”退出“的命令按钮。3、然后单击”属性表”。4、接下来需要选择“数据”,如下图所示。5、将“可用”的“是”下拉列表选择改成“否’即可了,如下图所示。

在Access中出现“由于数据表***需要一个相关记录,不能添加或修改记录...
在Access中出现“由于数据表***需要一个相关记录,不能添加或修改记录”,是设置错误造成的,解决方法如下:1、启动Access ,打开需要进行修改的数据表,然后在工作表标签上右击鼠标,选择快捷菜单中的“设计视图”命令。2、在设计视图模式下,鼠标右击某个字段名,在快捷菜单中选择“插入行”命令,将在...

如何在 Access 2007 的窗体中实现点击按钮打开另一个窗体
1、打开要操作的数据库,在左侧导航窗格中,右击要使用的窗体,在弹出菜单中选择“设计视图”。2、确定“使用控件向导”按钮处于选中状态,然后单击选中“控件”组中的“按钮”控件,在窗体中的适当位置单击鼠标左键。3、打开“命令按钮向导”对话框,在“类别”列表框中选择“记录操作”项,在“操作”...

相似回答