30
« en: Viernes 11 de Marzo de 2005, 20:26 »
Gracias por tu respuesta, pero en efecto creo que no me expliqué bién.
Cuando yo paso de un registro a otro puede que los valores de algunos controles sean los mismos en el registro siguiente, lo que hago es que si el usuario presiona la tecla F3 me copie el mismo valor que tenía ese control en el registro anterior.
Para hacer esto necesito guardar el valor de cada control en una variable aparte.
Suponte que el formulario tiene estos 2 controles:
PLA_Cedula y PLA_Direccion
PLA_Cedula = 10456278
PLA_Direccion = "Calle Las Casitas, Quinta La Arboleda, Paraparito"
Estos son los valores que tiene el registro actual.
Puede que cuando yo vaya al registro próximo esos mismos controles vuelvan a tener esos mismos valores; lo que hago es que en el evento CURRENT del formulario hago lo siguiente:
PubCedula = PLA_Cedula.value
PubDireccion = PLA_Direccion.value
Cuando el usuario está en el control PLA_Cedula y presiona F3 lo que hago es:
PLA_Cedula.value = PubCedula
y así repite el mismo valor que tenía ese control en el registro previo; esto lo hace perfecto. Ahora bién son 200 controles los que hay en el formulario y no quiero hacer esto para cada uno de ellos, por eso mi pregunta sigue siendo la misma, algo como esto:
For Each Ctrl in Formulario.controls
Call MoverValor(Ctrl, NombreVariable)
Next
En el módulo está la función MoverValor
Function MoverValor(ControlForm, NombreVariable)
NombreVariable = ControlForm.Value
End Function
La primera vez que se ejecuta la funcion los parámetros seran:
ControlForm = PLA_Cedula
NombreVariable = PubCedula
La segunda vez será:
ControlForm = PLA_Direccion
NombreVariable = PubDireccion
Y así sucesivamente, es decir un siclo que me guarde los valores de los controles en sus respectivas variables.
¿Me expliqué mejor?
Espero que sí y gracias anticipadas por cualquier ayuda.