[Resolvido]Registro duplicado

w_fabricio Qua 22 Set 2010, 19:43

w_fabricio: Novato; Respeito às regras :

Sexo :
Localização :
Mensagens : 37
Registrado : 19/09/2010

Mensagem nº1

[Resolvido]Registro duplicado

Mensagem w_fabricio Qua 22 Set 2010, 19:43

Amigos boa noite

tenho um sisteminha pra controle de internação, no lançamento, classifica por data, hospital, e tipo de internação, gostaria de quando fosse lançar um tipo de internação ja existente para o mesmo hospital e data o sistema avise.

exemplo:
Data: 21/09/2010
Hospital: Ressucita
Tipo internação: Clínica
" se for lançar uma outra internação clínica com a mesma data e hospital, avise.

até....

Macedo Dom 26 Set 2010, 20:24

Macedo

Macedo: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 76
Registrado : 22/09/2010

Mensagem nº2

Re: [Resolvido]Registro duplicado

Mensagem Macedo Dom 26 Set 2010, 20:24

por acaso esse sistema é pro UNIMED? APDD

**vieirasoft** Dom 26 Set 2010, 20:37

vieirasoft

vieirasoft: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 7304
Registrado : 11/05/2010

Mensagem nº3

Re: [Resolvido]Registro duplicado

Mensagem vieirasoft Dom 26 Set 2010, 20:37

Caro Amigo Modifique o código para os valores que pretende

Private Sub sua caixa de texto_BeforeUpdate(Cancel As Integer)
If (Not IsNull(DLookup("[seucampo]", "nome da tabela", _
"[seucampo] ='" & Me!seucampo & "'"))) Then
MsgBox "O seu campo já está cadastrado no sistema..." & seu campo.Text, _
vbInformation, "nome que deseja para o aviso"
Cancel = True 'cancela o evento.
Me!seucampo.Undo 'desfaz a digitação.
End If
End Sub