[Resolvido]Verificar se data já existe

Ola pessoal tudo bem??

tenho esta duvida:
exemplo:

campo = data
o objectivo é detectar uma data igual que foi inserida a que vou inserir
ou seja tenho o campo data que tem vários dados tipo 12-01-1999, 01-02-2000,07-04-1981 etc...
e ao inserir uma data por exemplo 12-01-1999 ele detecte que já existe e me manda uma caixa de texto

o problema não ta na caixa de texto ou nos if esta em detectar os dados todos .

pois quando tento ele só me detecta a 1ª data criada ou a ultima dependo como meto o codigo mas queria tudo

desculpem mais uma vez se n tiver a exprimir-me como deve ser

obrigado

Para isso você vai precisar de um subformulário em modo de formulário continuo ou folha de dados. Uma segunda possibilidade será com uma listbox. Uma ideia pode ser você criar uma consulta que filtre à partir da caixa de texto da data. Você cria a consulta e no critério do campo Data coloca assim:

Como Formulários!NomeDoSubForm!NomeDoCampoData

No evento "Após atualizar" do campo Data:

Me.NomeDoControleSubForm.Requery

Crie o subform ou listbox à partir dessa consulta.

nao percebi o que isto irá fazer??
o que pretendo é que ao introduzir uma data ela nao seja igual a data que terei introduzido em outra altura.
ou seja nao quero duas datas iguais eu ja tenho um formulario que apresenta todas as datas mas a função que criei so reconhece a ultima data inserida.

On Error GoTo Err_Comando79_Click

Dim boxresult As VbMsgBoxResult
Dim stDocName As String
Dim stLinkCriteria As String

If DateValue(Now) <> Form_lst_processo.data Then

stDocName = "identificacao_processo"
stLinkCriteria = "[ID]=" & Me![ID]

DoCmd.Close
DoCmd.OpenForm stDocName, , , stLinkCriteria, , , "inserir"
Else

boxresult = MsgBox("O paciente já fez P.E. hoje, pretende continuar???", vbYesNoCancel)


If boxresult = vbYes Then
stDocName = "identificacao_processo"
stLinkCriteria = "[ID]=" & Me![ID]
' Inseri a palavra "inserir" no argumento openargs para abrir a janela no modo inserir (ver codigo da janela)
DoCmd.Close
DoCmd.OpenForm stDocName, , , stLinkCriteria, , , "inserir"
End If
Exit_Comando79_Click:
Exit Sub

Amigo, não entendi bem o processo. No primeiro post você disse que queria localizar os registros com datas iguais e no segundo você disse que não quer repetir a data. Se é apenas para saber se já existe um registro para a mesma data, basta usar um DCount para verificar se o número de dados com a mesma data é maior que zero e limpe o campo para nova inserção. Algo assim:

If DCount("*", "Tabela", "Data=#" & Me!txtData & "#") > 0 Then
MsgBox "Já existe um registro para essa data. Escolha outra data", vbOkOnly + vbInformation, "Atenção"
Me.txtData = Null
Me.txtData.SetFocus
Else
...
End If

PS: Alterei o título do tópico para ficar mais condizente com a dúvida e assim facilitar a procura de outros membros.

ta quase lol, agora o problema ta no cardinal. porque???
para que serve o cardinal
??


If DCount("*", "Tabela", "Data=#" & Me!txtData & "#") > 0 Then
MsgBox "Já existe um registro para essa data. Escolha outra data", vbOkOnly + vbInformation, "Atenção"
Me.txtData = Null
Me.txtData.SetFocus
Else
...
End If

Esse símbolo é usado quando estamos referenciando Data e Hora. Pode tentar sem ele tambem, assim:

If DCount("*", "Tabela", "Data=" & Me!txtData) > 0 Then

ou

If DCount("*", "Tabela", "Data='" & Me!txtData & "'") > 0 Then

mais uma vez desculpa mas nao estou a conseguir
será por nao ter uma consulta?? eu tou a tirar directamente da tabela (processo)
ele diz operador em falta no data=


If DCount("*", "processo", "data=" & Me!data) > 0 Then

