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


3 participantes

    [Resolvido]Evitar sobreposição de horários.

    wsenna
    wsenna
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Evitar sobreposição de horários. Empty [Resolvido]Evitar sobreposição de horários.

    Mensagem  wsenna 31/5/2015, 18:26

    Olá Feras de Plantão, boa tarde.

    Possuo um formulário em que cadastro as solicitações de serviços e neste possuo um procedimento no evento Após Atualizar do campo txtTipoServiço que funcionava muito bem, contudo, de uma hora para outra parou de funcionar.

    Procedimento:

    If DCount("*", "TAB_RESERVA", "Data_Evento=#" & TxtDataEvento & "# and ((Hora_inicio<=#" & TxtHoraInicial & "# and Hora_final>=#" & TxtHoraInicial & "#) or (Hora_inicio<=#" & TxtHoraFinal & "# and Hora_final>=#" & TxtHoraFinal & "#)) and ID_Serviço ='" & TxtTipoAgendamento & "'") > 0 Then 'existe incompatibilidade de agendamento
    MsgBox "Atenção: " & Chr(13) & "Já existe um evento agendado para o mesmo dia, horário e tipo de serviço...   ", vbExclamation, "  InfoBasic Smart System"
    Me.Undo
    Me.ID_Solicitante.SetFocus
    DoCmd.CancelEvent
    Else
    Me.Solicitante = Me.ID_Solicitante.Column(1)
    Me.SUBFORM_RESERVA.Requery
    Me.Observ_Serviço.SetFocus
    End If

    O que poderia ter acontecido?

    Abraços, WSenna


    Última edição por wsenna em 1/6/2015, 14:21, editado 1 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8513
    Registrado : 05/11/2009

    [Resolvido]Evitar sobreposição de horários. Empty Re: [Resolvido]Evitar sobreposição de horários.

    Mensagem  Alexandre Neves 31/5/2015, 19:53

    Olá, Mestre WSenna
    Terá a ver com formatação de data/hora?
    O ID_Serviço é texto? ou será número?
    If DCount("*", "TAB_RESERVA", "Data_Evento=#" & Format(TxtDataEvento,"formato) & "# and ((Hora_inicio<=#" & TxtHoraInicial & "# and Hora_final>=#" & TxtHoraInicial & "#) or (Hora_inicio<=#" & TxtHoraFinal & "# and Hora_final>=#" & TxtHoraFinal & "#)) and ID_Serviço ='" & TxtTipoAgendamento & "'") > 0 Then 'existe incompatibilidade de agendamento
    MsgBox "Atenção: " & Chr(13) & "Já existe um evento agendado para o mesmo dia, horário e tipo de serviço... ", vbExclamation, " InfoBasic Smart System"

    Grande Abraço,
    Alexandre


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    wsenna
    wsenna
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Evitar sobreposição de horários. Empty Re: [Resolvido]Evitar sobreposição de horários.

    Mensagem  wsenna 31/5/2015, 23:57

    Olá Alexandre, boa tarde.

    Meu Amigão, o campo ID_Serviço é do tipo Texto.

    Apliquei a sua sugestão mas a coisa teima em não impedir que se cadastre novo registro com o horário de início entre outro registro para o mesmo ID_Serviço.

    Aguardo novas instruções.

    WSenna
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Evitar sobreposição de horários. Empty Re: [Resolvido]Evitar sobreposição de horários.

    Mensagem  JPaulo 1/6/2015, 12:21

    Um pitaco;

    Teste por favor e retorne;

    Código:
    If DCount("*", "TAB_RESERVA", "Data_Evento=#" & Format(TxtDataEvento, "mm-dd-yyyy") & "# and ((Hora_inicio<=#" & TxtHoraInicial & "# and Hora_final>=#" & TxtHoraInicial & "#) or (Hora_inicio<=#" & TxtHoraFinal & "# and Hora_final>=#" & TxtHoraFinal & "#)) and ID_Serviço ='" & TxtTipoAgendamento & "'") > 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]Evitar sobreposição de horários. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Evitar sobreposição de horários. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Evitar sobreposição de horários. Folder_announce_new Instruções SQL como utilizar...
    wsenna
    wsenna
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Evitar sobreposição de horários. Empty Re: [Resolvido]Evitar sobreposição de horários.

    Mensagem  wsenna 1/6/2015, 12:37

    Amigo JPaulo, bom dia.

    Testei, mas o código está deixando passar todos os registros, mesmo aqueles com horário inicial entre o período de um registro anterior, ou seja, está sobrepondo os horários.

    O que me deixa perplexo é que até uns cinco dias atrás a "coisa" funfava legal e de repente parou de funcionar.

    Veja abaixo um modelo que desmembrei do BD principal.

    Abraços, WSenna
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Evitar sobreposição de horários. Empty Re: [Resolvido]Evitar sobreposição de horários.

    Mensagem  JPaulo 1/6/2015, 13:04

    Amigão;

    Com esta formatação data americana, funfou na hora aqui;

    "Data_Evento=#" & Format(TxtDataEvento, "mm-dd-yyyy") & "#


    .................................................................................
    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]Evitar sobreposição de horários. Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Evitar sobreposição de horários. Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Evitar sobreposição de horários. Folder_announce_new Instruções SQL como utilizar...
    wsenna
    wsenna
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/12/2009

    [Resolvido]Evitar sobreposição de horários. Empty Re: [Resolvido]Evitar sobreposição de horários.

    Mensagem  wsenna 1/6/2015, 13:46

    Amigo JPaulo, Muitíssimo obrigado.

    Mesmo com sua outra formatação a coisa funfou, bastou que eu desacoplasse o campo TxtTipoServiço e adicionasse o campo ID_Serviço e fizesse referência a ele no evento Após Atualizar de TxtTipoServiço.
    Mais algumas modificações no evento Após Atualizar do campo TxtTipoServiço e a coisa funfou legal.

    Veja o modelo:

    Abraços, WSenna

    Conteúdo patrocinado


    [Resolvido]Evitar sobreposição de horários. Empty Re: [Resolvido]Evitar sobreposição de horários.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/12/2024, 10:01