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


3 participantes

    [Resolvido]MsgBox Personalizado

    Assis
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009
    • Mensagem nº1

    [Resolvido]MsgBox Personalizado Empty [Resolvido]MsgBox Personalizado

    Mensagem  Assis 1/12/2018, 19:48

    Boa noite Amigos


    A explicação está na imagem.

    Obrigado

    [Resolvido]MsgBox Personalizado Sem_ty67


    Relação entre as tabelas

    [Resolvido]MsgBox Personalizado 2sem_t12


    Última edição por Alexandre Neves em 2/12/2018, 13:02, editado 1 vez(es) (Motivo da edição : corrigido título, de 'MsgBox Personalzado' para 'MsgBox Personalizado')


    .................................................................................
    *** Só sei que nada sei ***
    • Ir para o topo
    FranklinJSP
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 480
    Registrado : 25/02/2016
    • Mensagem nº2

    [Resolvido]MsgBox Personalizado Empty Re: [Resolvido]MsgBox Personalizado

    Mensagem  FranklinJSP 1/12/2018, 20:56

    Oi Assis

    Código:
    Dim ContaX
    ContaX = Dlookup("Conta","Banco","NBanco=" & Me.IDCaixa)
    MsgBox "Foi lançado......" & vbNewLine & "" & ContaX & "" & vbNewLine & "" & rst.Fields

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    • Ir para o topo
    Assis
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009
    • Mensagem nº3

    [Resolvido]MsgBox Personalizado Empty Re: [Resolvido]MsgBox Personalizado

    Mensagem  Assis 1/12/2018, 21:36

    Não

    Fiz um registo da Conta com IdCaixa =2.

    Mas o ContaX devolveu a Conta com NBanco = 1


    .................................................................................
    *** Só sei que nada sei ***
    • Ir para o topo
    Assis
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009
    • Mensagem nº4

    [Resolvido]MsgBox Personalizado Empty Re: [Resolvido]MsgBox Personalizado

    Mensagem  Assis 1/12/2018, 22:00

    FranklinJSP

    Assim devolve o idCaixa certinho . 1; 2; 3 etc, porque o "idcaixa" está na tabela.

    MsgBox "Foi Lançado Um Movimento Pendente Registado " & vbNewLine & "Na Conta" & vbNewLine & "" & rst.Fields("idcaixa").Value &


    .................................................................................
    *** Só sei que nada sei ***
    • Ir para o topo
    Alexandre Neves
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8499
    Registrado : 05/11/2009
    • Mensagem nº5

    [Resolvido]MsgBox Personalizado Empty Re: [Resolvido]MsgBox Personalizado

    Mensagem  Alexandre Neves 1/12/2018, 22:59

    Boa noite
    Será
    MsgBox "Foi Lançado Um Movimento Pendente Registado " & vbNewLine & "Na Conta" & vbNewLine & Dlookup("Conta","Banco","NBanco=" & rst.Fields("idcaixa").Value) &


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    • Ir para o topo
    Assis
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4772
    Registrado : 06/11/2009
    • Mensagem nº6

    [Resolvido]MsgBox Personalizado Empty Re: [Resolvido]MsgBox Personalizado

    Mensagem  Assis 1/12/2018, 23:59

    Boa noite Alexandre Neves

    É

    Obrigado Bom domingo.


    .................................................................................
    *** Só sei que nada sei ***
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº7

    [Resolvido]MsgBox Personalizado Empty Re: [Resolvido]MsgBox Personalizado

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 25/11/2024, 08:11