vba当中会自动把一个控件名称当做控件的ｖａｌｕｅ，请问我如果想引用控件本身，应

yoke88

vba当中会自动把一个控件名称当做控件的ｖａｌｕｅ，请问我如果想引用控件本身，应该怎么写或者怎么设置

Public Sub test(ByVal combo1 As combobox)
    Dim comb As combobox
    Dim id As Integer
   
    Set comb = combo1
    If IsNull(comb.Value) Then
           MsgBox ("can not be null")
       Exit Sub
       Else
       id = CInt(comb.Value)
    End If
Enf function

＇引用该函数

Private Sub m_menu1_AfterUpdate()
    test (m_menu1)
End Sub

程序自动会把ｍ_menu1当成ｍ_menu1.value,我现在想引用ｍ_menu１本身，
请问怎么解决

一点通

建议楼主将支付金币的设置删除,要人帮你解决问题还要付钱,真是天大的笑话

fan0217

没有真正领悟你得意图,所以不知道是否是你想要的.

Function Test(ByVal combo As ComboBox) As Integer
    If IsNull(combo.Value) Then
           MsgBox ("can not be null")
       Exit Function
    Else
       Test = CInt(combo.Value)
    End If
End Function


调用:me.控件名=Test(m_menu1)

yoke88

vba当中会自动把一个控件名称当做控件的ｖａｌｕｅ，请问我如果想引用控件本身，应该怎么写或者怎么设置

Public Sub test(ByVal combo1 As combobox)
    Dim comb As combobox
    Dim id As Integer
   
    Set comb = combo1
    If IsNull(comb.Value) Then
           MsgBox ("can not be null")
       Exit Sub
       Else
       id = CInt(comb.Value)
    End If
Enf function

＇引用该函数

Private Sub m_menu1_AfterUpdate()
    test (m_menu1)
End Sub

程序自动会把ｍ_menu1当成ｍ_menu1.value,我现在想引用ｍ_menu１本身，
请问怎么解决

yoke88

不好意思哦，设置错了，本来要付一个金币的，郁闷了

我的意思是

我需要把一个控件: m_menu1，它是一个combobox 控件，

传递给test函数，但是程序会把这个传递值误认为是传递m_menu1.value

这样的话，就会报错说找不到控件的参考

fan0217

3楼的方法把值传递给函数了,并根据参数返回值了.

yoke88

不行 哦

fan0217

把例子发上来

yoke88

现在主要的问题是

当你传递控件本身给其他函数的时候，他传递的不是控件，而是控件的属性value

也就是说我本来传的值是想让程序当成control 类型来处理，结果他按string 类型来处理了

一个典型的例子

架设有 lable 控件lable1

那么：msgbox(lable1) 他会显示label1.value的值，

现在我传参数给我的自定义函数也是这样，

。。。。。。。。。。。。。

[此贴子已经被作者于2006-4-6 22:25:58编辑过]

fan0217

你的意思是要象这样的吗?

Function FormClose(rfrmInput As Form) As Boolean
On Error GoTo FormClose_Err
FormClose = True
    DoCmd.Close acForm

FormClose_Exit:
    Exit Function

FormClose_Err:
    FormClose = False
    GoTo FormClose_Exit
End Function