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 para usuário

    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 14/03/2011

    [Resolvido]Mensagem para usuário Empty Mensagem para usuário

    Mensagem  Ronaldo Costa 19/3/2013, 20:40

    Olá pessoal!

    Tenho uma tbl_Recado, cujos campos são: idRec (autoNum), idUsuário (Número), idDestinatário (número), recado (memorando), lido (sim/não).
    tenho um frm_Recado, cujos campos são: idUsuário (coloco o idusuário), idDestinatário (coloco o nome do destinatário), recado (coloco a mensagem), lido (marco para não mais aparecer na tela).

    No meu sistema, assim que o usuário loga, é aberto o frm_Principal. gostaria que, ao fazer login o sistema verificasse se para este usuário existe alguma mensagem e abrisse-a através do frm_Recado.

    Estou tentando o seguinte código no evento ao clicar do botão "OK" do frm_Login:

    If DLookup("lido", "tbl_Recado", "idDestinatário = [Forms]![frmLogin].[cboUsuário]") = 0 Then
    DoCmd.OpenForm "frmRecado"

    Else
    DoCmd.OpenForm "frmPrincipal"

    End If

    A ideia é que se o campo lido não estiver marcado, ou seja, se o valor dele for 0 e o campo idDestinatário for igual ao id do usuário logado, o sistema abra o frm_recado; caso não, abra o frmPrincipal.
    O código acima, não está respondendo nada. Seja qual for a situação da tbl_Recado, após o login está abrindo o frm_Principal.

    no aguardo...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Mensagem para usuário Empty Re: [Resolvido]Mensagem para usuário

    Mensagem  JPaulo 20/3/2013, 09:04

    'se o idDestinatário estiver na primeira coluna da combobox e for numerico
    If DLookup("lido", "tbl_Recado", "idDestinatário =" & Forms!frmLogin!cboUsuário.Column(0)) = 0 Then

    'se o idDestinatário estiver na segunda coluna da combobox e for numerico
    If DLookup("lido", "tbl_Recado", "idDestinatário =" & Forms!frmLogin!cboUsuário.Column(1)) = 0 Then


    'se o idDestinatário estiver na primeira coluna da combobox e for texto
    If DLookup("lido", "tbl_Recado", "idDestinatário ='" & Forms!frmLogin!cboUsuário.Column(0) & "'") = 0 Then


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Mensagem para usuário Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Mensagem para usuário Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Mensagem para usuário Folder_announce_new Instruções SQL como utilizar...
    Ronaldo Costa
    Ronaldo Costa
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 287
    Registrado : 14/03/2011

    [Resolvido]Mensagem para usuário Empty Re: [Resolvido]Mensagem para usuário

    Mensagem  Ronaldo Costa 20/3/2013, 14:25

    Valeu JPaulo, a primeira opção caiu bem.

    grato
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Mensagem para usuário Empty Re: [Resolvido]Mensagem para usuário

    Mensagem  JPaulo 20/3/2013, 14:27

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Mensagem para usuário Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Mensagem para usuário Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Mensagem para usuário Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Mensagem para usuário Empty Re: [Resolvido]Mensagem para usuário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/11/2024, 14:20