Imprimir página | Cerrar ventana

Ver / No ver registros desactivados.

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=83945
Fecha de impresión: 21/Marzo/2019 a las 23:04


Tema: Ver / No ver registros desactivados.
Publicado por: jorros
Asunto: Ver / No ver registros desactivados.
Fecha de publicación: 13/Septiembre/2018 a las 13:46
No se la manera de solucionar este problema.

Tengo un formulario continuo con varios campos. Entre ellos un cuadro combinado asociado al número de empleado, que muestra los datos del empleado. El problema es que tengo muchos registros y por el tiempo hay empleados que están dados de baja (desactivados)  en la empresa, necesito poder ver los datos de los empleados activos o desactivados en el formulario continuo  pero no ver los desactivados a la hora de asignar un nuevo empleado.

Gracias anticipadas.



Respuestas:
Publicado por: mounir
Fecha de publicación: 13/Septiembre/2018 a las 14:01
Hola!

Lo que puedes hacer es cuando quieras dar de alta en el origen de la fila del cuadro combinado filtrar por activos y posteriormente quitas el filtro en el origen de la fila.

-------------
Un Saludo.


Publicado por: jorros
Fecha de publicación: 13/Septiembre/2018 a las 14:58
Gracias Mounir, ¿podrías ponerme algún ejemplo?


Publicado por: mounir
Fecha de publicación: 13/Septiembre/2018 a las 20:47
Hola!

Una pregunta, Como das de alta a un nuevo empleado?.
y como ves los datos del empleado desde un cuadro combinado en un formulario continuo?.

Mientras tanto te voy preparando un ejemplo.

-------------
Un Saludo.


Publicado por: jorros
Fecha de publicación: 13/Septiembre/2018 a las 21:01
Los empleados, los doy de alta, activo o desactivo desde un formulario llamado Frempleado
El formulario continuo se llama FrPartesCerINICIO y el cuadro combinado tiene el origen de control en el campo ParCerBriFus y se llama BriFus. El origen de la fila es: SELECT TbEmpleados.EmpNum, TbEmpleados.EmpNom, TbEmpleados.EmpAct FROM TbEmpleados ORDER BY TbEmpleados.EmpNom;  

Y debería ser cuando se quiera asignar un empleado SELECT TbEmpleados.EmpNum, TbEmpleados.EmpNom, TbEmpleados.EmpAct FROM TbEmpleados WHERE (((TbEmpleados.EmpAct)=True)) ORDER BY TbEmpleados.EmpNom;

Gracias por tu tiempo.


Publicado por: mounir
Fecha de publicación: 13/Septiembre/2018 a las 21:26
Hola!

Pues con If….Then…… Else…. End If.

Para dar de alta:

If Me.NewRecord then

Me.BriFus.RowSource="SELECT TbEmpleados.EmpNum, TbEmpleados.EmpNom, TbEmpleados.EmpAct FROM TbEmpleados WHERE (((TbEmpleados.EmpAct)=True)) ORDER BY TbEmpleados.EmpNom;"

else

Me.BriFus.RowSource="SELECT TbEmpleados.EmpNum, TbEmpleados.EmpNom, TbEmpleados.EmpAct FROM TbEmpleados ORDER BY TbEmpleados.EmpNom;"

End If


-------------
Un Saludo.


Publicado por: jorros
Fecha de publicación: 13/Septiembre/2018 a las 22:25
Lo pruebo y te cuento,

gracias


Publicado por: jorros
Fecha de publicación: 17/Septiembre/2018 a las 11:56
Perdonad por la tardanza en contestar.
Siguiendo las indicaciones de Mounir he resuelto con éxito mi problema. MUCHÍSIMAS GRACIAS

Se puede cerrar el hilo.

La solución:

Al entrar      Private Sub BriCab_Enter()

Me.BriCab.RowSource = "SELECT TbEmpleados.EmpNum, TbEmpleados.EmpNom, TbEmpleados.EmpAct FROM TbEmpleados WHERE (((TbEmpleados.EmpAct)=True)) ORDER BY TbEmpleados.EmpNom"

Me.BriCab.Requery

End Sub

 AL SALIR  Private Sub BriCab_Exit(Cancel As Integer)

Me.BriCab.RowSource = "SELECT TbEmpleados.EmpNum, TbEmpleados.EmpNom, TbEmpleados.EmpAct FROM TbEmpleados ORDER BY TbEmpleados.EmpNom"

Me.BriCab.Requery

End Sub





Imprimir página | Cerrar ventana