Acerca de la programación VBA de bases de datos
Hola,
En primer lugar,
Tu comportamiento incorrecto es: dimx?, ?y, ?z, ?min
La forma correcta de escribirlo debería ser: dim?x,?y,?z,?min
En segundo lugar, hay algún problema con tu lógica. Para ser precisos, puedes probarlo nuevamente.
A continuación se proporciona un método general como referencia:
Nota: coloque el método GetMin en el módulo.
¿Función?Pública?GetMin(ParamArray?Numbers()?¿As?Variante)?As?Variante
Dim?varMin?As?Variante
¿Dim? lngLoop?As?Long
On?Error?GoTo?ERR_HANDLER
'?Supongamos que el primer miembro de la matriz var de entrada es el más pequeño.
varMin?=?Numbers(LBound(Numbers))
'?/*?Bucle desde el segundo miembro de la matriz var hasta el último miembro...? */
¿Para?lngLoop?=?LBound(Numbers)? ?1?To?UBound(Numbers)
If?Numbers(lngLoop)? /p>
varMin?=?Numbers(lngLoop)
Fin?Si
Siguiente
GetMin?=?varMin
¿Salir?Error"
Fin?Función
El código del formulario es: Private?Sub?Command8_Click()
Text4.SetFocus
Texto4.Texto?=?GetMin(Text1.Value,?Text2.Value,?Text3.Value)
Fin?