02/09/2005, 11:02
|
 | Moderador | | Fecha de Ingreso: enero-2002
Mensajes: 8.031
Antigüedad: 23 años, 3 meses Puntos: 98 | |
Trata asi:
Código:
sql = "select max(cod_doc) as codigo from Documento"
Set rs = conexion.Execute(sql)
if not rs.eof then
if isNull(rs("codigo")) then
ultimo = 0
else
ultimo = rs("codigo")
end if
else
ultimo = 0
end if
__________________
"El hombre que ha empezado a vivir seriamente por dentro, empieza a vivir más sencillamente por fuera."
-- Ernest Hemingway |