Passing MSAccess 2000 objects to functions

[royster]

I have a problem, I am trying to pass a VBA control to a function, but I cannot seem to be able to do this. The control can be a Textbox, a Checkbox or a MSHFlexgrid, so I want a generic function that allows me to do this. Depending on the control, I can use SELECT CASE to handle it within the function.

Passing the MSHFlexgrid and the Checkbox is easy, its the Textbox I am having problems with. You cannot call the Textbox by name because VBA assumes you are calling the Textbox.text field, and this causes a Type mismatch

For example I have a Textbox called Text1, a MSHFlexGrid called Grid1 and a CheckBox called Check1.



Private Sub SaveData(ctrl as Control)
Select Case ctrl.ControlType
Case 119 'MSHFlexGrid
Dim g as MSHFlexGrid
Set g = ctrl.object
'Do Grid manipulation
Case 106 'Checkbox
Dim c as Checkbox
Set c = ctrl
'Do Checkbox manipulation
Case 109 'Textbox
Dim c as Textbox
Set c = ctrl
'Do Textbox manipulation
End Select
End Sub


Private Sub MyCallingProc
Call SaveData(Grid1) 'Works fine
Call SaveData(Check1) 'Works fine
Call SaveData(Text1) 'Fails with a Type Mismatch Error

End Sub



The reason why the Call SaveData(Text1) call fails is because it VBA is assuming that I am passing the value of Text1, i.e. the text, and not the object, which is what I am trying to pass.

Is there a way around this?

P.S. I am using MSAccess 2000.

[salvelinus]

The .Text property is the default property of a textbox, which means you can write:
Text1 = "blah"
strString = Text1
and not
Text1.Text = "blah"
strString = Text1.Text
(by the way, you can't do the first example in .Net).
I'm not sure how you'd get around this, though. Maybe you'd have to cast the textbox to a control before passing it.