Cuestión : control de formato basado en el paso de nombre de la forma y del control

Algo que cambiando el color de fondo en cada acontecimiento de la entrada y de la salida para una forma 2003 de la base de datos del ACCESO, quisiera crear una función que hace esto tan si quiero cambiar los colores, yo tiene que hacerlo solamente adentro coloca una vez.  Sin embargo, cuando intento pasar el nombre de la forma, cualquiera como secuencia para el nombre de la forma, yo conseguir los errores tales como variable no declarada o datatype mismatched. class= > " claro " del
> del " codeSnippet " del class= del
class= " lineNumbers " del
class= del 
1:
2:
3:
4:
5:
6:
class= OnFocusColors secundario >Public " notpretty " (frmName del id= " codeSnippet941957 " del
class= del

Respuesta : control de formato basado en el paso de nombre de la forma y del control

Utilizaría el activar/desactivo acontecimientos. Ver el código. Notar que cambié los parámetros a las secuencias.

Lee


1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

OnFocusColors secundario público (frmName como secuencia, ctlName como secuencia)
    Formas (frmName). Controla (ctlName) .BackColor = vbRed
Submarino del extremo
LostFocusColors secundario público (frmName como secuencia, ctlName como secuencia)
    Formas (frmName). Controla (ctlName) .BackColor = vbBlue
Submarino del extremo

Form_GotFocus secundario privado ()
    Llamada OnFocusColors (Me.Name, Text0.Name)
Submarino del extremo

Form_LostFocus secundario privado ()
    Llamada LostFocusColors (Me.Name, Text0.Name)
Submarino del extremo
Otras soluciones  
 
programming4us programming4us