18/09/2004, 04:41
|
| | | Fecha de Ingreso: septiembre-2004
Mensajes: 9
Antigüedad: 19 años, 8 meses Puntos: 0 | |
| Mira, a cada Control (u objeto de un formulario) le puedes asociar código VBA para unos determinados eventos, llamados [procedimientos de evento].
Así, marcado el objeto, sobre el boton derecho >propiedades> pestaña de eventos y encontrarás> Después de actualizar, Después de insertar etc.
Pues bien, te va a un objeto que se llama Formulario (¿Cómo?, pues bien facil en el angulo superior izquierdo de tu formulario, en modo diseño veras un cuadradito, sobre él boton derecho > propiedades), seleccionas Después de insertar y seleccionas en la desplegable [Procedimiento de Evento], pulsas los […] y allí pon lo siguiente:
' sustituye espacios por 0 ceros
If not isnull(me![id] ) then
‘ Donde clave será la cadena que quieres formar, así, esto hará que tomando como raiz "CBM", Clave tomará el valor del campo del formulario 00000 & [id].
Me![clave]= "CMB" & Replace(Right(Space(5) & Me![Id],5), " ", "0")
endif |