FORMATO [Ô]CURRENCY[Ô] EM MSFLEXGRID

RICKSOUSA 29/09/2009 10:19:48
#323935
estou carregando os dados do meu banco de dados em um msflexgrid1, tem 5 colunas

codigo do produto, produto, categoria, quantidade, preço


no preço eu queria que ja mostrasse com o formato de valor R$ ele esta vindo normal
14,5 e quando não tem quebrado vem assim 14, e eu gostaria que viesse R$ 14,50 e R$ 14,00.

agradeço a ajuda de vcs e aguardo resposta!
TECLA 29/09/2009 10:24:00
#323936 Resposta escolhida
Poste o rotina que faz a CONSULTA no banco além da outra que CARREGA o GRID.
RICKSOUSA 29/09/2009 10:27:30
#323937
Set tabelaconsultapro = banco.OpenRecordset([Ô]select * from produto where produto.produto like [ô]*[Ô] & produto.Text & [Ô]*[ô] order by produto.codigoproduto[Ô])

é essa linha que eu faço a consulta amigo [S83]
RICKSOUSA 29/09/2009 10:32:08
#323938
no meu banco quando eu salvo na tela de cadastro de produto ja salva no formato em R$ mais na hora de trazer na msflexgrid não traz com o formato de real eu sei que eu tenho que fazer o esquema de format( [Ô]currency[Ô]) mais eu não sei como fazer direito ja tentei e não consegui...[S43]
ASHKATCHUP 29/09/2009 10:49:15
#323942
Como você está preenchendo o grid? Você abre uma SQL e vai preenchendo?
Se sim, é só fazer


Format(<CAMPO>,[Ô]#,##0.00[Ô])
TECLA 29/09/2009 10:53:29
#323945
Onde está o linha que CARREGA O GRID?
Facilite o tópico com riqueza de detalhes do que é feito, para que os colegas possam ajudá-lo.
RICKSOUSA 29/09/2009 10:55:25
#323946
amigo eu carrego assim:


Private Sub Form_Load()

Set banco = OpenDatabase(App.Path & [Ô]\bdinfo.mdb[Ô])
Set tabelaconsultapro = banco.OpenRecordset([Ô]select * from produto[Ô], dbOpenDynaset)
Dim Tabela_CategCombo As Recordset
Set Tabela_CategCombo = banco.OpenRecordset([Ô]select * FROM PRODUTO [Ô], dbOpenDynaset)

listapro.Clear [ô] LIMPA A MSFLEX
Call preenche_lista

If produto.Text = [Ô][Ô] Then

tabelaconsultapro.MoveLast
tabelaconsultapro.MoveFirst

If tabelaconsultapro.RecordCount > 11 Then

MSFlex.Rows = tabelaconsultapro.RecordCount + 1
MsgBox listapro.Rows

Else

listapro.Rows = 11

End If

For i = 1 To tabelaconsultapro.RecordCount
listapro.Row = i
listapro.Col = 0
listapro.Text = tabelaconsultapro([Ô]codigoproduto[Ô])
listapro.Row = i
listapro.Col = 1
listapro.Text = tabelaconsultapro([Ô]produto[Ô])
listapro.Row = i
listapro.Col = 2
listapro.Text = tabelaconsultapro([Ô]categoria[Ô])
listapro.Row = i
listapro.Col = 3
listapro.Text = tabelaconsultapro([Ô]quantidade[Ô])
listapro.Row = i
listapro.Col = 4
listapro.Text = tabelaconsultapro([Ô]pdevenda[Ô])

tabelaconsultapro.MoveNext

Next i

tabelaconsultapro.MoveLast

Else

Set tabelaconsultapro = banco.OpenRecordset([Ô]select * from produto where produto.produto like [ô]*[Ô] & produto.Text & [Ô]*[ô] order by produto.codigoproduto[Ô])

If tabelaconsultapro.RecordCount = 0 Then

MsgBox ([Ô]Você não tem nenhum Produto Cadastrado[Ô])
Exit Sub

End If

tabelaconsultapro.MoveFirst

If tabelaconsultapro.RecordCount > 11 Then

listapro.Rows = tabelaconsultapro.RecordCount + 1

Else

listapro.Rows = 11

End If

For i = 1 To tabelaconsultapro.RecordCount
listapro.Row = i
listapro.Col = 0
listapro.Text = tabelaconsultapro([Ô]codigoproduto[Ô])
listapro.Row = i
listapro.Col = 1
listapro.Text = tabelaconsultapro([Ô]produto[Ô])
listapro.Row = i
listapro.Col = 2
listapro.Text = tabelaconsultapro([Ô]categoria[Ô])
listapro.Row = i
listapro.Col = 3
listapro.Text = tabelaconsultapro([Ô]quantidade[Ô])
listapro.Row = i
listapro.Col = 4
listapro.Text = tabelaconsultapro([Ô]pdevenda[Ô])

listapro.Rows = listapro.Rows + 1

tabelaconsultapro.MoveNext

Next i

End If


End Sub
TECLA 29/09/2009 10:58:28
#323947
Tente alterar a linha que está em evidência.

 For i = 1 To tabelaconsultapro.RecordCount
        listapro.Row = i
        listapro.Col = 0
        listapro.Text = tabelaconsultapro([Ô]codigoproduto[Ô])
        listapro.Row = i
        listapro.Col = 1
        listapro.Text = tabelaconsultapro([Ô]produto[Ô])
        listapro.Row = i
        listapro.Col = 2
        listapro.Text = tabelaconsultapro([Ô]categoria[Ô])
        listapro.Row = i
        listapro.Col = 3
        listapro.Text = tabelaconsultapro([Ô]quantidade[Ô])
        listapro.Row = i
        listapro.Col = 4
        listapro.Text = FormatCurrency(tabelaconsultapro([Ô]pdevenda[Ô]), 2) [txt-color=#0B6138][ô] ou Format(tabelaconsultapro([Ô]pdevenda[Ô]), [Ô]###,##0.00[Ô])[/txt-color]
        
        tabelaconsultapro.MoveNext
    Next i
LLAIA 29/09/2009 10:58:35
#323948
altere aqui:

listapro.Text = Format(tabelaconsultapro([Ô]pdevenda[Ô]), [Ô]currency[Ô])
RICKSOUSA 29/09/2009 11:03:02
#323949
muito obrigado ai pessoal, funcionou blz....
ROBIU 29/09/2009 11:05:49
#323951
Você deve carregar o select já formatado. Para isso, troque isso
Citação:

Set tabelaconsultapro = banco.OpenRecordset([Ô]select * from produto where produto.produto like [ô]*[Ô] & produto.Text & [Ô]*[ô] order by produto.codigoproduto[Ô])



Por isso:

Dim Sql As String
Sql = [Ô]Select codigoproduto,produto,categoria, quantidade[Ô]
Sql = Sql & [Ô] Format(pdecusto,[ô]R$ ##,#0.00[ô]),lucro,Format(pdevenda,[ô]R$ ##,#0.00[ô]) from produto [Ô]
Sql = Sql & [Ô]where produto like [ô]*[Ô] & produto.Text & [Ô]*[ô] order by codigoproduto[Ô]

Set tabelaconsultapro = banco.OpenRecordset(Sql)
Tópico encerrado , respostas não são mais permitidas
Voltar