testing for association

[omozali]

Hi,

How can I test if a variable was associated with an object or not

for example
dim mytextbox as textbox
if mytextbox = Nothing then <=== this produces error
mytextbox = textbox0
else
set mytextbox = Nothing
endif

[ADezii]

Hi,

How can I test if a variable was associated with an object or not

for example
dim mytextbox as textbox
if mytextbox = Nothing then <=== this produces error
mytextbox = textbox0
else
set mytextbox = Nothing
endif

You can use the IsEmpty() Function which returns a Boolean value indicating whether or not a Variable has been initialized:

Dim MyTextBox As TextBox
Set MyTextBox = Me![txtTest]
Debug.Print

[ADezii]

Hi,

How can I test if a variable was associated with an object or not

for example
dim mytextbox as textbox
if mytextbox = Nothing then <=== this produces error
mytextbox = textbox0
else
set mytextbox = Nothing
endif

You can use the IsEmpty() Function which returns a Boolean value indicating whether or not a Variable has been initialized:

Dim MyTextBox As TextBox
Set MyTextBox = Me![txtTest]     'valid Text Box on frmTest
Debug.Print IsEmpty(MyTextBox) ===> False
 
Debug.Print IsEmpty(MyTextBox2) ==> True

[omozali]

Hi,

How can I test if a variable was associated with an object or not

for example
dim mytextbox as textbox
if mytextbox = Nothing then <=== this produces error
mytextbox = textbox0
else
set mytextbox = Nothing
endif

I found out that typename(mytextbox) before association returns Nothing
and after association returns TextBox

The weird thing is this still produces error

if typename(mytextbox) = Nothing then

[omozali]

You can use the IsEmpty() Function which returns a Boolean value indicating whether or not a Variable has been initialized:

Dim MyTextBox As TextBox
Set MyTextBox = Me![txtTest]     'valid Text Box on frmTest
Debug.Print IsEmpty(MyTextBox) ===> False
 
Debug.Print IsEmpty(MyTextBox2) ==> True

But if you set mytextbox2 as textbox isnull would still returns true even if you don't associate it to a valid text box

[omozali]

I found out that typename(mytextbox) before association returns Nothing
and after association returns TextBox

The weird thing is this still produces error

if typename(mytextbox) = Nothing then

If found the answer

if Typename(mytextbox) = "Nothing" WORKS

[NeoPa]

Hi,

How can I test if a variable was associated with an object or not

for example
dim mytextbox as textbox
if mytextbox = Nothing then <=== this produces error
mytextbox = textbox0
else
set mytextbox = Nothing
endif

You need to check 'Is Nothing' and you need to assign the object using 'Set'.
To rewrite your code above :

Dim mytextbox As TextBox
If mytextbox Is Nothing Then  <=== this shouldn't
    Set mytextbox = textbox0
Else
    Set mytextbox = Nothing
EndIf