|
es posible, puedes probarlo por ejemplo en un botón.
dim db as database
dim rs1 as dao.recordset
set db = currentdb
set rs1 = db.openrecordset("select * from tabla1 where campo1 = valor1")
if rs1.eof and rs1.bof then
msgbox "no existe, hacemos lo que sea."
else
msgbox "si existe, hacemos lo que sea."
end if
db.close
para que funcione necesitas tener las referencias microsoft dao en el menú herramientas - referencias.
saludos.
|
