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 : 20/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 Qua 13 Mar - 11: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 : 3900
    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 Sáb 16 Mar - 17: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 : 20/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 Ter 19 Mar - 21: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 4 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 : 3900
    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 Qua 20 Mar - 5: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 Qua 20 Mar - 12: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 : 20/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 Qua 20 Mar - 12: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 : 3900
    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 Qua 20 Mar - 12: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 12 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 : 20/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 Qua 20 Mar - 12: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 : 3900
    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 Qua 20 Mar - 13: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 : 20/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 Qua 20 Mar - 13: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 : 3900
    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 Qua 20 Mar - 13: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 : 20/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 Qua 20 Mar - 14: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 : 3900
    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 Qua 20 Mar - 14: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 : 20/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 Qua 20 Mar - 14: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: Qui 21 Nov - 10:31