Milton
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 25/09/2004 00:17 hs
Eu uso DAO e tenho tb "Mercadoria" no Access q tem um campo registro.
Preciso de uma rotina q, quando eu apertar o botao "novo" pegue o ultimo registro e some +1
Como posso fazer isso?Qual éa rotina? SE alguem tiver um exemplo me mande ...
Obrigado
|
|
|
|
|
|
andrekbc
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/09/2004 01:43 hs
dim Ultimo_Registro as Long dim Próximo_Registro as Long dim Acréssimo as integer Ultimo_Registro =1 Ultimo_Registro =10 Próximo_Registro =(Ultimo_Registro +Ultimo_Registro ) 'ou seja a=a+1 'em vb.net a++
Só os melhores sobrevivem, esta é a lei da natureza!!!
|
|
|
|
Ganbity
|
RIO DE JANEIRO
RJ - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/09/2004 11:26 hs
tente assim Set bancodedados = OpenDatabase(App.Path & "anco.mdb") 'indica o local do banco de dados
Set tabela = bancodedados.OpenRecordset("Select max(codigo) From tabela") 'incdica a tabela
If Not tabela.EOF Then 'se estiver vazio
If Not IsNull(tabela(0)) Then 'se não estiver vazio
Txtcodigo.Text = Format(Val(tabela(0)) + 1, "0000") 'acrescenta um código a mais
Else 'se não
Txtcodigo.Text = "0001" 'se não tiver nenhum cadastro atribui o primeiro código
bancodedados.Close 'fecha o banco de dados
End If 'termina a primeira instrução
End If 'termina a segunda instrução
"A complexidade do programa cresce até exceder a competência do programador. " Luciano de Paula Desenvolvedor - Analista lufra2@bol.com.br | |
|
|
|
|
