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


****************************************************************************
Pessoal nosso ENCONTRO DO FORUM foi um SUCESSO. Parabéns , Luiz Claudio, Osmar, Rogério Oliveira, Avelino Sampaio, Ronaldo Ramires (KAAP), Fabio Trindade, Gilberto,Felipe Cortez, Informe access, Neros, Thiago,Augusto, Helio, Pedro simplesmente aos grandes AMANTES DO ACCESS.. Até o próximo!!
****************************************************************************
Desenvolvedor ACCESS - 10 Anos
MSN - nascimento_flavio@hotmail.com
Tel - (011) 9845-6262
****************************************************************************
 
Postagens: 3084 | Localização: Sao Paulo | Registrado: 14 September 2001Reply With QuoteReport 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

“Aqueles que renegam o conhecimento estão fadados a se submeter ao controle daqueles que dominam a informação”
– Martin Luther King
http://www.vhumano.com.br
 
Postagens: 2603 | Localização: Guarulhos - SP | Registrado: 03 February 2005Reply With QuoteReport 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


****************************************************************************
Pessoal nosso ENCONTRO DO FORUM foi um SUCESSO. Parabéns , Luiz Claudio, Osmar, Rogério Oliveira, Avelino Sampaio, Ronaldo Ramires (KAAP), Fabio Trindade, Gilberto,Felipe Cortez, Informe access, Neros, Thiago,Augusto, Helio, Pedro simplesmente aos grandes AMANTES DO ACCESS.. Até o próximo!!
****************************************************************************
Desenvolvedor ACCESS - 10 Anos
MSN - nascimento_flavio@hotmail.com
Tel - (011) 9845-6262
****************************************************************************
 
Postagens: 3084 | Localização: Sao Paulo | Registrado: 14 September 2001Reply With QuoteReport 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: 123 | Registrado: 25 November 2005Reply With QuoteReport This Post
  Powered by Social Strata  
 

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.

©