MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Formatação de mensagem box

    Compartilhe

    Newby
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 20/09/2016

    Formatação de mensagem box

    Mensagem  Newby em Ter 20 Set 2016, 16:01

    Bom dia a todos,

    Procurei mais não encontrei como utilizar o format, left e right juntos para solucionar o meu caso.

    Dim Qnt, Pro, Pre, D As string

    Qnt = "99" ' Tamanho maximo 2 Caracteres + espaço
    Pro = "MOUSE OPTICO" ' Tamanho maximo 28 caracteres - espaço
    Pre= "R$ 000,00" 'Tamanho maximo9 Caracteres
    D = "Nada especifico" 'Tamanho maximo 39 caracteres - TAB

    '39 caracteres

    MsgBox "O Texto tem o seguinte formato: " & Format(Qnt, Left(2 caracteres + tab) & And Pro(Right Maximo 28 caracteres - Tab da Qnt) & And(Pre(Right 9 caracteres - Tab) & vbCrLf & D

    Agradeço a todos.

    avatar
    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 329
    Registrado : 14/02/2011

    Formatação de mensagem box

    Mensagem  daniloreiis em Ter 20 Set 2016, 18:32

    Boa tarde!

    Poderia dizer qual objetivo ?

    eu não entendi!


    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10

    Newby
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 20/09/2016

    Re: Formatação de mensagem box

    Mensagem  Newby em Ter 20 Set 2016, 18:34

    Na verdade o objetivo é exportar neste formato para o Word mas se aparecer em uma mensagem neste formato ja vai dar certo
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 576
    Registrado : 09/11/2012

    Re: Formatação de mensagem box

    Mensagem  =>Nois em Ter 20 Set 2016, 18:38

    ve se funciona

    Código:
    Dim Qnt, Pro, Pre, D As String

    Qnt = "99" ' Tamanho maximo 2 Caracteres + espaço
    Pro = "MOUSE OPTICO" ' Tamanho maximo 28 caracteres - espaço
    Pre = "R$ 000,00" 'Tamanho maximo9 Caracteres
    D = "Nada especifico" 'Tamanho maximo 39 caracteres - TAB

    MsgBox "O Texto tem o seguinte formato: " _
    & left(Qnt, 2) & " " _
    & right(Pro, 28) & " " _
    & right(Pre, 9) & " " _
    & vbCrLf & D


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

    Newby
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 20/09/2016

    Re: Formatação de mensagem box

    Mensagem  Newby em Ter 20 Set 2016, 19:28

    Boa tarde Nois,

    Bom como disse logo antes da publicação faltei com informações, o objetivo final é enviar para o Word, achei que uma mensagem box suportaria o tamanho de 39 caracteres e nao suporta
    A questão é que o texto continua desformatado.
    Sai algo do tipo:

    Quant........Produto..............Preco
    1..............Mouse optico......R$ 1,99
    34.........Teclado.......R$ 33,50
    2.....................Monitor.........R$ 200,00

    'Sem os pontos é que no fórum também corta os espaços
    A questão é que sai desformatado, busco algo do tipo:

    Quant........Produto..................Preco
    1...........Mouse optico............R$.....1,99
    34.........Teclado....................R$....33,50
    2...........Monitor.....................R$ 200,00

    Estou nos testes aqui mais com dificuldades em alguns pontos, o primeiro campo e o ultimo.
    A quantidade vai ter no maximo 2 campos e precisa pular 2 para começar o produto e o preço deve começar no mesmo "Tab" todos só que acaba que
    O Produto começa desalinhado e o preço varia com a quantidade de letras do produto entao nao fica alinhado

    Right(Qnt, 4) & " " & Pro & Chr(9) & Chr(9) Pre & vbCrLf & D
    avatar
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 576
    Registrado : 09/11/2012

    Re: Formatação de mensagem box

    Mensagem  =>Nois em Qua 21 Set 2016, 00:06

    bom se nao tem um padrão eu nao tenho conhecimento para te ajudar
    com relação a msgbox de uma olhada nesse exemplo

    [Você precisa estar registrado e conectado para ver este link.]

    aceitou essa quantidade de caracteres que fiz o teste

    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    [Você precisa estar registrado e conectado para ver esta imagem.] Att. Nois

    Se tudo não der certo... Descanse e tente novamente!

      Data/hora atual: Ter 25 Jul 2017, 05:30