|
|
Postada em 15/11/2004 20:12 hs
Uso Dao 3.5 e BD access com tb Pedido q tem um campo Pedido, Gostaria de ter uma rotina q verifica-se o ultimo numero de pedido e soma +1, quando eu apertar o botao NOVO.
Se alguem poder um passar um ex por mail, pra min ver o raciocinio
Obrigado
|
|
|
|
|
|
|
|
Postada em 16/11/2004 01:15 hs
Olá Rafael, Faça isso: Dim UltNum as Recordset Dim Sql as string, ProximoNumero as String Sql="Select Max(Pedido.Pedido) From Pedido" Set UltNum = BancoDeDados.OpenRecordset(Sql, dbOpenSnapshot) If UltNum.Eof Then ProximoNumero = "1" Else ProximoNumero = Cstr(Val(UltNum(0))+1) End If Estou assumindo que você precise de um campo string, por isso usei uma variável string e converti ultNum(0) para número usando a função Val antes de somar 1. um Abraço, Sandro |
|
|
|
|
|
Postada em 16/11/2004 13:22 hs
eu trabalho diferente, eu tenho uma tabela "sequencial" onde para cada tabela eu tenho um registro com o último valor da chave primário, cada vez que o usuário clique no botão novo eu edito o registro (+1), se durante a inclusão outro usuário tentar incluir vai pegar o valor certo, pois vai nesta tabela e edita o registro, pois na tabela de pedidos, por exemplo, o primeiro usuário pode não ter salvo seu registro ainda. exemplo: último pedido: 5 usuário A -> incluir pedido 6 usuário B -> incluir pedido, se for buscar na tabela de pedido e o usuário A não gravou seu pedido ainda vai retorna 6 tb |
|
|
|
|
