[Resolvido]Impedir usuario de adicionar novo registro na mesma data

Oi Pessoal, mais uma vez peço ajuda...
Tenho um form Cadastro e depois de preenchido eu clico em um btn para abrir outro form para digitar os dados de uma consulta médica.
Se já existe consulta anterior eu quero ver a última consulta. Ahi eu clico num btn NOVA para digitar a consulta do dia. Acontece que o usuário por distração, clica novamente no BtnNOVA e o sistema dá erro informando que os dados nao podem ser duplicados, etc. e ele perde tudo o que digitou.
Eu coloquei este codigo para alertar se ele escrever algo na consulta anterior, mas não previ a possibilidade dele não perceber que já está na nova consulta.

Private Sub ConsultaTexto_AfterUpdate()
On Error Resume Next
Dim lngRed As Long, lngFundo As Long

lngRed = RGB(255, 0, 0)
lngFundo = RGB(236, 236, 236)

If Me.DataVisita <> Date Then
Me.ConsultaTexto.BackColor = lngRed
DoCmd.GoToControl "MedicamentosEmUso"
If MsgBox("Você NÃO está na consulta nova. Deseja salvar as alterações?", vbYesNo) <> vbYes Then

Me.Undo
Me.ConsultaTexto.BackColor = lngFundo

Else
Me.ConsultaTexto.BackColor = lngFundo
Me.Refresh
DoCmd.GoToControl "MedicamentosEmUso"
DoCmd.RunMacro "UltimaModificacao.ConsultaData"

End If
End If
End Sub
Pensei eu desabilitar o BtnNOVA se ele estiver na data de hoje, mas depois eu tenho que habilitar. Não sei se é correto.
Alguém pode dar uma idéia?
Muito obrigada...

Se puder poste seu BD para que vejamos isto.


Cumprimentos.

Obrigada, vou fazer um modelo e envio amanha. Obrigadissima.

Adiantando pra ti.. se de acordo com o título do tópico, impedir que o usuario insira novo registro na mesma data... Deves utilizar o Dcount, para verificar se na tabela ja existe registro para o paciente na data, caso sim encerra a sub.

É por ai...

Cumprimentos.

Pensei eu desabilitar o BtnNOVA se ele estiver na data de hoje, mas depois eu tenho que habilitar. Não sei se é correto.

Uma opção é usar um botão Salvar, só após clicar nesse botão habilitaria o BtnNOVA.

Oi gente, agradeço as orientações. Daqui a pouco vou mandar o modelo para vcs verem.
Abs

Bom, finalmente terminei de criar um modelo para pedir a ajuda de vcs.
Os detalhes do que eu preciso estão no registro de consulta.
1. Clicar em Paciente. Abre o form Cadastro
2. Clica no Btn ULTIMA e abre a ultima consulta.
3. Digita alguma coisa na na consulta texto e vai dar uma msg.
4. Clica em NOVA e o sistema atualiza a data e o código do paciente.
5. Digita alguma coisa no campo texto e, sem querer, clica no btn NOVA e continua a digitar...
6. Na hora de sair ou salvar.... Não é permitido porque cria dados duplicados, o que não pode porque a chave é CodigoPaciente+dataConsulta...

Agradeço muito a ajuda e sugestões de vcs.
Neide

Boa tarde Neide...

No botão Novo substitua o código por este a seguir... Observe o que adicionei em azul... uma contagem na tabela para verificar se já foi cadastrado a visita para data atual...


Private Sub BtnIncluiConsulta_Click()
On Error GoTo Err_BtnIncluiConsulta_Click

If DCount("*", "tbHistoricoVisita", "CodigoPaciente = " & Me.CodigoPaciente & " And DataVisita =#" & Date & "#") >= 1 Then
MsgBox "Esta consulta já está em andamento!", vbCritical, "ATENÇÃO"
Exit Sub
Else
Forms![FrmEntradaCadastro].Refresh

Dim stDocName As String
Dim stlinkcriteria As String

DoCmd.Echo False

stDocName = "FrmHistoricoVisita"
stlinkcriteria = "[CodigoPaciente]=" & Me![CodigoPaciente]
DoCmd.OpenForm stDocName, , , stlinkcriteria
Me.Form.AllowEdits = True
Me.Form.AllowAdditions = True
DoCmd.GoToRecord acForm, stDocName, acNewRec
DoCmd.Echo True
End If
Exit_BtnIncluiConsulta_Click:
Exit Sub

Err_BtnIncluiConsulta_Click:
MsgBox Err.Description
Resume Exit_BtnIncluiConsulta_Click

End Sub


Cumprimentos.

Ufa Piloto, está certinho.
Acrescentei mais um detalhe... olhe ahi... exibi um campo em amarelo dizendo que a consulta está sendo editada e, se o usuário estiver numa consulta com data anterior o código volta para o último registro.
If DCount("*", "tbHistoricoVisita", "CodigoPaciente = " & Me.CodigoPaciente & " And DataVisita =#" & Date & "#") >= 1 Then
MsgBox "Esta consulta já está em andamento!", vbCritical, "ATENÇÃO"

Me.LbStatus.Visible = True
Me.Recordset.MoveLast

Exit Sub
Else

Menos uma pendência Graças a vc.
Muito obrigada a todos. Daqui a pouco a gente volta rsrsrs
abs

O Fórum agradece o Retorno.

Gente, tudo bem?
Podem dar uma olhada no código abaixo? Hoje fui atualizar uma consulta de paciente e tinha uma consulta do mesmo com data de 12 de abril de 2012 e o meu código, que agradeço ao PILOTO por ter me ajudado a escrever, dá uma mensagem de que o registro já existe, porque ele está lendo a DataVisita no formato mês, dia e ano. Já li bastante que o VB interpreta a data no modelo internacional que é mmddyyyy. Tem como formatar esta linha para ler o formato de dia, mês e ano? Tem como eu usar format(DataVisita)?
Agradeço muito pela atenção.

If DCount("*", "tbHistoricoVisita", "CodigoPaciente = " & Me.CodigoPaciente & " And DataVisita =#" & Date & "#") >= 1 Then
MsgBox "Esta consulta já está em andamento!", vbCritical, "ATENÇÃO"

Me.LbStatus.Visible = True
Me.Recordset.MoveLast

Exit Sub
Else

Boa tarde Neide...

If DCount("*", "tbHistoricoVisita", "CodigoPaciente = " & Me.CodigoPaciente & " And DataVisita =#" & Format(Date,"dd/mm/yyyy") & "#") >= 1 Then


Cumprimentos.

Boa noite Piloto,
Obrigada pela atenção. Fiz um modelo para vc dar uma olhada porque o programa está dando a msg do access e não deixa duplicar mas tb não obedece o que a gente pede na msg.
Faz um teste tb com um registro na data de 05122012 e 12052012.
Tomara que vc consiga ver onde eu estou errando.
Abs
Neide

Boa noite basta inverter o dia e mes

DCount("*", "TbHistoricoVisita", "CodigoPaciente = " & Me.CodigoPaciente & " And DataVisita =#" & Format(Date, "mm/dd/yyyy") & "#")


Cumprimentos.

Oii Piloto, obrigada, dou noticias mais tarde.

O Fórum agradece o Retorno.

Oi Piloto, pronto... parece que acabei este tópico. Deu tudo certo.
Já testei, re-testei, escrevi datas iguais, tudo o que podia pensar....
Obrigada pela atenção e tenho certeza que todos nós nos beneficiamos com todas essas dúvidas que aparecem.
Até a próxima dúvida.

O Fórum agradece o retorno.