ACCESS 一个主窗体上有两个查询按钮,让每个按钮对应一个子窗体,当进行不同的查询时,

ACCESS 一个主窗体上有两个查询按钮,每个按钮对应一个子窗体,当进行不同的查询时,只显示对应查询下的子窗体,要求两个子窗体出现在同一个位置,怎么操作可以让它在同一个位置显示?

'先将两个子窗体的可见性设置为“否”,让打开主窗体时两个子窗体不可见
'分别为按钮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
温馨提示:答案为网友推荐,仅供参考
相似回答