Cómo implementar los siguientes problemas con código VBA en Access. Por favor vea los detalles. ¡Ruega de rodillas! !
El uso de la función DLookup puede implementar fácilmente esta función. El código de referencia es el siguiente: Option?Compare?Database
Public?Function?SafeDLookup(ByVal?Expr?As?String, ?_ p>
¿Por valor?Dominio?¿Como?Cadena,?_
¿Criterios?Opcionales?¿Como?Variante?¿Como?Variante
BuscadaSegura?=?Nulo
¿Error?Reanudar?Siguiente
Si?Falta(Criterios)?Entonces
BuscadaSegura?=?BuscadaD(Expr,?Dominio)
Else
SafeDLookup?=?DLookup(Expr,?Domain,?Criteria)
¿Fin?Si
¿Fin?Función
Privado ?Sub?Command2_Click()
Dim?varC?As?Variant
Dim?varBID?As?Variant
varBID?=?BID .Value
p>varC?=?SafeDLookup("C",?"A",?"B='"?Replace(varBID,?"'",?"''")?amp ;?" '")
Si?Not?IsNull(varC)?Entonces
MsgBox?varBID?amp;?" ha sido tomado prestado por "?amp;?varC?amp ;?" "
End?If
End?Sub
Supongamos que hay los siguientes datos de prueba en la tabla A:
Cuándo en el cuadro de texto BID El efecto de ejecución al ingresar k137: