rst.fields = vacio

[carnero]

hola
una consulta

Código:

If IsNull(login.rst.Fields("numero")) Then

con esa sentencia puedo ver si el valor es NULL.
Pero como puedo saber si no hay ningun valor ( osea ni 0..9, a..z o NULL)

lo que quiero hacer es:

Código:

si el ultimo registro de la tabla numeracion es nada haga
                   numero = 1
sino
                  numero = numero + 1 
( por ejemplo : ultimo registro = 0 + 1, daria numero = 1 )

gracias

[hugo180486]

Código vb:

If login.rst.Fields("numero") = "" Then 'Eso deberia funcionar para ver si esta vacio
 

[hugo180486]

Si eso no funciona y de antemano dabes que el Campo siempre va ser numerico podrias hacer esto tambien:

Código vb:

If  Asc (Left$(Cstr(login.rst.Fields("numero").Value),1) >= 48 and Asc (Left$(Cstr(login.rst.Fields("numero").Value),1)  <= 57 then'
'Eso quedria decir que el campo tiene un valor y ademas es numerico
Else
'No tiene un valor numerico
End if(
 

Consiguete el Codigo Ascii y juega con las comapraciones como mas te convenga...

[carnero]

el primero lo hise haci:

Código:

login.rst.MoveLast
           If login.rst.Fields("numero") = "" Then

resulta si la tabla tiene registros, pero sino los tiene osea es NULL no funcioa.

y

la segunda

Código:

If Asc(Left$(CStr(login.rst.Fields("numero").Value), 1) >= 48) And Asc(Left$(CStr(login.rst.Fields("numero").Value), 1) <= 57) Then

tampoco aceptas valores NULL


gracias

[hugo180486]

Código vb:

login.rst.MoveLast
if Not IsNull(login.rst.Fields("numero")) Then
'Si no es nulo Then checa si no viene vacio
 
If login.rst.Fields("numero") = "" Then
'Si no viene vacio then "Haces lo que quieres hacer
 
End if
 
End if
 

[carnero]

lo que pasa es que el

Código:

If login.rst.Fields("numero") = "" Then

no funciona si biene VACIO

si yo pongo esto:

Código:

if Not IsNull(login.rst.Fields("numero")) Then
#
If login.rst.Fields("numero") = "" Then

pasa si biene VACIO y al llegar al siguiente if se cae porque no tiene nada que comparar

[hugo180486]

jejej creo que ya me confundiste, primero asegurate que tengas campos nulos o vacios para hacer las pruebas... Despues intenta lo siguiente. Segun yo quieres identificar si el ultimo registro es nulo o viene Vacio verdad?, Intenta esto

Código vb:

rs.MoveLast
If (Isnull(rs.Fields(0).Value) or (Trim$(rs.Fields(0).Value = "")) Then
 
End if
 

La funcion Trim te quita espacios vacios de lado derecho o izquierdo de una cadena.

La diferencia si le agregas o no el $, es que con el signo de pesos, te devuelte un tipo String, y sin el signo te devuelve un tipo Variant...

Como el tipo Variant ocupa mas lugar en memoria, es mejor que te devuelva un tipo String...

Haber si asi funciona...

[carnero]

gracias por la ayuda pero no lo toma, porque no tiene nada (VACIO) me dice que llego al final y no encontro nada

[lokoman]

Hola!
Intentaste:

If login.rst.Fields("numero") =Empty Then

[carnero]

el valor de bof o eof rd tru, o el actual redistro se elimino.......

tampoco :(

[lokoman]

Ponle:

if login.rs.eof=false then
If login.rst.Fields("numero") =Empty Then
...
...
end if
end if

[carnero]

If not (rst.eof and rst.bof) then

esa me sirvio muchas gracias por su ayudaa

seguire molestando a medida que avanso

[lokoman]

Ok