** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Ver / No ver registros desactivados.
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoVer / No ver registros desactivados.

 Responder Responder
Autor
Mensaje
jorros Ver desplegable
Habitual
Habitual
Avatar

Unido: 20/Octubre/2008
Localización: España
Estado: Sin conexión
Puntos: 75
Enlace directo a este mensaje Tema: Ver / No ver registros desactivados.
    Enviado: 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.
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: en línea
Puntos: 4733
Enlace directo a este mensaje Enviado: 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.
Arriba
jorros Ver desplegable
Habitual
Habitual
Avatar

Unido: 20/Octubre/2008
Localización: España
Estado: Sin conexión
Puntos: 75
Enlace directo a este mensaje Enviado: 13/Septiembre/2018 a las 14:58
Gracias Mounir, ¿podrías ponerme algún ejemplo?
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: en línea
Puntos: 4733
Enlace directo a este mensaje Enviado: 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.
Arriba
jorros Ver desplegable
Habitual
Habitual
Avatar

Unido: 20/Octubre/2008
Localización: España
Estado: Sin conexión
Puntos: 75
Enlace directo a este mensaje Enviado: 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.
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: en línea
Puntos: 4733
Enlace directo a este mensaje Enviado: 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.
Arriba
jorros Ver desplegable
Habitual
Habitual
Avatar

Unido: 20/Octubre/2008
Localización: España
Estado: Sin conexión
Puntos: 75
Enlace directo a este mensaje Enviado: 13/Septiembre/2018 a las 22:25
Lo pruebo y te cuento,

gracias
Arriba
jorros Ver desplegable
Habitual
Habitual
Avatar

Unido: 20/Octubre/2008
Localización: España
Estado: Sin conexión
Puntos: 75
Enlace directo a este mensaje Enviado: 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


Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable