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
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 10/12/2007 12:14 hs
seu banco de dados é acess, se for qual versão |
|
|
|
|
|
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? |
|
|
|
