La Red de Conocimientos Pedagógicos - Currículum vitae - Cómo implementar los siguientes problemas con código VBA en Access. Por favor vea los detalles. ¡Ruega de rodillas! !

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, ?_

¿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: