ACCESS 一个主窗体上有两个查询按钮,让每个按钮对应一个子窗体,当进行不同的查询时,
ACCESS一个主窗体上有两个查询按钮,每个按钮对应一个子窗体,当进行不同的查询时,只显示对应查询下的子窗体,要求两个子窗体出现在同一个位置,怎么操作可以让它在同一个位置...
ACCESS 一个主窗体上有两个查询按钮,每个按钮对应一个子窗体,当进行不同的查询时,只显示对应查询下的子窗体,要求两个子窗体出现在同一个位置,怎么操作可以让它在同一个位置显示?
展开
1个回答
展开全部
'先将两个子窗体的可见性设置为“否”,让打开主窗体时两个子窗体不可见
'分别为按钮1和按钮2添加下列单击事件过程
'子窗体和标签的具体位置请按实际调整
'实际子窗体和标签的名称请按实际调整
Private Sub Command1_Click()
With Me
.[子窗体1标签].Top = 280 '设置子窗体1标签上边距位置,单位为缇(567缇=1厘米)
.[子窗体1标签].Left = 567 '设置子窗体1标签左边距位置
.[子窗体1标签].Visible = True '设置子窗体1标签可见性为“真”
.[子窗体1].Top = 567 '设置子窗体1上边距位置
.[子窗体1].Left = 567 '设置子窗体1左边距位置
.[子窗体1].Visible = True '设置子窗体1可见性为“真”
.[子窗体2标签].Top = 280 '设置子窗体2标签上边距位置
.[子窗体2标签].Left = 567 '设置子窗体2标签左边距位置
.[子窗体2标签].Visible = False '设置子窗体2标签可见性为“否”
.[子窗体2].Top = 567 '设置子窗体2上边距位置
.[子窗体2].Left = 567 '设置子窗体2左边距位置
.[子窗体2].Visible = False '设置子窗体2可见性为“否””
End With
End Sub
Private Sub Comman2_Click()
With Me
.[子窗体1标签].Top = 280
.[子窗体1标签].Left = 567
.[子窗体1标签].Visible = False '设置子窗体1标签可见性为“否
.[子窗体1].Top = 567
.[子窗体1].Left = 567
.[子窗体1].Visible = False '设置子窗体1可见性为“否”
.[子窗体2标签].Top = 280
.[子窗体2标签].Left = 567
.[子窗体2标签].Visible = True '设置子窗体2标签可见性为“真”
.[子窗体2].Top = 567
.[子窗体2].Left = 567
.[子窗体2].Visible = True '设置子窗体2可见性为“真”
End With
End Sub
'分别为按钮1和按钮2添加下列单击事件过程
'子窗体和标签的具体位置请按实际调整
'实际子窗体和标签的名称请按实际调整
Private Sub Command1_Click()
With Me
.[子窗体1标签].Top = 280 '设置子窗体1标签上边距位置,单位为缇(567缇=1厘米)
.[子窗体1标签].Left = 567 '设置子窗体1标签左边距位置
.[子窗体1标签].Visible = True '设置子窗体1标签可见性为“真”
.[子窗体1].Top = 567 '设置子窗体1上边距位置
.[子窗体1].Left = 567 '设置子窗体1左边距位置
.[子窗体1].Visible = True '设置子窗体1可见性为“真”
.[子窗体2标签].Top = 280 '设置子窗体2标签上边距位置
.[子窗体2标签].Left = 567 '设置子窗体2标签左边距位置
.[子窗体2标签].Visible = False '设置子窗体2标签可见性为“否”
.[子窗体2].Top = 567 '设置子窗体2上边距位置
.[子窗体2].Left = 567 '设置子窗体2左边距位置
.[子窗体2].Visible = False '设置子窗体2可见性为“否””
End With
End Sub
Private Sub Comman2_Click()
With Me
.[子窗体1标签].Top = 280
.[子窗体1标签].Left = 567
.[子窗体1标签].Visible = False '设置子窗体1标签可见性为“否
.[子窗体1].Top = 567
.[子窗体1].Left = 567
.[子窗体1].Visible = False '设置子窗体1可见性为“否”
.[子窗体2标签].Top = 280
.[子窗体2标签].Left = 567
.[子窗体2标签].Visible = True '设置子窗体2标签可见性为“真”
.[子窗体2].Top = 567
.[子窗体2].Left = 567
.[子窗体2].Visible = True '设置子窗体2可见性为“真”
End With
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询