Object inheritance question

[mikej336]

I have a some code that I need to put in a sub. It works fine in the body but when I move it to a sub I get "Not and object reference". Is there a way to pass the object inheritance to the a sub?

Dim objDocument As Document

If Len(objDocument.Forms.Item(objDocument.DocumentClass.BaseFormName).FormFields.Item(CurrentFieldName).Value)> 0 Then
FieldValue = objDocument.Forms.Item(objDocument.DocumentClass.BaseFormName).FormFields.Item(CurrentFieldName).Value
Else
FieldValue="N/A"
End If


Thanks Uncle Mike

 

[PHV]

Where is objDocument instantiated in your code ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[mikej336]

I am using an imaging product with a Sax Basic macro language which is very close to VBA. It is difined in the main section, if that is helpful.

Uncle Mike

 

[fumei]

Yes, but is it declared as a global variable? This seems to be a matter of scope.

faq219-2884

Gerry
My paintings and sculpture

 

[mikej336]

I attempted to declare it public but it gives me

"Unteminated block statement"

Thanks again

Uncle Mike

 

[mikej336]

I figured it out... The interface starts you out in Sub out have to go above it to declare your public variables.

Thanks to all

Uncle Mike

 

[fumei]

Hopefully, just below your Option Explicit.

faq219-2884

Gerry
My paintings and sculpture