problema acceso a tabla

[analoyra]

hola, tengo un problema cuando quiero acceder a una tabla y esta vacia.
yo hago lo siguiente
Rs.Open "Select max(idauditoria) from AudiPtoventa", cn, adOpenDynamic, adLockOptimistic
if rs.eof=true and rs.bof= true then
.....le asigno 0, else otra cosa
pero si le borro todos los datos a la tabla igual me dice que rs es false... como que tiene datos y yo estoy viendo que la tabla de access esta totalmente vacia
Alguien me puede dar una mano por favor!?
GRACIAS DE ANTEMANO

[boluart]

Porque no usas rs.Count

[analoyra]

Hola, ya lo probe pero tampoco me funciona, no se porque, pero en mi BD tengo declarado la clave principal como numerica, entonces por defecto me pone un 0 access, cuando pregunto por el count me pone 1, luego,cuando quiero insertar el segundo registro, el count me vuelve a poner 1, y me salta un error. es por ese motivo que estoy buscando otras alternativas

[Txoco]

Hola!

La consulta que estás haciendo se basa en una función (Max), por lo que siempre te va a devolver una única fila. Si la tabla está vacía, te devolverá el valor Null en ese campo, y si no, el máximo del campo, pero siempre será una fila. De hecho, si consultas Rs.Fields(0).Value, verás que es nulo.

Por tanto, si lo que quieres es comprobar que la tabla está vacía y asignar un valor dependiendo, hazlo así:

Código:

Call Rs.Open("Select max(idauditoria) AS Maximo from AudiPtoventa", cn, adOpenDynamic, adLockOptimistic)

If IsNull(Rs!Maximo) Then
    ' Asigna 0 (la tabla está vacía)
Else
    ' Rs!Maximo contiene el mayor valor en IdAuditoria
End If