Format does not work

[demoman]

Howdy - I cannot get the 2 format functions (below) to work. Any ideas?

strSQLCmd = "Select sum(OrigAmount) as OrigAmt, sum(CreditAmount) as credamt, sum(Amount) as balance, sum(retainage) as retainage " & _
"from ARData where PM = " & "'" & cboPM.Text & "'"

rsTotals.Open strSQLCmd, cnAR, adOpenStatic, adLockOptimistic, adCmdText

With rsTotals
txtOriginal.Text = Str(Format(!origamt, "##,###,###.00&quot)
txtCredit.Text = Str(Format(!credamt, "##,###,###.00&quot)
txtRetainage.Text = Str(!retainage)
txtBalance.Text = Str(!balance)
End With

All I get is the unformatted data value.

Thanks

 

[chadt]

Never ran into this problem. Maybe try populating the textbox first then format the textbox.

chadt@techtnologies.com

 

[demoman]

Yes Chadt - that does the trick! Perhaps this was just one of those things you expect to work, but doens't.

Cheers

 

[adnanakram]

Hi,

format is the property of text box. and u r trying to set the format of the recordset object which it doesn't have. 1st retreive the data in the text box. and 2nd set the format property of the text box.

Bye,

adnan