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]Dlookup em formulario

    avatar
    robertonl
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 21/12/2016

    [Resolvido]Dlookup em formulario Empty [Resolvido]Dlookup em formulario

    Mensagem  robertonl 13/7/2021, 01:14

    Boa noite.
    Estou trabalhando em um projeto no qual estou trabalhando em um pequeno projeto e estou tentando fazer um Dlookup e não funcionou como o previsto
    Na tabela "Tab_EscalaMinistro" , possui 3 campos : Data_EscalaMinistro , Escala_Ministro1;Escala_Ministro2

    No formulario Frm_EscalLeitores possuo o campo Data_EscalaLeitores e Campo Primeiro_Ministro e Segundo_Ministro.

    Quando no formulario  Frm_EscalLeitores, quando digitar a data desejado no campo  Data_EscalaLeitores ele procura a informação na tabela Tab_EscalaMinistro e no formulario Frm_EscalLeitores o campo Primeiro_Ministro recebe Escala_Ministro1 e Segundo_Ministro recebe Escala_Ministro2

    Segue a sintaxe utilizada que não funcionou

    Private Sub Data_EscalaLeitores_LostFocus()
    On Error Resume Next
      Me.Primeiro_Ministro = DLookup("Escala_Ministro1", "Tab_EscalaMinistro", "Data_EscalaMinistro='") ' & Me.Data_EscalaLeitores & "'")
    End Sub
    Anexos
    [Resolvido]Dlookup em formulario AttachmentProjeto_Liturgia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (215 Kb) Baixado 2 vez(es)
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 383
    Registrado : 28/10/2010

    [Resolvido]Dlookup em formulario Empty Re: [Resolvido]Dlookup em formulario

    Mensagem  zcarloslopes 13/7/2021, 12:23

    Bom dia robertonl,

    Teste o seguinte:
    Código:
    Private Sub Data_EscalaLeitores_LostFocus()
    On Error Resume Next

    Dim dData as Date

    dData = Me.Data_EscalaLeitores

    Me.Primeiro_Ministro = DLookup("Escala_Ministro1", "Tab_EscalaMinistro", "Data_EscalaMinistro = #" & dData & "#")

    End Sub

      Data/hora atual: 20/9/2021, 08:40