Error! No document variable supplied.

[Carlos Paulino]

Hi to all
I have developed a system in Delphi and want to print into Word some
information. I have created the field in Delphi that will print in word
(DOCVARIABLE varname, IF{DOCVARIABLE varname}=" " "" ) but I keep having the
message "Error! No document variable supplied." when no data is in Delphi
database field. It works when there is data. Can any one out there help me in
building the intructions to avoid the message mentioned above when the field
is blank?

Thanks for your valuable help.

 

[Jean-Guy Marcil]

Hi to all
I have developed a system in Delphi and want to print into Word some
information. I have created the field in Delphi that will print in word
(DOCVARIABLE varname, IF{DOCVARIABLE varname}=" " "" ) but I keep having the
message "Error! No document variable supplied." when no data is in Delphi
database field. It works when there is data. Can any one out there help me in
building the intructions to avoid the message mentioned above when the field
is blank?

If you create a DOCVARIABLE and then set it to "", you are actually deleting
it. So any further reference to that DOCVARIABLE will generate an error
message.

 

[Carlos Paulino]

Jean-Guy:
What then could the right instructions not to get the error message. Will
appreciate your help on this issue.

 

[Doug Robbins - Word MVP]

If there is not data, set the .Value of the variable to " "

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

 

[Jean-Guy Marcil]

Jean-Guy:
What then could the right instructions not to get the error message. Will
appreciate your help on this issue.

You have to cycle through the Document Variable collection, if the one you
are looking far is not there, you have to create it.

For example, in VBA:

Dim i As Long
Dim varname As String
Dim boolCreateVar As Boolean

varname = "MyVariable"
boolCreateVar = True

If ActiveDocument.Variables.Count > 0 Then
For i = 1 To ActiveDocument.Variables.Count
If ActiveDocument.Variables(i).Name = varname Then
boolCreateVar = False
Exit For
End If
Next
End If

If boolCreateVar Then
ActiveDocument.Variables.Add varname, "SomeValue"
End If

'Do what you have to do with that variable here


But, as Doug suggested, it is by far easier to make sure that variables
always have at least a space as a value, then you know they always exist.
This is easily done since variables can only be created/modified via code.

 

[Carlos Paulino]

Jean-Guy:

Thank you for your help and also for Doug

Regards,