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 : 234
    Registrado : 19/10/2016

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

    Mensagem  Carlao2 em Ter 12 Mar 2019, 10: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 5 vez(es)


    Última edição por Carlao2 em Ter 12 Mar 2019, 10:27, editado 1 vez(es)
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

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

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

    Mensagem  crysostomo em Ter 12 Mar 2019, 10: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 : 234
    Registrado : 19/10/2016

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

    Mensagem  Carlao2 em Ter 12 Mar 2019, 13: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 50%

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

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

    Mensagem  crysostomo em Ter 12 Mar 2019, 13: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.

      Data/hora atual: Qui 28 Maio 2020, 10:08