ACCESS函数调用窗体内容

ty_1029

问题很简单,我现在需要通过函数打开同一个窗体,但通过不同的按纽来打开,对应不同的函数,需要在函数部分除了执行下面的代码外

Function XSquery()
Dim strName As String  

strName = "DBquery"
    DoCmd.Close
    DoCmd.OpenForm strName
End Function

我先加入两方面的东西,

一是隐藏打开窗体中的几个控件和标签,以及子窗体.

二是想要通过函数,给标签txtName = "XXXXXX"属值



往各位老大们帮忙解决啊~~~

Renco

function XSquery(a01 as string)
select case a01
  case ***
    ................
  case ****
    ............
end select
end function

在这里可以进行调用带参数的函数就可以区分了