Isnull flexibility 2

[Akart]

Hey there,

Surely this has a simple answer:

This bit works:

If Not IsNull(Forms!Customers_Main_Au!Customers_Search_AU.Form.CustomerId) then
msgbox "Has Value"
End If

Returns "Has Value"

What i want to do is replace CustomerID with any field name like this
dim tempfield
tempfield = "CustomerID"

If Not IsNull(Forms!Customers_Main_Au!Customers_Search_AU.Form.tempfield) then
msgbox "Has Value"
End If


This method does not work. Help!

Any suggestions appreciated!

Kerrin

 

[danvlas]

Try

If Not IsNull(Forms!Customers_Main_Au!Customers_Search_AU(tempfield)) then
msgbox "Has Value"
End If

Good luck
Daniel Vlas
Systems Consultant
danvlas@yahoo.com

 

[Craig0201]

Wouldn't having a function being passed a control returning a boolean be better?

Craig

 

[Akart]

Thanks danvlas, this method worked for me.


If Not IsNull(Forms!Customers_Main_Au!Customers_Search_AU(tempfield)) then
msgbox "Has Value"
End If


Craig0201,
you mentioned a FUNCTION would be better. Do you have an example FUNCTION that would make my code better.

Regards,

Kerrin

 

[FancyPrairie]

You function would look something like this:

Function ControlHasValue(tempField As Control) As Boolean

If (IsNull(tempField)) Then
ControlHasValue= False
Else
ControlHasValue= True
End If

End Function

Here's an example of calling it via the BeforeUpdate event of a text box (CustomorID).

Private Sub CustomorID_BeforeUpdate(Cancel As Integer)

If (ControlHasValue(CustomorID)) Then
MsgBox "has value"
Else
MsgBox "has no value"
Cancel = true
End If

End Sub