Inexplicible FormField.Result comparison

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

zSplash - 07 Jun 2005 00:25 GMT

Here is my code, which is running as I exit a formfield (neither "tbxF5" or
"tbxM5"):
MsgBox ActiveDocument.FormFields("tbxF5").Result
MsgBox ActiveDocument.FormFields("tbxM5").Result
If ActiveDocument.FormFields("tbxF5").Result >
ActiveDocument.FormFields("tbxM5").Result Then
ActiveDocument.FormFields("tbx6FDiff").Result = Diff
ActiveDocument.FormFields("tbx6MDiff").Result = ""
Else
ActiveDocument.FormFields("tbx6MDiff").Result = Diff
ActiveDocument.FormFields("tbx6FDiff").Result = ""
End If

When the msgboxes pop up, it's clear that "tbxF5" is smaller than "tbxM5",
yet the code consistently chooses the first possiblity. I have defined both
"tbxF5" and "tbxM5" formats to be number: #,##0.00.

Would someone please explain this to me?

TIA

Reply to this Message

Jay Freedman - 07 Jun 2005 00:43 GMT

It's a little hard to say without seeing the values you're comparing,
but I'll guess that it's saying something equivalent to 11 < 2. The
problem is that even though the field formats are defined as "number",
the values themselves are strings -- they're strings that must contain
only digits, periods, and commas, but still strings. Therefore VBA is
comparing them as strings, not numbers.

You need to compare the number equivalents of the strings to get a
reliable result. Do something like this:

Dim numF5 As Single, numM5 As Single
numF5 = CSng(ActiveDocument.FormFields("tbxF5").Result)
numM5 = CSng(ActiveDocument.FormFields("tbxM5").Result)
If numF5 > numM5 Then
...

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org

>Here is my code, which is running as I exit a formfield (neither "tbxF5" or
>"tbxM5"):
[quoted text clipped - 16 lines]
>
>TIA

Reply to this Message

zSplash - 07 Jun 2005 17:28 GMT

Works fine now, with your help. Thanks, Jay.

st.

> It's a little hard to say without seeing the values you're comparing,
> but I'll guess that it's saying something equivalent to 11 < 2. The
[quoted text clipped - 37 lines]
> >
> >TIA

Reply to this Message