CODE
'========================================ControlSource
On Error Resume Next
strControlSource = ctl.ControlSource
If Err.Number > 0 Then
strControlSource = " "
End If
On Error GoTo MyErrorTrap
On Error Resume Next
strControlSource = ctl.ControlSource
If Err.Number > 0 Then
strControlSource = " "
End If
On Error GoTo MyErrorTrap
Not sure how to check for zero length and change it (if that is what I need to do). I have tried the NZ function to make it equal a space if it was null but without luck.
Any suggestions would be appreciated!
Lena