USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Código automático.
Abimael
SÇAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 06/12/2007 10:12 hs            

Pessoal, estou com um problema.

 

Meu sistema cadastra códigos automáticos da seguinte forma:

 

 

    Sql = "select (max(Codigo) +1) as cod from TbValorPedido"

    Set TbValorPedido = BancoDeDados.OpenRecordset(Sql)

 

    If TbValorPedido.RecordCount = 0 Then

        CodPedido = 1

    Else

        CodPedido = TbValorPedido!Cod

    End If

 

 

Porem quando o banco está em branco o seguinte erro

 

 run-time error ‘94’:

invalide use of Null

 

ou seja o campo está nulo,  como posso criar um código 1, já que p RecordCount não pega? Também tentei usar o vbnullstring, porem também não pega, alguém poderia me ajudar?
 
   
ArtSoft
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 06/12/2007 11:19 hs         
Bom dia amigo, porque vc não deixa o campo CodPedido na tabela como autonumerico ?! Assim você não precisa fazer nenhum tipo de tratamento....
 

Alexandre Costa
ArtSoftSystems

Skype:artsoftsystems
MSN:alexandre.artsoft@hotmail.com
artsoftsystems@uol.com.br

   
Jorge
não registrado
ENUNCIADA !
Postada em 06/12/2007 12:27 hs   
Tente assim
 
    Sql = "select max(Codigo) as cod  from TbValorPedido"

    Set TbValorPedido = BancoDeDados.OpenRecordset(Sql)

 

    'Verifica se existe registro

     IF  (TbValorPedido.EOF or TbValorPedido.BOF) then                

              CodPedido = 1

          Else

              CodPedido = TbValorPedido!Cod + 1

    End If

   
Abimael
SÇAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 10/12/2007 12:10 hs            
Não funcionou, continua o mesmo erro....
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 10/12/2007 12:14 hs            
seu banco de dados é acess, se for qual versão
 
   
Abimael
SÇAO PAULO
SP - BRASIL
Postada em 10/12/2007 13:15 hs            
Sim, Access 2000(9.0.2812) O pior é que em outro modulo do mesmo programa,
só que em outra tabela funciona corretamente. Será que se eu rodar o MDAC funciona?
 
     
Página(s): 1/2      PRÓXIMA »

CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página