Código automático.

USUÁRIO: SENHA:

SALVAR LOGIN ?

Voltar

Autor

Assunto: Código automático.

Alfterra

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 10/12/2007 15:33 hs

tenta assim:

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

Set TbValorPedido = BancoDeDados.OpenRecordset(Sql)

If TbValorPedido.RecordCount = 0 Then

CodPedido = 1

Else

CodPedido = TbValorPedido!Cod + 1 'coloca aki o + 1

End If

Cardoso G

PATOS DE MINAS
MG - BRASIL

ENUNCIADA !

Postada em 11/12/2007 16:06 hs

faz assim

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

Set TbValorPedido = BancoDeDados.OpenRecordset(Sql)

'Verifica se existe registro

IF isnull(TbValorPedido!Cod ) then

CodPedido = 1

Else

CodPedido = TbValorPedido!Cod + 1

End If

Abimael

SÇAO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 20/12/2007 11:09 hs

Desculpe a demora, mas só tive tempo de testar agora.. O esquema do Cardoso funcionou que é uma maravilha...

Só não si como fechar o topico.

Obrigado a todos

Abimael Silva

Página(s): 2/2 « ANTERIOR


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