GD Access    GD Access    Grupo de Discussão  Ir para Categorias  Grupos técnicos  Ir para Fóruns  Access    Código ou rotina para verificar antes de salvar registro.

Moderators: Alexandre Minato, Luiz Cláudio C. V. Rocha, Sampaio Lima
Go
Novo
Procurar
Notificar
Ferramentas
Responder
  
-star Rating Vote!  Login/Cadastrar 
Flavio lima
Gerente

postado
Pessoal .....

Ante de salvar, preciso verificar se existe um registro em um campo se tiver msgbox senão exitsub.

Como fazer isso com um código ???

Ex: tenho um registro 563 em um campo chamado contrato
Preciso: antes de salvar saber se existe esse número na tabela caso sim vou fazer outra função.

Tabela - ACESSO
Campo - COD


****************************************************************************
Desenvolvedor ACCESS - 10 Anos
MSN - nascimento_flavio@hotmail.com
Tel - (011) 9845-6262
****************************************************************************
 
Postagens: 2723 | Localização: Sao Paulo | Registrado: 14 September 2001Reply With QuoteEditar ou Apagar MensagemReport This Post
rogerio oliveira
Gerente

Figura de rogerio oliveira
postado Hide Post
Utilize no evento AntesDeInserir (BeforeInsert) um código semelhante a este:
if not isnull(DLookup("Cod","Acesso","Cod=" & <variavel com o codigo>Piscando) then
msgbox
else
exit sub
endif


Rogério Oliveira
"A inteligência artificial não é páreo para a estupidez natural."
http://www.vhumano.com.br
 
Postagens: 2516 | Localização: Guarulhos - SP | Registrado: 03 February 2005Reply With QuoteEditar ou Apagar MensagemReport This Post
Flavio lima
Gerente

postado Hide Post
Rogerio

Fiz o teste mas não consegui ... conforme abaixo.

Private Sub Comando115_Click()
A = 20
if not isnull(DLookup("NUM_CONTR","20_PM","NUM_CONTR=" & A) then
MsgBox "Teste"
Else
Exit Sub
End If
End Sub


****************************************************************************
Desenvolvedor ACCESS - 10 Anos
MSN - nascimento_flavio@hotmail.com
Tel - (011) 9845-6262
****************************************************************************
 
Postagens: 2723 | Localização: Sao Paulo | Registrado: 14 September 2001Reply With QuoteEditar ou Apagar MensagemReport This Post
Raphaels
Programador Júnior

Figura de Raphaels
postado Hide Post
Qual foi o erro que deu ? Pois deveria funcionar ...


Sds,

(((...R...)))
Raphaels
 
Postagens: 121 | Registrado: 25 November 2005Reply With QuoteEditar ou Apagar MensagemReport This Post
 Tópico Anterior | Próximo Tópico Powered by Eve For Enterprise  
 

GD Access    GD Access    Grupo de Discussão  Ir para Categorias  Grupos técnicos  Ir para Fóruns  Access    Código ou rotina para verificar antes de salvar registro.

©