MsgBox "Já existe um registro para essa data. Escolha outra data", vbOKOnly + vbInformation, "Atenção"
Me.data = Null

Else
stDocName = "identificacao_processo"
stLinkCriteria = "[ID]=" & Me![ID]
'Inseri a palavra "inserir" no argumento openargs para abrir a janela no modo inserir (ver codigo da janela)
DoCmd.Close
DoCmd.OpenForm stDocName, , , stLinkCriteria, , , "inserir"

End If

Um pitaco se me permitem


Porque não colocar duplicação não autorizada no campo na tabela.

A máscara de entrada 00/00/0000;0;_ para evitar valores com hora e minuto.

Talvez resolva

vieirasoft

ola vieira é bem visto, mas o que acontece é que a data n se pode repetir para um paciente mas pode se repetir sendo outro paciente...

ou seja eu tenho uma tabela com os pacientes nome, idade etc e outra com os processos que inclui a data e outro tipo de campos

um paciente nao pode ter 2 processos com a mesma data no mesmo dia mas pode haver varios doentes no mesmo dia a ter um processo.

Bom dia

Só para ver se ajuda ? ...

http://dl.dropbox.com/u/8169944/SPaulo.mdb

Assis

nao é bem isso o que pretendo é ao inserir uma data no campo data do formulario (processo) do paciente, ele me apresente uma msg como a dizer se ja tenho um processo desse mesmo paciente com a mesma data ou n

Paulo

Vi o exemplo que o Assis postou e está nota 10. Se você quer ir por outro caminho, então terá que fazer o seguinte: (devem existir outras possibilidades)

Uma textbox independente, formatada para Data abreviada. O valor pre definido deve ser =Agora() e pode coloca-la invisível.
Esta caixa vai servir de comparação com o seu campo data do processo

Agora nesse campo data do processo no evento antes de actualizar:

Dim Msg, Style, Title
Msg = "A data deste processo já existe"
Style = vbInformation
Title = "Aviso"
If Datado Processo.Value <> Texto0.Value Then
Msg = MsgBox(Msg, vbInformation, Title)
End If

A partir daqui pode colocar e alterar como quizer para que a mensagem fique dav forma que entende.

Private Sub data_Exit(Cancel As Integer)
Dim boxresult As VbMsgBoxResult
If Me.data <> Form_lst_processo.data Then
MsgBox ("continuar")

Else
boxresult = MsgBox("O paciente já tem uma P.E. com a mesma data", vbYesNoCancel, "pretende continuar??")

End If
End Sub

eu criei este código o Form_lst_processo apresenta todas as datas criadas

mas o problema ta é que o codigo so reconhece a primeira data criada e nao as restantes

o problema não ta em o prog do Assis estar bom ou não, o que pretendo é que não é compatível com que ele fez, pois o prog dele usa um paciente com uma data e se for a inserir outro paciente com a mesma data da a msg.

mas não é isso que pretendo pois o paciente da minha aplicação tem varias datas. porque o paciente é de uma tabela exemplo: identificacao, e a data é de outra tabela exemplo: processo e ela tem uma relação de 1 para muitos.

ou seja o paciente tem varias datas, (conforme o numero de processos criados,ah as datas são editáveis)
vou dar um exemplo:

o Paulo tem 3 processo com as datas 12-12-1999, 12-11-1999, 10-01-2011

e hoje eu queria criar outro processo para o paulo mas com a data do 10-01-2011 mas como ja exite essa data eu pretendia que me avisasse.

Paulo

Você não está a entender ou eu também não. Dê a possibilidade de o utilizador criar ou não a data do processo, avisando que a mesma se já existir, existe. Da forma que lhe passei pode ou não criar quantos processos entender na mesma data sem interferir com outros novos processos a criar.

Boa tarde Paulo

Quem escreveu

um paciente nao pode ter 2 processos com a mesma data

o Paulo tem 3 processo com as datas 12-12-1999, 12-11-1999, 10-01-2011

e hoje eu queria criar outro processo para o paulo mas com a data do 10-01-2011

