(macro) Código para lista desplegable sin asistente en Access
El siguiente codigo de procedimiento de evento sustituye la macro incrustada que crea el asistente por código con mayor control sobre el objeto lista desplegable. La lista se llama quefactura. La lista muestra los números de facturas y la fecha. Cuando se elige un valor en la lista (AfterUpdate) se guarda en la variable elnum. Se busca entonces un registro en el formulario que coincida con la expresión. Por ejemplo la expresión "[N_VENTA] = elnum" encuentra una factura con número N_VENTA...
Pasos:
1) Insertar lista desplegable sin asistente.
2) Pon un nombre al control.
3) En la propiedad Origen de la fila pulsar los puntos suspensivos (...) para generar un Select con una consulta...
4) En la propiedad Número de columnas poner tantas como has añadido en el paso 3)
5) En el evento Después de actualizar de la lista, poner Procedimiento de evento
6) Copia el código de abajo y cambia los nombre por los que utilices...
--------
Nota: Con el evento de formulario Load() podemos iniciar un valor en la lista desplegable cuando el formulario sea llamado por otro...
----
Pasos:
1) Insertar lista desplegable sin asistente.
2) Pon un nombre al control.
3) En la propiedad Origen de la fila pulsar los puntos suspensivos (...) para generar un Select con una consulta...
4) En la propiedad Número de columnas poner tantas como has añadido en el paso 3)
5) En el evento Después de actualizar de la lista, poner Procedimiento de evento
6) Copia el código de abajo y cambia los nombre por los que utilices...
----
Private Sub quefactura_AfterUpdate() Dim elnum As Long Me.FilterOn = False elnum = Me.quefactura.Value DoCmd.SearchForRecord acDataForm, "tu formulario", , "[N_VENTA] = " & elnum End Sub
Nota: Con el evento de formulario Load() podemos iniciar un valor en la lista desplegable cuando el formulario sea llamado por otro...
----
Private Sub Form_Load() quefactura.Value = elregistro End Sub
Sesión:
Inicie sesión ...
Editores de contenidos
No es un Editor...
¡¡ en aulapc.es ¡¡
