Problema para Ingresar un codigo

[gasafonso]

Hola, yo tengo dos Tablas una que es Cliente y la otra se llama Mascotas,

en mascotas tengo Codcliente, codmascota, raza, nombremasotas

yo ingreso en la ficha del cliente y necesito ver si en la tabla Mascotas existe el numero de cliente y si existe cual es el codigo de la mascota ?( el codigo mas grande, o sea el mayor) y agregar el mayor mas uno


Esto es para asignarle un numero a la nueva mascota



gracias abrazo

[Kruzado]

primero abres la tabla con este filtro :
on error resume next
"select * from mascotas where codcliente=" & tucodigo & " order by codmascota desc"

tutabla.movefirst
if err.number <> 0 'cliente sin mascotas
codigodemascota=1
else
codigomascota=rs!codmascota+1
endif

[gasafonso]

No me funciono , pero lo que voy a hacer es darle un numero correlativo a las mascotas independientemente de cliente y en una tabla guardar el ultimo numero ( codigo)


Asi tiene que funcionar


gracias capo

[rulsanchez]

Tambien prueba a hacer esto:

on error resume next
dim miRecordset as Adodb.recordset
set miRecordset = New Adodb.recordset
miRecordset.ActiveConnection = miConexion
miRecordset.Open "select * from mascotas where codcliente=" & tucodigo & " order by codmascota desc"

'Si la consulta da resultados...
if not miRecordset.Eof then

'sino ...
else

endif

[gasafonso]

Si igual yo trabajo con DATA


pero gracias

[vdiaz18]

SALUDOS...

LA MANERA MAS FACIL DE HACER ESTO ES ASI :

"SELECT max(CodMascota) as Codigo FROM TMascotas "
Codigo=rst.fields(0)
NuevoCodigo=Codigo+1


PRUEBALO Y SUERTE ....

[Avellaneda]

Iniciado por gasafonso

Si igual yo trabajo con DATA


pero gracias

Sólo le tienes que aplicar al control Data, la consulta que te puso Kruzado

sql = "select * from mascotas where codcliente=" & tucodigo & " order by codmascota desc"

Set rs = db.OpenRecordset(sql)
Set Data1.Recordset = rs

[gasafonso]

ok gracias