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