Postada em 21/04/2007 20:56 hs
Pessoal, eu de novo
Veja o Codigo abaixo e tente me explicar onde está o erro:
quando chamo a função tudo funciona bem até certo número de registro, depois para de gerar um novo numero baseado (soma de +1) no ultimo codigo, gerando somente o mesmo;
exemplo:
UltimoVoucher = 11186
o certo seria proximo = 11187
então estagnou no 11186
Veja a função:
Já tentei varias, a que funcionou melhor foi esta:
Public Function Reg()
Dim UltimoRegistro As Recordset
Set UltimoRegistro = CpnInfo.OpenRecordset("TblParametros", dbOpenTable)
UltimoRegistro.MoveMax
txtUltimo.Text = UltimoRegistro!UltimoVoucher
txtVoucher.Text = txtUltimo + 1
End Function
Marcelino Neto
VB6.0
Access2000
Dao
 MFerreira...
|
