error in the formula when callig CR8 from VB6

[rostovdon]

I've built CR using qry and it's warking fine by itself.
I am using this folmula in the report:
If Left({Query.STORE},4) = "0000"
Then Replace({Query.STORE},"0"," ",1,4)
Else
If Left({Query.STORE},3) = "000"
Then Replace({Query.STORE},"0"," ",1,3)
Else
If Left({Query.STORE},2) = "00"
Then Replace({Query.STORE},"0"," ",1,2)
Else
If Left({Query.STORE},1) = "0"
Then Replace({Query.STORE},"0"," ",1,1)
Else {Query.STORE};
This formula replaces leading zeroes from 5 digit string.
When I am calling report from VB6 I'am getting the following error:
'error in formula <Store>
'If Left({Query.STORE},4) = &quot;0000&quot;
' A number, currncy amount, boolean or string is expected here.

I'd greatly appriciate your help
Thank you

 

[synapsevampire]

Try this formula instead:

totext(val({Query.STORE}),0,&quot;&quot

Perhaps you're using a different connectivity in VB?

Different database?

Odd that it would find that STORE is not a string in VB, but this depends on things you didn't supply, such as how you're calling the report and connectivity or if you're passing a recordset.

-k