[Resolvido]Duplicação de data não permitida

Bom dia. Estou desenvolvendo um sistema de agendamento de reunião e gostaria que a data inserida não fosse duplicada. Fiz algumas pesquisas aqui mesmo e não tive muito sucesso.
O campo 'data_agendamento' (da tabela 'Tbl_AgendarReuniao) é no formato data/hora e quando ele recebe o foco um quadro com o calendário para escolher a data surge. Ao clicar no dia, a data completa aparece no campo.
Na tabela inseri a chave primária para não ter duplicação. Funciona, mas a mensagem que dá é muito técnica para o usuário. Tem como troca-la por uma personalizada? Ex. "A data inserida já existe. Escolha outra."
Obrigado!

Juliano

Pode postar no forum

Juliano, você pode fazer tratamento da mensagem desse erro sim;

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    MsgBox "Duplicação não autorizada...", vbCritical
    Response = acDataErrContinue
End Sub

Olá, obrigado. Segue o bd de controle de chamados. Nele está incluído o agendador de reuniões.
Ao entrar, clique em "Agendar Reunião" e no modo estrutura veja o código do campo Data.
Gostaria que ao pular para o campo de horas, viesse uma mensagem avisando que a data já foi inserida. Ex. A data que digitou já foi agendada. Escolha outra. Veja a lista de agendamentos abaixo."
Obrigado.

Juliano, você testou o simples ?

Ou mais personalizado;

Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const conErro = 3022
Dim strMensagem As String

    If DataErr = conErro Then
        Response = acDataErrContinue
        strMensagem = "Duplicação não autorizada..."
        MsgBox strMensagem, vbCritical
    End If
End Sub

Paulo, o que vem a ser o "simples"?
A solução é simples pra esse caso. É só colocar uma chave primária mas a mensagem de erro é muito técnica.

Rapaz, é muito simples sim.

O que eu lhe passei substitui a mensagem do Access na violação da chave primária..... Olho vivo...

Obrigado Paulo. É mais ou menos isso mas gostaria que a mensagem de erro surgisse ao pular pro campo de hora e voltasse para o campo data para ser editado. Seria mais interessante que esse campo fosse selecionado para o usuário alterar sem desfazer o que já foi feito até então. Redigitar um texto na descrição por causa da data não seria nada prático.

http://maximoaccess.forumeiros.com/t9291-resolvidoaviso-ao-digitar-duplicidade

Obrigado Paulo. Tentei usar esse código que usei para duplicação de CPF e não deu certo. Ele é bem próximo do que preciso.

Private Sub data_agendamento_BeforeUpdate(Cancel As Integer)
If Me!data_agendamento = Me!data_agendamento.OldValue Then Exit Sub
If Not IsNull(DLookup("[data_agendamento]", "Tbl_AgendarReuniao", "[data_agendamento] ='" & Me!data_agendamento & "'")) Then
Cancel = True

data_agendamento.Undo

DoCmd.RunMacro "McrDesfazer"
Me.Requery
MsgBox "Esta data já foi agendada. Escolha outra. Verifique a lista de agendamentos abaixo."
End If
End Sub

Vamos por partes, porque o amigo já anda nesta selva à algum tempo.

Se o campo data_agendamento é data então tem de estar dentro de ## e não aspas simples;

=#" & Me!data_agendamento & "#"

Desculpa Paulo, houve uma alteração de última hora. Fica valendo a dica para a data. O campo agora é o de hora. O data pode ser duplicada mas a hora não. Vários usuários podem agendar uma reunião para o mesmo dia porém a hora precisa ser diferente. Então pensei nesse mesmo código acrescentando o campo de hora. Se houver duplicação de data e hora, uma mensagem aparece e o campo de hora é selecionado para ser mudado.

Veja no link que lhe passei, que a duplicidade é de dois campos e formatados.

Obrigado pelo link. Não encontrei onde estão os campos formatados.

Você tem de se esforçar mais.

No link o DLookup tem dois criterios, aproveite;

RegistoRepetido = DLookup("[Matricula do Contentor]", "Contentor", "[Matricula do Contentor] ='" & Me.Matricula_do_Contentor & "' And [Data de Carga] =#" & Format(Me.Data_de_Carga, "mm-dd-yyyy") & "#")

Procurar uma agulha no palheiro agora é complicado!..rsrs
Vou procurar e mando um retorno.
Obrigado!

Paulo, fiz a alteração no código para duplicação de hora. Eu precisava que a hora fosse em função da data, ou seja, a data pode ter duplicação mas a hora não.O código funcionou só até o 'cancel = true'. A mensagem avisando apareceu mas o registro foi todo desfeito o que não me interessa. Preciso do campo 'hora' em branco sem perder o que já foi digitado.
Segue a alteração:

Private Sub hora_agendamento_BeforeUpdate(Cancel As Integer)

If Me.data_agendamento = Me.data_agendamento.OldValue Then Exit Sub
If Me.hora_agendamento = Me.hora_agendamento.OldValue Then Exit Sub
If Not IsNull(DLookup("[data_agendamento]", "Tbl_AgendarReuniao", "[data_agendamento]=#" & Me.data_agendamento & "#")) Then
If Not IsNull(DLookup("[hora_agendamento]", "Tbl_AgendarReuniao", "[hora_agendamento]=#" & Me.hora_agendamento & "#")) Then
End If

Cancel = True
hora_agendamento.Undo

DoCmd.RunMacro "McrDesfazer"
Me.Requery
MsgBox "Esta hora já foi agendada para esta data. Escolha outra. Verifique a lista de agendamentos abaixo."
End If
End Sub

A macro McrDesfazer está desfazendo o registro inteiro. Como faço para que ela só limpe o campo e deixe o cursor piscando nele?
Obrigado!

Private Sub hora_agendamento_BeforeUpdate(Cancel As Integer)
If Me.data_agendamento = Me.data_agendamento.OldValue Then Exit Sub
If Me.hora_agendamento = Me.hora_agendamento.OldValue Then Exit Sub
If Not IsNull(DLookup("[data_agendamento]", "Tbl_AgendarReuniao", "[data_agendamento]=#" & Me.data_agendamento & "#")) Or Not IsNull(DLookup("[hora_agendamento]", "Tbl_AgendarReuniao", "[hora_agendamento]=#" & Me.hora_agendamento & "#")) Then
Cancel = True
MsgBox "Esta hora já foi agendada para esta data. Escolha outra. Verifique a lista de agendamentos abaixo.", vbCritical
Me.hora_agendamento.Undo
Else
Exit Sub
End If
End Sub

Juliano, Td bom?
Estava alguns dias atrás com dúvidas parecida com a sua e postei aqui no fórum e foi incrível:
Tinha um form de agendamento de reservas para área de lazer de 01 condomínio, onde não poderia ter um evento agendado para o mesmo dia , horário e mais entre intervalo de horários. Ex: evenbto de 08:00 às 09:50 para churrasqueira, quando escolheria novamente churrasqueira no horário 08:40 por exemplo ele critica. criei um form próprio com as mensagens. Posto aqui o link para ver se ajuda. crédito ao nosso amigo Alexandre Neves que deu um grande empurrão para acontecer...
segue:
http://maximoaccess.forumeiros.com/t8642-resolvidodlookup-comparacao

Abraços...

Obrigado Jesus, vou dar uma olhada e retorno!

Bom dia Paulo. Depois de muito suor e lágrimas finalmente deu certo. Ele está voltando apenas no campo horas para o usuário digitar uma nova hora. Obrigado!!!

Obrigado pelo retorno,o forum agradece.

Bom dia Paulo
Estou tendo um problema no código. Ele está mostrando a mensagem para duplicação de data e não hora, ou seja, se a data é repetida ele não deixa prosseguir. A data pode ser duplicada mas a hora não.
Segue o código:

Private Sub hora_agendamento_BeforeUpdate(Cancel As Integer)
If Me.data_agendamento = Me.data_agendamento.OldValue Then Exit Sub
If Me.hora_agendamento = Me.hora_agendamento.OldValue Then Exit Sub
If Not IsNull(DLookup("[data_agendamento]", "Tbl_AgendarReuniao", "[data_agendamento]=#" & Me.data_agendamento & "#")) Then
If Not IsNull(DLookup("[hora_agendamento]", "Tbl_AgendarReuniao", "[hora_agendamento]=#" & Me.hora_agendamento & "#")) Then
End If

Cancel = True
hora_agendamento.Undo

DoCmd.RunMacro "McrDesfazer"
Me.Requery
MsgBox "Esta hora já foi agendada para esta data. Escolha outra. Verifique a lista de agendamentos abaixo."
End If
End Sub

try;

If Not IsNull(DLookup("[hora_agendamento]", "Tbl_AgendarReuniao", "[hora_agendamento]=#" & Me.hora_agendamento & "# AND [data_agendamento]=#" & Me.data_agendamento & "#")) Then


Nota:
Você gostou mesmo dessa macro "McrDesfazer", que nem viu acima a alteração que eu tinha feito.

Para um correto funcionamento, será:

Private Sub hora_agendamento_BeforeUpdate(Cancel As Integer)
If Me.data_agendamento = Me.data_agendamento.OldValue Then Exit Sub
If Me.hora_agendamento = Me.hora_agendamento.OldValue Then Exit Sub
If Not IsNull(DLookup("[hora_agendamento]", "Tbl_AgendarReuniao", "[hora_agendamento]=#" & Me.hora_agendamento & "# AND [data_agendamento]=#" & Me.data_agendamento & "#")) Then
Cancel = True
MsgBox "Esta hora já foi agendada para esta data. Escolha outra. Verifique a lista de agendamentos abaixo.", vbCritical
Me.hora_agendamento.Undo
Else
Exit Sub
End If
End Sub

Obrigado Paulo, vou tentar aqui e mando um retorno.
Sim, eu vi a alteração. Ficou até melhor.
Obrigado!

Boa tarde Paulo. O código funcionou perfeitamente.
Não quero abusar da sua boa vontade mas surgiu um porém no caso da hora duplicada. Quando o usuário redigita a hora ele pode inserir por exemplo: 13:01. que o sistema vai liberar. As reuniões agendadas são para durar 1 hora no máximo.
Teria como bloquear por exemplo somente a hora? Se ele digitar 11:10 ele não vai permitir porque ainda são 11 horas. Teria como bloquear a hora até ela completar 11:59?
Obrigado!

Bom dia Paulo. Novo mês, novos problemas..rsr. O código hoje resolveu não funcionar.
Em todos os testes que fiz até agora, as horas iniciais estão duplicando. O que pode estar ocorrendo?

Private Sub hora_agendamento_BeforeUpdate(Cancel As Integer)
If Me.data_agendamento = Me.data_agendamento.OldValue Then Exit Sub
If Me.hora_agendamento = Me.hora_agendamento.OldValue Then Exit Sub
If Not IsNull(DLookup("[hora_agendamento]", "Tbl_AgendarReuniao", "[hora_agendamento]=#" & Me.hora_agendamento & "# AND [data_agendamento]=#" & Me.data_agendamento & "#")) Then
Cancel = True
MsgBox "Esta hora já foi agendada para esta data. Escolha outra. Verifique a lista de agendamentos abaixo.", vbCritical
Me.hora_agendamento.Undo
Else
Exit Sub
End If
End Sub

Alguém sabe onde está esse erro? Mudou de mês o código parou de funcionar.

Anexe aqui parte do seu banco.

Ok, vou preparar a noite e envio.
Obrigado

Aguardo.

Boa tarde Paulo. Ainda não chegou a noite mas resolvi preparar aqui mesmo para agilizar.
Segue o sistema de controle de chamados. Nele consta o agendador de reuniões.
Obrigado!

Juliano
Teste

Bom dia Assis. Obrigado pelo retorno. O que preciso é quase isso. Ainda preciso inserir uma mensagem de erro para quando o usuário inserir 10:01 por exemplo. O sistema vai permitir agendar. As reuniões duram em média 1 hora, então, seria necessário que o bloqueio fosse para todas as horas, por exemplo entre 10:00 e 10:59.
Obrigado!

Bom dia Juliano

Teste

Tente alterar a hora com o teclado.

Estou no aguardo.

Obrigado Assis. Baixei o arquivo e fiz os testes. É isso mesmo.
Ainda vou continuar nos testes. Qualquer coisa retorno.
Obrigado!