Olá pessoal tudo bem?, então preciso da ajuda de vcs eu desenvolvo um programa de biblioteca no vc e gostaria de saber como eu faço para que o campo codigo devolução, acrescente automaticamente um número, após realizada uma devolução, como eu posso fazer para q esse campo rode automaticamente?

 

Bjs agrdeço desde já......  

Altere a formatação conforme seu campo:

Set RxTemp = BancoDeDados.OpenRecordset("Select MAX(Posição) as Maximo from súmula where Idade > '" & Limite.Text & "'and Categoria = '" & CmbCategoria & "'  and Local = '" & txtlocalcompetição & "' and Data = #" & Format(txtdatacompetição, "mm/dd/yy") & "# ")
If IsNull(RxTemp("Maximo")) Then
TxtPosição.Text = "0001"
Else
TxtPosição.Text = Format$(RxTemp("Maximo") + 1, "0000")
End If
RxTemp.Close

faça uma consulta do ultimo CodigoDevolucao .. jogue para uma variavel, some + 1 na variavel .. e grave o novo codigo o valor da variavel somado ...

 

Ex.

 

set tabela = banco.openrecordset("SELECT MAX(CodigoDevolucao) as NCod FROM TabelaDevolucao")

 

vCodigo = tabela!NCod + 1 ' aqui já estou adicionando + 1 sobre o numero conseguido..

 

e na hora de incluir a informação do Codigo incrementado vc usa a variavel vCodigo

por ex.

 

tabela!CodigoDevolucao = vCodigo

 

espero ter ajudado .. qq coisa poste ai q tento explicar melhor ...

 

Karina , tente assim :

No banco de dados :

 - Defina o campo Codigo na tabela como Autonumeração .

 

No projeto :

- Acrescente essa linha no seu código

Tabela.refresh

Tabela.MoveMax

CodDevolucao.text = Tabela![Codigo] + 1

 

Qualquer duvida post

Mauricio / Ctba

 

 

desculpe , no exemplo acima está errado esta linha :

Tabela.MoveMax

 

o correto é :

Tabela.MoveMax

sql="select max(codigo) as mxcod form cad_teste"

rs.open sql

if not rs.eof then

me.codigo=(rs!mxcod & "")+1

end if

rs.close