[Resolvido]Não deixar gravar se

Boa noite

Tenho uma tabela "Agenda" com 4 campos.

DataAgenda
Medico
Paciente
HoraMarcada.

Queria que no Form de introdução de dados, no comando gravar, não deixasse gravar na tabela "Agenda" se:

Os campos "DataAgenda" e o campo "Medico", e o campo "HoraMarcada".

Com MsgBox "O Médico selecinado já tem uma consulta nesse dia a essa Hora".

Obrigado

Boa Noite Assis

Teste assim por favor


If Not IsNull(DataAgenda) And Not IsNull(Medico) And Not IsNull(HoraMarcada) Then
Call MsgBox("O Médico selecinado já tem uma consulta nesse dia a essa Hora",vbCritical,"Aviso")

Boa noite Vieira

A ideia é não deixar gravar se os 3 campos forem iguais.

Exemplo

Dia - Médico - Paciente - Hora

01-01-2011 - Assis - Manuel - 09:00

01-01-2011 - Assis - José - 09:00 - Não Deixa Gravar

01-01-2011 - Assis - José - 09:30 - Deixa Gravar

O ideal era fazer isso com uma função e ambos sabemos quem pode fazer isso (rsrsrsrs) é só ter paciência, amigo.

Acho que pode ser algo assim:

If DCount("CampoDoutor", "SuaTabela", "SeuDotô='" & Me!txtSeuDotô & "'") > 0 And DCount("CampoData", "SuaTabela", "CampoData=#" & Me!txtSeuData & "#") > 0 And DCount("CampoHora", "SuaTabela", "CampoHora=#" & Me!txtSuaHora & "#") > 0 Then
MsgBox "Atenção meu filho, o dotô """ & Me!txtSeuDotô & """ já tem paciente agendado para esse horário.", vbOkOnly + vbInformation, "Horário agendado"
End If

Boa, nem me lembrei dessa. PEPAMP.

Rssss, Boa Criquio

Mas acho que o amigo Assis só quer o alerta se o paciente marcar para o mesmo dia.

O médico pode ter mais de uma consulta, mas o paciente não.

PS: Desculpa entendi mal, era pro mesmo horario...rssss


Sds,

Amigos: Vieira e Criquio e chsestrem

Amanhã coloco aqui o exemplo que descobri. É feito atravez de uma consulta que tem um campo que junta os campos que não queremos repetir.
Assim :

SyS:SuprEspaço([Médico]) & " " & SuprEspaço([DataAviso]) & " " & SuprEspaço([Hora]) & ""

Depois no Form de introduzir os dados, conforme se vai introduzindo os campos que não queremos repetir aparecem no campo "SYS" do Form. Que comparando com o campo "SYS" da consulta, se for igual não grava.

Se os dados intoduzidos forem iguais ao campo "SYS" não deixa gravar.

Agradecia Assis, quem sabe amanhã não iremos precisar.

Abs

Aqui está ele
http://dl.dropbox.com/u/8169944/Nao%20Repetir%20Campos.mdb

É uma ótima opção tambem. Eu, quando posso fazer sem consultas, acho melhor. São menos elementos no banco, mas às vezes recorro à elas tambem

Obrigado Assis e bom trabalho