OVERFLOW

GNCNET 23/12/2014 22:01:23
#443387
Amigos,
Estou tentanto gravar em um banco de dados access. Já existem 32980 registros, e ao tentar acrescentar mais um, ocorre o erro: run-time error 6 - overflow.
O erro ocorre nesta linha: n_prod = Int(RSy!ultimo) + 1

Dim n_prod As Integer
Dim RSy As Recordset
Dim BDy As Database
Set BDy = OpenDatabase(caminho)
Set RSy = BDy.OpenRecordset([Ô]Select Max(codlancamento) As Ultimo From tblfincli[Ô])
[ô]Inserir
If IsNull(RSy!ultimo) Then
n_prod = 1
Txt_Codigo_lanc.Text = n_prod
Else
[txt-color=#e80000]n_prod = Int(RSy!ultimo) + 1[/txt-color]
Txt_Codigo_lanc.Text = n_prod
End If
MARCELOKROL 23/12/2014 22:07:21
#443388 Resposta escolhida
Tente assim:
 
Dim n_prod As double
Dim RSy As Recordset
Dim BDy As Database
Set BDy = OpenDatabase(caminho)
Set RSy = BDy.OpenRecordset([Ô]Select Max(codlancamento) As Ultimo From tblfincli[Ô])
[ô]Inserir
If IsNull(RSy!ultimo) Then
    n_prod = 1
Else
     n_prod = cdbl(RSy!ultimo) + 1
End If 
Txt_Codigo_lanc.Text = cstr(n_prod )
GNCNET 24/12/2014 11:16:26
#443392
Obrigado, resolveu.
Tópico encerrado , respostas não são mais permitidas
Voltar