access vba - solucion - tiempo de ejecución error 6 desbordamiento

run time error 6 overflow solucion

Question

Recibo un mensaje de error de Runtime 6 ''overflow'' en el siguiente código al llegar a la línea que comienza con ''minimo''. Estuvo funcionando bien hasta hace poco. Después de proporcionar algunas actualizaciones de tipo cosmético a su forma subyacente, este mensaje ha llegado y no puedo entender por qué.

''Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

rs.Open "select min(autonumerazione) from tblDashboard01", CurrentProject.Connection

Do While Not rs.EOF
minimo = rs.Fields(0)
rs.MoveNext
Loop
minimo = minimo - 1
st_Sql = "update tbldashboard01 set MasterLevel = autonumerazione - " & minimo & ""
Application.DoCmd.RunSQL (st_Sql)

Answer 1

Intente insertar la siguiente línea al comienzo del programa:

Dim minimo as Long