Access - Ayuda Con una Consulta

 
Vista:

Ayuda Con una Consulta

Publicado por Juan Carlos (18 intervenciones) el 08/01/2003 23:35:12
Hola Estimados mi cnsulta es la Siguiente.

Lo que quiero hacer es que en un formulario despues de actualizar una caja de texto por codigo busque en una tabla determinada el valor de la caja de texto en un campo determinado de esta tabla y si lo encuentra me mande un mensaje por ejemplo

tabla usuario
campo clave rut

lo que yo quiero que en un formulario que trabaja con una tabla de movimientos el usuario ingrese el valor del rut en una caja de texto y despues de actualizar la caja de texto valla a la tabla usuarios y busque en el campo rut si el valor de este es igual al de la caja de texto me mande un mensaje ejemplo msgbox(" El Rut Existe")
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda Con una Consulta

Publicado por Javier Ruiz (31 intervenciones) el 09/01/2003 12:47:17
En un módulo crea esta función: (si no tienes referencias a DAO se las pones)
Public Function RutExtiste(rut as String) as String
dim rec as dao.recordset
set rec=currentdb.openrecordset("SELECT rut FROM usuario WHERE rut='" & trim(rut) & "';")
if rec.recordcount>0 then
rec.close
set rec=nothing
RutExiste="El Rut Existe"
else
rec.close
set rec=nothing
RutExiste="El Rut No Existe"
endif
end

Luego en el código del evento AfterUpdate de la caja de texto pones:

Msgbox RutExiste(Nombrecajadetexto.Value)

Saludos,
Javi.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar