[Resolvido]Impedir duplicidade de datas

no projeto de controle de viagens, na tabela existem dentre outros, os campos "Matricula" (chave primaria) Tipo Texto e o campo "DtSaida", tipo Data (data abreviada) e, gostaria que ao digitar a data de saida (dtsaida) verificasse na tabela se ja existe registro para tal data.

Ex: no dia 28/10/2019 houve o registro para a data de 27/10/2019 para a matricula 11588641. Hoje, 01/11/2019 chegou uma solicitação para novo registro da  matricula 11588641 para 27/10/2019. Sendo assim haveria duplicidade de informações, pois o mesmo motorista fazendo duas viagens no mesmo dia o que não é permitido. então gostaria não fosse permitido a duplicidade de datas para a mesma matricula.

Amigo, se eu entendi bem seu problema a solução é usar chave primária composta.

Acho que não resolveria pois, um mesma "matricula" será usada para várias datas e várias "matriculas" para uma mesma data.

olá

teste no evento antes de atualizar do campo data do subformulario

Código:

Private Sub DtSaida_BeforeUpdate(Cancel As Integer)
 
    'On Error Resume Next

    If DCount("DtSaida", "tblDetalhes", "Matricula = " & Me.Parent!Matricula & " And DtSaida = #" & DtSaida & "#") > 0 Then
               
        'avisa
        MsgBox "Já existe um Agendamento para esta matricula" & Space(2) & "" _
        & DLookup("[Matricula]", "tblDetalhes", "[Matricula] = " & Me.Parent!Matricula & "") & vbCrLf & "" _
        & "Agendado para esta Data" & vbCrLf & "" _
        & DLookup("[DtSaida]", "tblDetalhes", "[DtSaida] = #" & Format(Me!DtSaida, "mm/dd/yyyy") & "#") & vbCrLf & "" _
        & "Verifique e Confira os dados", vbInformation, "Verificação"
        'desfaz a digitação
        Me.Undo
        Cancel = True
    End If
End Sub

Aguardamos

Abraços

Acho que o amigo renpv , que dizer é que a data deveria ser uma chave primária , já usei isto em um projeto deveria fazer a distribuição por dia então seria algo tipo assim :

Tabela DataAbertura  - Deveria fazer abertura do dia ou seja inserir a data do serviço esta tabela seria mais ou menos assim .



DataAbertura_tbl                           Rotas_tbl  
{}Id_Servicos---------------------->{}Chave_Estrangeira_DataTbl (Idexidado,Sim,DuplicaçãoAutorizada,Não)
[] Data                                         []Motorista    
                                                   []Partida
                                                   []Destino


{} Chave primária
[] Campo formulário

Desulpe Celso não havia visto seu POST . Acho que é mais adequado. Mas como já havia postado fica desta outra alternativa.

Olá Maicon,

Não tem que se desculpar, estamos todos a dar idéias e sugestões a que solicita

Abraços e sucesso

Boa tarde,

Celso, esta dando erro 3464 - tipo de dados incompativel na expressao de criterio

Ja tentei como data e texto.

Olá tauron,

No exemplo que disponibilizou esta Ok, sem erro.

qual linha da o erro?

verifique qual campo e corrija as Aspas para texto ou numer

Aguardo

Chave primária composta. Veja como fazer

Amigo renpv, na tblFuncionarios há chave composta, o fato é que preciso que a inserção de dados seja interrompida quando houver duplicidade de data (dtsaida) e, como eu disse na mensagem anterior, uma matricula terá varias datas e várias matriculas poderão ter a mesma data.

Muito obrigado a Renpv e Celso Roberto.

O codigo ficou assim:

Código:

Private Sub DtSaida_BeforeUpdate(Cancel As Integer)
 
    'On Error Resume Next

    If DCount("DtSaida", "tblDetalhes", "Matricula = [color=#0000ff]'"[/color] & Me.Parent!Matricula & [color=#0000ff]"'[/color] And DtSaida = #" & DtSaida & "#") > 0 Then
               
        'avisa
        MsgBox "Já existe um Agendamento para esta matricula" & Space(2) & "" _
        & DLookup("[Matricula]", "tblDetalhes", "[Matricula] = [color=#0000ff]'"[/color] & Me.Parent!Matricula & [color=#0000ff]"'"[/color]) & vbCrLf & "" _
        & "Agendado para esta Data" & vbCrLf & "" _
        & DLookup("[DtSaida]", "tblDetalhes", "[DtSaida] = #" & Format(Me!DtSaida, "mm/dd/yyyy") & "#") & vbCrLf & "" _
        & "Verifique e Confira os dados", vbInformation, "Verificação"
        'desfaz a digitação
        Me.Undo
        Cancel = True
    End If
End Sub

Obrigado pelo retorno. Sucesso.

Olá..

Retornando de um breve descanso!!

Ficamos felizes por ter ajudado

Abraços e sucesso

Bom dia mestres, Estou reabrindo este topico devido ao fato que começou a ocorrer um fato inusitado, como meu projeto, o codigo que o Celso Roberto postou funfou blz, até ontem (11/11/2019). Agora se eu registro uma data para uma matricula, não consigo realizar para outro motorista.

Ex. Já registrei o dia 17/06/2019 para a matricula 11588641 e dia 18/06/2019 para a matricula 22699752, quando tento registrar a data 18/06/2019 para a matricula 11588641 informe que já há agendamento.

fazendo os testes no arquivo que disponibilizei não ocorre nenhum erro a alteração foi quanto a divisão do projeto em Front End e Back End.

Olá...

Fiz aqui uma simulação em rede com seu exemplo e não apresentou nenhum problema, cadastrei varias matriculas e simulei com datas de saida iguais e foi tudo normal.

Verifique se o problema ocorre em todas as maquinas, pois pode ser configuração por maquina com sistema operacional diferente.

Lembro que tive um caso similar e o problema era este acima e solucionei formatando a data.

Então faça teste alterando esta linha abaixo.

Código:

If DCount("DtSaida", "tblDetalhes", "Matricula = " & Me.Parent!Matricula & " And DtSaida = #" & Format(Me!DtSaida, "mm/dd/yyyy") & "#") > 0 Then

Mas antes não esqueça de verificar todas as maquinas, verificando quais apresenta o problema e quais não, assim voce altera só as que apresentos o problema.

e também verifique se fez a transição dos codigos corretamente

Aguardamos

Abraços

Obrigado pela resposta rapida. Eu não consigo entender o que esta acontecendo, porque quando implementei o codigo, funcionou perfeitamente, e nao semana seguinte começou.

Por enquanto, somente roda em uma maquina (onde projetei o aplicativo). Mas vou fazer os testes.

Mais uma vez obrigado.

Então pessoal, após esse longo tempo, o problema persiste. O estranho é que não é com todos os registros e nem com todas as datas.


Celso, quanto a sua sugestão, não sei como alterar o código postado anteriormente. Esclareço ainda que por enquanto está rodando em uma maquina apenas, com a base em uma pasta na rede.

Olá tauron,

Anexe exemplo atualizado com dados suficiente para testes.

Aguardamos

Abraços

Boa noite.

Prezado Celso Roberto, quero me desculpar por não ter respondido antes mas, de repente o código funfou redondinho e está até hoje.

Muitíssimo obrigado.