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]Saudação no sistema!

    APJesus
    APJesus
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 21/09/2010

    [Resolvido]Saudação no sistema! Empty Saudação no sistema!

    Mensagem  APJesus 9/12/2010, 16:04

    Boa Tarde, amigos deste excelente fórum. estou com uma dúvida: vou utilizar um exemplo que já tinha algum tempo assim que iniciei em access de saudação na abertura do sistema. Ex: BOA TARDE, HOJE É QUINTA-FEIRA, DIA ##/##/####, ETC..., só que agora muita coisa foi mudado, diversos códigos diferenciados, um pouquinho mais de conhecimento e um formato que fique um pouco mais profissional. Resumindo: Quero criar um form ( Não queria a janela inerna do access como tenho), ex: FORM_SAUDAÇÃO, que quando abra o menu principal, acione este form de saudação, até aí tudo bem, mas queria que fosse colocado o nome do usuário que está acessando o sistema, mediante ao menu principal que tenho registrato o usuário. EX: BOA TARDE ALESSANDRO, HOJÉ É QUINTA-FEIRA, DIA ##/##/####. O código que tenho é este, minha dúvida é onde entraria o nome do usuário no código abaixo:(Obs: O nome do usuário, provém do form menu principal, campo user)

    Private Sub Form_Open(Cancel As Integer)
    If Time < #12:00:00 PM# Then
    Cumprimento = "Bom dia, " & "hoje é " & Date
    ElseIf Time <= #6:00:00 PM# Then
    Cumprimento = "Boa tarde, " & "hoje é " & Date
    Else
    Cumprimento = "Boa noite, " & "hoje é " & Date
    End If
    End Sub

    Desde já agradeço a colaboração de todos...
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Saudação no sistema! Empty Re: [Resolvido]Saudação no sistema!

    Mensagem  criquio 9/12/2010, 16:11

    Teste assim:

    Private Sub Form_Open(Cancel As Integer)
    If Time < #12:00:00 PM# Then
    Cumprimento = "Bom dia, " & Forms!NomeFormPrincipal!user & "! Hoje é " & Date
    ElseIf Time <= #6:00:00 PM# Then
    Cumprimento = "Boa tarde, " & Forms!NomeFormPrincipal!user & "! Hoje é " & Date
    Else
    Cumprimento = "Boa noite, " & Forms!NomeFormPrincipal!user & "! Hoje é " & Date
    End If
    End Sub


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    APJesus
    APJesus
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 21/09/2010

    [Resolvido]Saudação no sistema! Empty Re: [Resolvido]Saudação no sistema!

    Mensagem  APJesus 9/12/2010, 16:15

    Críquio, tudo bem? valeu pela dica, vou testar e respondo o quanto antes. desculpe, mas não perguntei antes e o evento DoCmd.OpenForm, entra em cima do IfTime.

    Abraços
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Saudação no sistema! Empty Re: [Resolvido]Saudação no sistema!

    Mensagem  criquio 9/12/2010, 16:19

    O código acima pode ser colocado no evento "Ao carregar" do form aonde a mensagem deverá aparecer. E no evento "Ao carregar" do form principal você coloca o código para abrir o form de boas vindas, o DoCmd...
    Ou pode colocar tudo no "Ao carregar" do form principal, só alterando o código para jogar a mensagem no label do form de boas vindas.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    APJesus
    APJesus
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 367
    Registrado : 21/09/2010

    [Resolvido]Saudação no sistema! Empty Re: [Resolvido]Saudação no sistema!

    Mensagem  APJesus 9/12/2010, 16:29

    Valeu, fera!!!

    Põe na conta aí...(rsrsr)

    Abraços e tópico resolvido.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Saudação no sistema! Empty Re: [Resolvido]Saudação no sistema!

    Mensagem  criquio 9/12/2010, 16:35

    Obrigado pelo retorno. Precisando, apite.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Saudação no sistema! Empty Re: [Resolvido]Saudação no sistema!

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 15:03