ACCESS利用函数隐藏控件

ty_1029

问题很简单,我现在需要通过函数打开同一个窗体,但通过不同的按纽来打开,对应不同的函数,需要在函数部分除了执行下面的代码外
Function XSquery()
Dim strName As String  
strName = "DBquery"
    DoCmd.Close
    DoCmd.OpenForm strName
End Function
我先加入两方面的东西,
一是隐藏打开窗体中的几个控件和标签,以及子窗体.
二是想要通过函数,给标签txtName = "XXXXXX"属值

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

ACMAIN_CHM

两个方案你可以试一下。

一： 在DoCmd.OpenForm strName之后，利用forms!DBquery.controlName.visible=false来隐藏

二： 在DBquery中的load事件中根据传入的参数来设置 me.contorlname.visible = false （推荐，低藕合）
    docmd.OpenForm "DBquery",,,,,,"HIDE"
    最后一个是参数，会传入到DBquery, 然后再DBquery的load事件中根据 me.OpenArgs 做 select case





*****************
*  一切皆有可能 *
*****************

QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.office-cn.net .

http://www.office-cn.net/home/space.php?uid=141646 .

todaynew

Me.控件名称.Visible = False

ty_1029

两个方案你可以试一下。

一： 在DoCmd.OpenForm strName之后，利用forms!DBquery.controlName.visible=false来隐藏

二： 在DBquery中的load事件中根据传入的参数来设置 me.contorlname.visible = false （推荐 ...
ACMAIN_CHM 发表于 2009-1-30 20:49

第一中方法想到过,可就是不知道该怎么写,看了半天帮助,撒也没看明白,先谢谢老大了~~

第二中方法没有看懂,汗~很惭愧,能具体点不,刚开始学习ACCESS

tanhong

之前我发过一个关于控件批量隐藏趣题解读，也许对你会有所帮助，不过在另一个论坛上。http://accesshome.5d6d.com/viewt ... =&highlight=&page=2

ty_1029

谢谢大家,问题基本解决了,非常感谢ACMAIN_CHM 和tanhong ~~
虽然解决的自问不是很完美,不过慢慢学习吧~~~

ycxchen

2楼的“低藕合”是什么意思？2楼的第二种方案最好能详细说一说

ACMAIN_CHM

2楼的“低藕合”是什么意思？2楼的第二种方案最好能详细说一说
ycxchen 发表于 2009-1-31 08:51

关于“内聚和耦合”我抄了一篇文章放在我的日志中了。

第二种方案的实现
新建一个窗体，FORM3， 在上面放一个命令按钮 Command0,再放一个 文本框 Text1

在FORM3的load事件中

Private Sub Form_Open(Cancel As Integer)
    Select Case Me.OpenArgs
        Case "HIDE"
            Me.Text1.Visible = False
        Case "TEST"
            Me.Command0.Caption = "TEST"
        Case Else
    End Select
End Sub

然后你可以做测试

docmd.OpenForm "form3",,,,,,"TEST"
或
docmd.OpenForm "form3",,,,,,"HIDE"

看一下效果。






*****************
*  一切皆有可能 *
*****************
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
http://www.office-cn.net/home/space.php?uid=141646 .

ycxchen

谢谢CHM的热心指教!

ycxchen

我觉得8楼的办法倒没有用Me.Text1.Visible = False方便