access 2003 窗体 子窗体 切换按钮控件问题
假设建立表“tab1“,窗体”frm1“,用于向tab1中录入数据。现在新建窗体”frm2“,将frm1为其子窗体,同时在frm2中创建切换按钮“toggle0”。要求当...
假设建立表“tab1“,窗体”frm1“,用于向tab1中录入数据。
现在新建窗体”frm2“,将frm1为其子窗体,同时在frm2中创建切换按钮“toggle0”。
要求当按下切换按钮时,frm1为可操作状态,弹起切换按钮时frm1不能操作,呈灰色样子。求解 展开
现在新建窗体”frm2“,将frm1为其子窗体,同时在frm2中创建切换按钮“toggle0”。
要求当按下切换按钮时,frm1为可操作状态,弹起切换按钮时frm1不能操作,呈灰色样子。求解 展开
1个回答
展开全部
这多简单,frm1里面设计视图里直接拖一个子窗体frm2,把添加时间的过程就写在frm2里面,frm1里的控件连接字段设置frm2控件,把child1的制表位选否,这样在frm2中光标制表位循环就不会跳到frm1光标制表位循环中,把frm2的数据源设置为tab1,把文本框数据源设置为tab1字段,把frm2的属性设置为“数据录入”,这样就算是往表里写入数据了。
至于toggle0按钮把frm2显示为灰色也很简单,代码编辑拦里写代码:
Private Sub Form_load()
child1.Enabled=True
End Sub
'//启动初始化让Child1显示
Dim i as Integer '//定义一个循环变量
Private Sub toggle0_Click()
i=i+1
Text1.SetFocus '//这个Text1是frm1里的,先要把焦点移到主窗体上,才能禁用他
'//焦点不移走,不能禁用他,会报错
If i%2=0 Then '//如果i整除2是0时(说明他是偶数),奇偶数是循环的
child1.enabled=false '//禁用子窗体控件就变成灰色了
Else
child1.Enabeld=false
End If '//奇数的时候就禁用
End Sub
注意几点:
1. 你要初始化窗体,开始子窗体是个什么状态?
2. 禁用子窗体要移走焦点
3. 要点一下按钮子窗体禁用,再点一下可用循环定义按钮
至于toggle0按钮把frm2显示为灰色也很简单,代码编辑拦里写代码:
Private Sub Form_load()
child1.Enabled=True
End Sub
'//启动初始化让Child1显示
Dim i as Integer '//定义一个循环变量
Private Sub toggle0_Click()
i=i+1
Text1.SetFocus '//这个Text1是frm1里的,先要把焦点移到主窗体上,才能禁用他
'//焦点不移走,不能禁用他,会报错
If i%2=0 Then '//如果i整除2是0时(说明他是偶数),奇偶数是循环的
child1.enabled=false '//禁用子窗体控件就变成灰色了
Else
child1.Enabeld=false
End If '//奇数的时候就禁用
End Sub
注意几点:
1. 你要初始化窗体,开始子窗体是个什么状态?
2. 禁用子窗体要移走焦点
3. 要点一下按钮子窗体禁用,再点一下可用循环定义按钮
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询