[Resolvido]Não deixar repetir Dados

Boa noite

Tenho uma tabela nome "Agenda" com os seguintes campos

Campo 1 - DataAviso ... Tipo data ...31-01-2012
Campo 2 - Médico ...... Texto
Campo 3 - Paciente .... Texto
Campo 4 - Hora ........ Tipo Hora .. 09:30, 10:00, 13:30 etc

Isto é uma agenda para marcar consultas.

Queria impedir de Gravar:

A marcação no mesmo dia

2 consultas para o mesmo médico com o mesmo paciente
2 consultas na mesma hora para o mesmo médico
2 consultas na mesma hora para o mesmo paciente

Obrigado

Boa noite
Norbs

O Id é -- IDConsulta

Obrigado

Bom dia Norberto

Obrigado

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Nz(DCount("*", "Agenda", "Médico='" Me.Médico & "'" And Paciente='" & Me.Paciente & "'" And DataAviso=#" & Me.DataAviso & "#"), 0) > 0 Then
Cancel = True
MsgBox "Já existe uma consulta marcada nesta data com este médico para esta paciente."
ElseIf Nz(DCount("*", "Agenda", "Médico='" Me.Médico & "'" And Hora=#" & Me.Hora & "#" And DataAviso=#" & Me.DataAviso & "#"), 0) > 0 Then
Cancel = True
MsgBox "Já existe uma consulta marcada neste horário e data para este médico."
ElseIf Nz(DCount("*", "Agenda", "Paciente='" Me.Paciente & "'" And Hora=#" & Me.Hora & "#" And DataAviso=#" & Me.DataAviso & "#"), 0) > 0 Then
Cancel = True
MsgBox "Já existe uma consulta marcada neste horário e data para este paciente."
End If
End Sub


Esta linha ficam a vermelho

Try;


Private Sub Form_BeforeUpdate(Cancel As Integer)
If Nz(DCount("*", "Agenda", "[Médico]='" & Me.Médico & "' And [Paciente]='" & Me.Paciente & "' And [DataAviso]=#" & Me.DataAviso & "#"), 0) > 0 Then
Cancel = True
MsgBox "Já existe uma consulta marcada nesta data com este médico para esta paciente."
ElseIf Nz(DCount("*", "Agenda", "[Médico]='" & Me.Médico & "' And [Hora]=#" & Me.Hora & "# And [DataAviso]=#" & Me.DataAviso & "#"), 0) > 0 Then
Cancel = True
MsgBox "Já existe uma consulta marcada neste horário e data para este médico."
ElseIf Nz(DCount("*", "Agenda", "[Paciente]='" & Me.Paciente & "' And [Hora]=#" & Me.Hora & "# And [DataAviso]=#" & Me.DataAviso & "#"), 0) > 0 Then
Cancel = True
MsgBox "Já existe uma consulta marcada neste horário e data para este paciente."
End If
End Sub

Bom dia

Continua a deixar repetir

Continua Erro a vermelho

Veja o simples;

http://dl.dropbox.com/u/771097/Agenda%20-%20Assis_OLD.rar

Boa noite JPaulo

Obrigado

No exemplo que colocou para download, tem um registo para:

01-02-2012 ..... 09:00 .... Anibal Assis .... Dr. Carlos Lopes

Teste

02-02-2012 ..... 09:00 .... Anibal Assis .... Dr. Carlos Lopes

Não deixa gravar.

Olá Assis

Embora você já esteja adiantado com o teu aplicativo, chegou a dar uma olhadinha
na agenda que eu disponibilizei neste post?

Abraços

Boa noite
Kiel

Sim eu vi a sua agenda. Está muito boa.
Parabens

Obrigado

Boa noite colega Assis....
Testei o exemplo de JPaulo e funciona.....click no campo data (não aceita digitação)abre o calendário e registra-se, inclusive se marcar paciente para mesmo horário o sistema impede a inclusão.
Agora na Consulta Agenda completa carrega todos os registros e
na consulta Agenda Consulta há um critério na coluna "DataAviso" que é =Data().
Então só mostra o registros de hoje 01/02/12. se retirar esse critério aparece todos.
Ou esta se referindo em "apareça" os registros nos form??????????

Aqui funciona perfeito.

Inseri dois (2) registros com:

Código:

Data:02-02-2012  Hora:09:20  Paciente:Anibal Assis  Doutor:Dr. Carlos Lopes
Data:02-02-2012  Hora:10:00  Paciente:Anibal Assis  Doutor:Dr. Carlos Lopes

Inseriu perfeito, mas para a mesma data,hora,paciente e doutor, não deixa...

Veja:
http://dl.dropbox.com/u/771097/Agenda%20-%20Assis_OLD_II.rar

Bom dia JPaulo

Se tiver um só registo na tabela assim:

01-02-2012 ..... 09:00 .... Anibal Assis .... Dr. Carlos Lopes


Esta devia gravar, pois o dia é diferente mas não grava .

02-02-2012 ..... 09:00 .... Anibal Assis .... Dr. Carlos Lopes (1)

(1) Igual á anterior, só muda o dia

Veja;

http://dl.dropbox.com/u/771097/Agenda%20-%20Assis_OLD_III.rar

Obrigado
JPaulo
Já se pode marcar médico todos os dias á mesma hora...

Valew, obrigado pelo retorno o forum agradece.