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

    avatar
    Carlao2
    Avançado
    Avançado

    Respeito às Regras 100%

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

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

    Mensagem  Carlao2 em 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 4 vez(es)


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

    Respeito às Regras 75%

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

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

    Mensagem  crysostomo em 12/3/2019, 14:16



    .................................................................................
    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 100%

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

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

    Mensagem  Carlao2 em 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
    VIP
    VIP

    Respeito às Regras 75%

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

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

    Mensagem  crysostomo em 12/3/2019, 17:18

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


    .................................................................................
    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: 6/12/2019, 05:32