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 : 27
    Registrado : 21/12/2016

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

    Mensagem  robertonl 14/7/2021, 23:54

    Boa noite.

    A função dlookup quando digita uma data que seja abaixo do dia 10 (exemplo 07/08/2021) as informações não é retornada.
    Como proceder.
    Fiz a alteração abaixo porém não funcionou

    Private Sub Data_EscalaLeitores_LostFocus()
    On Error Resume Next
    Dim dData As Date

    dData = Format(Me.Data_EscalaLeitores, "dd/mm/yyyy")
      'Me.Primeiro_Ministro = DLookup("Escala_Ministro1", "Tab_EscalaMinistro", "Escala_Ministro1='" & Me.Data_EscalaLeitores & "'")
      'DLookup("Campo" , "Tabela" , "CampoFiltro= 'abcd'")
       Me.Primeiro_Ministro = DLookup("Escala_Ministro1", "Tab_EscalaMinistro", "Data_EscalaMinistro=#" & dData & "#")
       Me.Segundo_Ministro = DLookup("Escala_Ministro2", "Tab_EscalaMinistro", "Data_EscalaMinistro=#" & dData & "#")
    End Sub


    Última edição por robertonl em 16/7/2021, 00:24, editado 1 vez(es)

    robertonl gosta desta mensagem

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 15/7/2021, 00:08

    Olá Roberto,

    Neste caso, utilize a formatação MM/DD/YYYY.

    Sempre que possível, utilize o tratamento de erros, pois assim vc vai saber se a sua rotina está com erro ou não quando for executada.

    A declaração "On Error Resume Next" irá desconsiderar qualquer erro que existir na sua rotina.

    Segue:

    Código:


    Private Sub Data_EscalaLeitores_LostFocus()
    On Error GoTo trata_erro
    Dim dData As Date

        dData = Format(Me.Data_EscalaLeitores, "mm/dd/yyyy")
        'Me.Primeiro_Ministro = DLookup("Escala_Ministro1", "Tab_EscalaMinistro", "Escala_Ministro1='" & Me.Data_EscalaLeitores & "'")
        'DLookup("Campo" , "Tabela" , "CampoFiltro= 'abcd'")
        Me.Primeiro_Ministro = DLookup("Escala_Ministro1", "Tab_EscalaMinistro", "Data_EscalaMinistro=#" & dData & "#")
        Me.Segundo_Ministro = DLookup("Escala_Ministro2", "Tab_EscalaMinistro", "Data_EscalaMinistro=#" & dData & "#")
       
        Exit Sub

    trata_erro:
       
        MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro!!!"
        Exit Sub
       
    End Sub



    É isso.

    []'s

    FIM


    avatar
    robertonl
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  robertonl 15/7/2021, 00:20

    Ok, porém quando clico no formulario está dando esta mensagem " Erro gerado 13 - Tipos incompativeis"
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 15/7/2021, 01:24

    Roberto,

    Disponibilize uma cópia do teu bd, somentes objetos pertinentes à sua duvida.

    []'s

    FIM
    avatar
    robertonl
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Dlookup em formulario Empty Dlookup em formulario

    Mensagem  robertonl 15/7/2021, 01:56

    Arquivo em anexo
    Anexos
    [Resolvido]Dlookup em formulario AttachmentProjeto_Liturgia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (258 Kb) Baixado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1818
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 15/7/2021, 02:18

    Roberto,

    Eu mudei o evento do campo para "Após Atualização", ou seja "AfterUpdate", e também coloquei uma condição caso a data não for preenchida.

    Segue versão.

    []'s


    FIM
    Anexos
    [Resolvido]Dlookup em formulario AttachmentProjeto_Liturgia_v1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (241 Kb) Baixado 7 vez(es)
    avatar
    robertonl
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  robertonl 15/7/2021, 02:58

    Vou fazee os testes, e dou um retorno

      Data/hora atual: 16/10/2021, 22:45