Pessoal desculpem se não me tou a fazer perceber, culpa minha não é fácil explicar algo como isto.

Dim Msg, Style, Title
Msg = "A data deste processo já existe"
Style = vbInformation
Title = "Aviso"
If Datado Processo.Value <> Texto0.Value Then
Msg = MsgBox(Msg, vbInformation, Title)
End If

vieirasoft o codigo k fez nao é mto diferente do meu:

Private Sub data_Exit(Cancel As Integer)
Dim boxresult As VbMsgBoxResult
If Me.data <> Form_lst_processo.data Then
MsgBox ("continuar")

Else
boxresult = MsgBox("O paciente já tem uma P.E. com a mesma data", vbYesNoCancel, "pretende continuar??")

End If
End Sub

acho que mesmo que mesmo que use o seu código o efeito vai dar o mesmo ou seja ele so vai mandar a mensagem se a data que eu inserir for igual a ultima data inserida mas se inserir uma data que ja exita mas que nao seja a ultima nao reconhece
eu mandava o programa mas em geral ninguem tem o access 2010


mais uma vez desculpem

Um pitaco simples;

Em vez de utilizar no evento ao saír do seu campo data, faça no evento antes de atualizar;

Mude para os nomes correctos;


Private Sub SeuCampoData_BeforeUpdate(Cancel As Integer)
Dim xNome As String
If DCount("SeuCampoPaciente", "SuaTabela", "SeuCampoPaciente='" & Me!SeuCampoPaciente & "' AND SeuCampoData = #" & Me!SeuCampoData & "#") > 0 Then
If MsgBox("O paciente já tem uma P.E. com a mesma data." & Chr(13) & Chr(10) & "Deseja visualizar ?", vbCritical + vbYesNo, "Aviso") = vbYes Then
xNome = Me!SeuCampoPaciente
Me.Undo
DoCmd.ApplyFilter , "SeuCampoPaciente ='" & xNome & "'"
Else
Exit Sub
End If
End If
End Sub

JPaulo
tudo bem??

o teu código ate ta porreiro mas o problema é quando insiro a data ele considera sempre que exite?? o que tou fazer de mal??

Como este tópico já vai longo, quer colocar em site publico o seu banco ou parte dele para resolvermos isso para si ?

Jpaulo

ja consegui so troquei a ordem espero que esteja bem

Private Sub data_BeforeUpdate(Cancel As Integer)

Dim xNome As String
If DCount("processo.data", "qry_processo", "processo.data=#" & Me!data & "#") = 0 Then

Else
If MsgBox("O paciente já tem uma P.E. com a mesma data." & Chr(13) & Chr(10) & "Deseja continuar ?", vbCritical + vbYesNo, "Aviso") = vbYes Then
DoCmd.ApplyFilter , "processo.data ='" & xNome & "'"
Exit Sub
End If
End If
End Sub


se tiver mal alguma coisa digam para n ficar com erros futuramente agradeço, desculpem o topico tao longo, e ate enviava a BD mas eu uso o access2010 acho que ninguem o tem (pelo menos antes nao tinham)

obrigado

Veja o exemplo;

http://dl.dropbox.com/u/771097/spaulo.rar

No codigo acima eu tinha colocado =0, mas já rectifiquei para >0

No seu está só a olhar para a data e não para o paciente vs data.

Até porque tenho duvidas quanto ao funcionamento desse jeito, processo.data

Evite ao maximo colocar palavras reservadas do Access no nome dos campos, Data é uma delas.

ok rectifiquei e meti como disseste mto obrigado a todos demorou mas foi

agora ta porreiro

Olá a todos
Boa tarde
Sou Carpinteiro mas gosto de mexer com o Access
Um amigo pediu-me se eu conseguia fazer um base de dados para marcação de consultas numa veterinária
Eu estou a tentar mas não vou lá
Podem ajudar-me?

No formulario está mais detalhado o problema

Aqui vai o link da base de dados em access 2003 e 2007
https://www.dropbox.com/s/emf1b0hxgry7f31/VET.rar?dl=0

09.30.2015 14:21:02