MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Format de campo em MsgBox, que seja monetário

    gil.ferreira
    avatar
    gil.ferreira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 30/04/2011
    • Mensagem nº1

    [Resolvido]Format de campo em MsgBox, que seja monetário Empty Format de campo em MsgBox, que seja monetário

    Mensagem  gil.ferreira 13/4/2013, 09:43

    Boa noite,preciso adicionar um formato de campo (monetário) em MsgBox. Office 2003 - Sistema Windows XP Profissional. Tentei esse código abaixo, mas não deu certo, pois marca somente o valor inteiro Por ex.: 23,00 marca 23 ou seja quero que marque com a vírgula ou seja igual na tabela. Nota: Foi feita buscas com este tópico e não deu certo pois estou usando DLookup nesta MsgBox. Obs.: Estes campos na Tabela_Produtos são Monetários.
    ------------------------------------------------------------------------------------
    Prom = DLookup("Promocao", "Tabela_Produtos", StrFiltro)
    If Prom = -1 Then
    MsgBox "Produto em Promoção" & vbCrLf & vbCrLf & "De R$ " & DLookup("Preco_Produto", "Tabela_Produtos", StrFiltro) & vbCrLf & vbCrLf & "Por R$ " & DLookup("Preco_Promocao", "Tabela_Produtos", StrFiltro), vbInformation, "Aviso!"
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010
    • Mensagem nº2

    [Resolvido]Format de campo em MsgBox, que seja monetário Empty Re: [Resolvido]Format de campo em MsgBox, que seja monetário

    Mensagem  Avelino Sampaio 13/4/2013, 11:35

    Use a função Format. Exemplo:

    format(DLookup("Preco_Produto", "Tabela_Produtos", StrFiltro),"standard")

    ou se quiser no padrão Moeda

    format(DLookup("Preco_Produto", "Tabela_Produtos", StrFiltro),"currency")

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    gil.ferreira
    avatar
    gil.ferreira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 30/04/2011
    • Mensagem nº3

    [Resolvido]Format de campo em MsgBox, que seja monetário Empty Format de campo em MsgBox, que seja monetário

    Mensagem  gil.ferreira 14/4/2013, 00:31

    Avelino, obrigado pela atenção. Resolvido
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº4

    [Resolvido]Format de campo em MsgBox, que seja monetário Empty Re: [Resolvido]Format de campo em MsgBox, que seja monetário

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 19/5/2024, 23:57