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]Mensagem de boas vindas

    avatar
    Carlao2
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/10/2016

    [Resolvido]Mensagem de boas vindas Empty [Resolvido]Mensagem de boas vindas

    Mensagem  Carlao2 12/3/2019, 14:13

    Bom dia a todos

    Venho pedir a ajuda dos senhores com uma questão que acredito ser simples porém, não estou conseguindo idealizar

    No banco em anexo no formulário Login ao digitar a senha gostaria que na mensagem de boas vindas aparecesse o seguinte

    Se o banco fosse acessado de manhã : "Bom dia Adm seja benvindo"
    Se o banco fosse acessado à tarde: "Boa tarde Adm, seja benvindo"
    Se o banco fosse acessado à noite: "Boa noite Adm, seja benvindo"

    Conto com a habitual ajuda dos senhores e desde já agradeço

    A senha do banco é: 1234
    Anexos
    [Resolvido]Mensagem de boas vindas AttachmentTesteLogin.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (68 Kb) Baixado 8 vez(es)


    Última edição por Carlao2 em 12/3/2019, 14:27, editado 1 vez(es)
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2745
    Registrado : 23/01/2018

    [Resolvido]Mensagem de boas vindas Empty Re: [Resolvido]Mensagem de boas vindas

    Mensagem  crysostomo 12/3/2019, 14:16



    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    avatar
    Carlao2
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 264
    Registrado : 19/10/2016

    [Resolvido]Mensagem de boas vindas Empty Re: [Resolvido]Mensagem de boas vindas

    Mensagem  Carlao2 12/3/2019, 17:13

    crysostomo. Boa tarde

    Muito obrigado pela dica.
    Utilizei o exemplo que você me passou e adaptei a minha necessidade.

    O código ficou assim

    Private Sub Btn_Entrar_Click()

    If TxtUSUARIO.Value = TxtUsuarioCad.Value And TxtSenha.Value = TxtSenhaCad.Value Then


    If Time >= "06:00" And Time <= "12:00" Then

    MsgBox ("Bom dia, seja benvindo" & " " & TxtUSUARIO.Value)
    DoCmd.Close

    ElseIf Time >= "12:01" And Time <= "18:00" Then
    MsgBox ("Boa tarde, seja benvindo" & " " & TxtUSUARIO.Value)
    DoCmd.Close

    ElseIf Time >= "18:01" Then
    MsgBox ("Boa noite, seja benvindo" & " " & TxtUSUARIO.Value)

    DoCmd.Close
    End If
    Else
    MsgBox ("Senha Incorreta!!!")

    TxtUSUARIO = ""
    TxtSenha = ""

    TxtUSUARIO.SetFocus


    End If

    End Sub

    Com isso diferentemente de a mensagem aparecer no rodapé do formulário ela aparece ao clicar no OK.

    Muito obrigado!!!!
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2745
    Registrado : 23/01/2018

    [Resolvido]Mensagem de boas vindas Empty Re: [Resolvido]Mensagem de boas vindas

    Mensagem  crysostomo 12/3/2019, 17:18

    Obrigado pelo retorno é deixar aqui, outros vai procurar esse codigo.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Conteúdo patrocinado


    [Resolvido]Mensagem de boas vindas Empty Re: [Resolvido]Mensagem de boas vindas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 12:41