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 com dois critérios de data e hora em campos separados

    ARGONZALE
    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 21/05/2015
    • Mensagem nº1

    [Resolvido]Dlookup com dois critérios de data e hora em campos separados Empty [Resolvido]Dlookup com dois critérios de data e hora em campos separados

    Mensagem  ARGONZALE 13/3/2024, 14:32

    Prezados, bom dia.

    Pesquisei sobre um código Dlookup que me traga duas informações gravadas na tabela em campos separados, sendo dia e horário e o que achei não está fazendo o que pretendo:

    Segue o código que tentei:
    Código:
    xpesquisa = DLookup("Data_cirurgia", "tempAgendamento", "Data_cirurgia= # " & Format(Me.txt_data, "mm/dd/yyyy") & " #") And "Hora_cirurgia = # " & Format(Me.txt_horario, "hh:mm") & " #"

    Resumo:
    Preciso que no click do botão, após inserir a data e horário no campo ele faça uma varredura na tabela de tempAgendamento para verificar se o dia e horário já estão reservados.

    Espero ter sido claro na minha dúvida e conto novamente com ajude vocês aqui do fórum.

    Obs: O campo Data_cirurgia e Hora_cirurgia devem estar separados, ao invés de colocar Format(Date, "ddmmyy") & " " & Format(Time, "hh:mm")


    .................................................................................
    Att.

    Alexandre Gonzales
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010
    • Mensagem nº2

    [Resolvido]Dlookup com dois critérios de data e hora em campos separados Empty Re: [Resolvido]Dlookup com dois critérios de data e hora em campos separados

    Mensagem  Avelino Sampaio 16/3/2024, 20:36

    Olá!

    Experimente assim:


    filtro= "Data_cirurgia = #" & Format(Me.txt_data, "mm/dd/yyyy") & "# And Hora_cirurgia = #" & Format(Me.txt_horario, "hh:mm") & "#"
    xpesquisa = DLookup("Data_cirurgia", "tempAgendamento", filtro)


    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    ARGONZALE
    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 21/05/2015
    • Mensagem nº3

    [Resolvido]Dlookup com dois critérios de data e hora em campos separados Empty Re: [Resolvido]Dlookup com dois critérios de data e hora em campos separados

    Mensagem  ARGONZALE 20/3/2024, 00:26

    Boa noite,

    Prezados Avelino,

    Não funcionou. o Campo xpesquisa é um campo texto que deveria trazer Data da Cirurgia e Hora da Cirurgia.
                                                                                                                      ↓                          ↓
                                                                                                             (Campo Data)       (Campo texto)

    Anexo um pequeno exemplo que criei e agradeceria se pudesse analisar novamente:

    Bastaria clicar no botão pesquisar para que troxesse o resultado esperado mas não funfa...
    Anexos
    [Resolvido]Dlookup com dois critérios de data e hora em campos separados AttachmentHora_Data.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (76 Kb) Baixado 2 vez(es)


    .................................................................................
    Att.

    Alexandre Gonzales
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010
    • Mensagem nº4

    [Resolvido]Dlookup com dois critérios de data e hora em campos separados Empty Re: [Resolvido]Dlookup com dois critérios de data e hora em campos separados

    Mensagem  Avelino Sampaio 20/3/2024, 08:28

    Alexandre,

    a filtragem não funcionava pelo fato do campo hora_cirurgia ter sido configurada para tipo texto.  Alterei o campo na tabela para tipo Data/hora abreviada e a filtragem passou a funcionar.

    Outra questão, utilize o ME! sempre que estiver se referindo a um campo do formulário, para o VBA distinguir de uma variável.

    Sucesso!


    Última edição por Avelino Sampaio em 20/3/2024, 15:22, editado 1 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    ARGONZALE
    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 21/05/2015
    • Mensagem nº5

    [Resolvido]Dlookup com dois critérios de data e hora em campos separados Empty Re: [Resolvido]Dlookup com dois critérios de data e hora em campos separados

    Mensagem  ARGONZALE 20/3/2024, 15:15

    Bom dia.

    Avelino, o exemplo que anexou é diferente e eu fiz como vc informou mas ainda não roda.

    Alterei o campo horario para "Hora abreviada" mas o codigo ainda não funciona.


    .................................................................................
    Att.

    Alexandre Gonzales
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010
    • Mensagem nº6

    [Resolvido]Dlookup com dois critérios de data e hora em campos separados Empty Re: [Resolvido]Dlookup com dois critérios de data e hora em campos separados

    Mensagem  Avelino Sampaio 20/3/2024, 15:21

    Huuumm, segue o arquivo correto.

    Sucesso!
    Anexos
    [Resolvido]Dlookup com dois critérios de data e hora em campos separados AttachmentHora_Data_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (28 Kb) Baixado 10 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    ARGONZALE
    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 21/05/2015
    • Mensagem nº7

    [Resolvido]Dlookup com dois critérios de data e hora em campos separados Empty Re: [Resolvido]Dlookup com dois critérios de data e hora em campos separados

    Mensagem  ARGONZALE 20/3/2024, 15:28

    Avelino,

    Devo estar ficando louco mas o codigo não funciona. Será que você não confundiu os campos? Ou você me enviou o mesmo BD que eu enviei...

    Ao apetar o botão "Pesquisar..." o resultado deveria aparecer no campo "xpesquisa".


    .................................................................................
    Att.

    Alexandre Gonzales
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010
    • Mensagem nº8

    [Resolvido]Dlookup com dois critérios de data e hora em campos separados Empty Re: [Resolvido]Dlookup com dois critérios de data e hora em campos separados

    Mensagem  Avelino Sampaio 20/3/2024, 16:21

    Alexandre,

    substitua o código por este abaixo.


    Private Sub Comando4_Click()
    Dim result As VbMsgBoxResult
    Dim filtro As String
    'On Error Resume Next

    filtro = "Data_cirurgia = #" & Format(Me.txt_data, "mm/dd/yyyy") & "# And Hora_cirurgia = #" & Format(Me.txt_horario, "hh:mm") & "#"
            '--------------------- Campo data '---------------------'  '-------------------------Campo texto'--------------------------'
    MsgBox DLookup("Data_cirurgia & '  ' & Format(hora_cirurgia, 'hh:mm')", "tempAgendamento", filtro)

    End Sub


    Abra o formulário e clique no botão pesquisar. O que você visualiza ?

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    ARGONZALE
    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 21/05/2015
    • Mensagem nº9

    [Resolvido]Dlookup com dois critérios de data e hora em campos separados Empty Re: [Resolvido]Dlookup com dois critérios de data e hora em campos separados

    Mensagem  ARGONZALE 20/3/2024, 16:34

    Avelino,


    Enviamos respostas ao mesmo tempo.

    O MsgBox me traz o resultado esperado 20/03/2024 08:00 conforme imagem abaixo.

    [Resolvido]Dlookup com dois critérios de data e hora em campos separados Result10

    Como eu disse na mensagem, eu esperava o resultado Data e Hora impresso no campo mas ja percebi que ele retorna a Data se encontrar a Data e hora na tabela.

    Mais perfeirto que isso é impossível!!! Como sempre, muito obrigado pela ajuda.


    .................................................................................
    Att.

    Alexandre Gonzales
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010
    • Mensagem nº10

    [Resolvido]Dlookup com dois critérios de data e hora em campos separados Empty Re: [Resolvido]Dlookup com dois critérios de data e hora em campos separados

    Mensagem  Avelino Sampaio 20/3/2024, 16:44

    Ok, sucesso!

    Uma alternativa de pesquisa é usar a função Dcount().  Se o resulatdo for maior que zero é por que encontrou data e hora cadastrados.  Se igual a zero, não encontrou data e hora cadastrados.  Segue um exemplo alternativo de código:


    Private Sub Comando4_Click()
    Dim filtro As String
    'On Error Resume Next

    filtro = "Data_cirurgia = #" & Format(Me.txt_data, "mm/dd/yyyy") & "# And Hora_cirurgia = #" & Format(Me.txt_horario, "hh:mm") & "#"
           '--------------------- Campo data '---------------------'  '-------------------------Campo texto'--------------------------'
    If DCount("*", "tempAgendamento", filtro) > 0 Then
       'data e hora encontrados na tabela
       If Nz(Me!kpesquisa) = (Me!txt_data & " " & Me!txt_horario) Then
           MsgBox ("Data, " & Me!txt_data & " às " & Me.txt_horario & "h já reservado")
       Else
           If MsgBox("Confirma agendamento para " & Me.txt_data & " às " & Me.txt_horario & "?", vbYesNo, "Agendamento Cirúrgico") = vbYes Then
               Me!txtpesquisa = Me.txt_data & " " & Me.txt_horario
               MsgBox ("Data, " & Me!txt_data & " às " & Me.txt_horario & "h reservado com sucesso!")
           End If
       End If
    Else
       MsgBox "Data/hora não consta no cadastro", vbInformation, "Aviso"
    End If
    End  sub


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    ARGONZALE
    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 21/05/2015
    • Mensagem nº11

    [Resolvido]Dlookup com dois critérios de data e hora em campos separados Empty Re: [Resolvido]Dlookup com dois critérios de data e hora em campos separados

    Mensagem  ARGONZALE 20/3/2024, 17:18

    Avelino,

    O primeiro código é realmente perfeito. Somente uma informação que gostaria de comentar com você sobre o campo Hora.

    Estou usando tabelas desvinculdas com o BackEnd em MySql e o campo Hora estava me trazendo probelmas ao salvar na tabela então deixei como Texto.

    Vi que você propôs alterar o campo Hora na tabela para Data/Hora Abreviado mas esta solução traria outros problemas então mexi no código que me enviou e funcionou do mesmo jeito:

    Meu campo Hora é tipo texto e o código ficou assim:

    Código:
    filtro = "Data_cirurgia = #" & Format(Me.txt_data, "mm/dd/yyyy") & "# And Hora_cirurgia = '" & Me.txt_horario & "'"
    filtro = "Data_cirurgia = #" & Format(Me.txt_data, "mm/dd/yyyy") & "# And Hora_cirurgia = '" & Me.txt_horario & "'"
                                                                                                                                                   ↑ ------apóstrofo-------↑

    Devo mantê-lo desta forma ou devo forçar o uso do Campo Hora para Data/Hora Abreviado?


    .................................................................................
    Att.

    Alexandre Gonzales
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010
    • Mensagem nº12

    [Resolvido]Dlookup com dois critérios de data e hora em campos separados Empty Re: [Resolvido]Dlookup com dois critérios de data e hora em campos separados

    Mensagem  Avelino Sampaio 20/3/2024, 17:34

    Pode manter no formato texto, não vejo problema.

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    ARGONZALE
    avatar
    ARGONZALE
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 246
    Registrado : 21/05/2015
    • Mensagem nº13

    [Resolvido]Dlookup com dois critérios de data e hora em campos separados Empty Re: [Resolvido]Dlookup com dois critérios de data e hora em campos separados

    Mensagem  ARGONZALE 20/3/2024, 17:40

    Avelino,

    Muitíssimo Obrigado. Dou o tópico como resolvido!!!


    .................................................................................
    Att.

    Alexandre Gonzales
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº14

    [Resolvido]Dlookup com dois critérios de data e hora em campos separados Empty Re: [Resolvido]Dlookup com dois critérios de data e hora em campos separados

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 27/4/2024, 09:09