COMO FACO P/ NAO SALVAR DOIS REGISTRO COM O MS CO

PROPAR 05/04/2005 10:30:41
#76726
Amigos tenho um Campo Chamado " Apolice" como Faço para não deixar alguem gravar dois igual .. Exemplo

Apolice: 91.00001
Apolice :91.00002
Se Alguem tentar cadastrar Apolice 91.0001 ou 91.0002 ou qualquer apolice Já cadastrada ele Verifica no Banco de dados e não deixa Cadastrar ...
e da uma mesagem falando que o numero de Apolice ja existe ..??

Obrigado

USUARIO.EXCLUIDOS 05/04/2005 10:36:32
#76729 Resposta escolhida
Coloque isto no Form:

Function VerificaExistenciaApolice(Apolice as String) as Boolean

Rs_Aps.Open "Select * from TABELA where apolice = '" & Apolice & "'", Banco, adOpenStatic,adLockReadOnly

VerificaExistenciaApolice = iif(Rs_Aps.Recordcount > 0, True, False

Rs_Aps.Close

End Function


Chame assim:

if VerificaExistenciaApolice(txt_apolice.text) then
   msgbox "Apolice Existente"
else
  comandos de inclusao da apolice
endif


Ok?
PROGRAMADORVB6 05/04/2005 10:57:02
#76745
Tente definir o campo " Apolice como chave primaria na BDados.poupa-he bastante trabalho.
PROGRAMADORVB6 05/04/2005 10:59:23
#76747
e em seguida siga o exemplo do colega NEO_VR
PROPAR 05/04/2005 11:37:33
#76761
Neo_vr deu erro nessa linha

VerificaExistenciaApolice = iif(Rs_Aps.Recordcount > 0, True, False

A linha está em vermelho
FNBRAULINO 05/04/2005 11:43:04
#76762
VerificaExistenciaApolice = iif(Rs_Aps.Recordcount > 0, True, False)

tava faltando o ultimo parentese
PROPAR 05/04/2005 11:52:09
#76767
nessa linha está dando erro de Object Required

Rs_Aps.Open "Select * from Apolice where APOLICE = '" & Apolice2 & "'", Vendas.mdb, adOpenStatic, adLockReadOnly
PROPAR 05/04/2005 11:54:38
#76771
ver essa linha
nessa linha está dando erro de Object Required
Rs_Aps.Open "Select * from Apolice where APOLICE = '" & Apolice & "'", Vendas.mdb, adOpenStatic, adLockReadOnly
FNBRAULINO 05/04/2005 12:01:38
#76777
Rs_Aps.Open "Select * from SUATABELA where CAMPODAAPOLICE = '" & txtapolice.tex & "'", SEUBANCO.mdb, adOpenStatic, adLockReadOnly
USUARIO.EXCLUIDOS 05/04/2005 12:06:01
#76780
Banco é a CONNECTIONSTRING do ADO...

Pra usar no ACCESS, faça assim:

Banco.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)}; Dbq=" + CAMINHODOBANCO + "; UserId=; Password=;"
Banco.Open


Não se esqueça de fazer referência à :

Microsoft ActiveX Data Objects 2.x Library

em

Project -> References
PROPAR 05/04/2005 12:09:25
#76783
eu coloquei mais continua dando o mesmo erro: 424 Object Required

nessa linha
Rs_Aps.Open "Select * from Apolices where APOLICE = ' " & TXTAPOLICE.Text & " ' ", App.Path \ vendas.mdb, adOpenStatic, adLockReadOnly
Tópico encerrado , respostas não são mais permitidas
Voltar