MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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.


    daniloreiis
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 315
    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
    -------------------------------------------------------------------------------------------------------------------------------------------------
    [Você precisa estar registrado e conectado para ver este link.]

    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

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 532
    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 reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

    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

    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 532
    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 reflita nessa frase: "Huguinho", "Zezinho" & "Luizinho"

      Data/hora atual: Sab 03 Dez 2016, 04:33