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

    [Resolvido]Alinhamento em MsgBox

    Compartilhe
    avatar
    Antonio Aurélio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 29/01/2014

    [Resolvido]Alinhamento em MsgBox

    Mensagem  Antonio Aurélio em Qua 19 Dez 2018, 17:10

    Senhores, boa tarde.

    Deparei com uma dúvida e gostaria de saber se é possível ou não:

    Ao utilizar o msgbox, é possível alinhar as linhas uma abaixo da outro (linhas curtas), p. exemplo:


    If (me.Usuário) = 1 then
    Msbox "Valores disponíveis para o usuário ' - Teste: "
    " 2353 - Aplicação em Madeira"
    " 2380 - Aplicação em Plástico"
    " 2410 - Solvente"
    end if

    Isso pode ser útil para informar ao usuário os valores ou códigos ele pode utilizar sem recorrer a lista impressa.

    Agradeço.

    Abraços,

    Antonio Aurélio
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3658
    Registrado : 06/11/2009

    Re: [Resolvido]Alinhamento em MsgBox

    Mensagem  Assis em Qua 19 Dez 2018, 18:39

    Assim



    .................................................................................
    *** Só sei que nada sei ***
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7304
    Registrado : 11/05/2010

    Re: [Resolvido]Alinhamento em MsgBox

    Mensagem  vieirasoft em Qua 19 Dez 2018, 19:48

    Di a As String

    If (me.Usuário) = 1 then
    a=Msbox ("Valores disponíveis para o usuário - Teste: & vbNewLine & 2353 - Aplicação em Madeira " & vbNewLine & 2380 - Aplicação em Plástico & vbNewLine & 2380 - Aplicação em Plástico & vbNewLine & 2410 - Solvente",vbYesNo,"Aviso")
    if a=vbYes Then
    seucódigo....

    end if
    avatar
    Antonio Aurélio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 29/01/2014

    Alinhamento em MsgBox

    Mensagem  Antonio Aurélio em Qui 20 Dez 2018, 16:21

    Senhores, boa tarde.

    Sr. Assis, Sr. Vieira

    Agradeço suas orientações.

    O exemplo do Sr. Assis funcionará bem quando houver a necessidade de confirmação ou não de determinado lançamento (muito bom e oportuno).

    A orientação do Sr. Vieira era a minha dúvida.
    Assim, não haverá necessidade de se ter uma lista impressa.

    Agradeço pela atenção dispensada.

    Muito obrigado.

    Estou encerrando o tópico como resolvido.

    Abraços,

    Antonio Aurélio

      Data/hora atual: Ter 22 Jan 2019, 15:16