** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - desbloquear pestaña
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradodesbloquear pestaña

 Responder Responder Página  12>
Autor
Mensaje
simpatico3333 Ver desplegable
Habitual
Habitual


Unido: 26/Abril/2008
Localización: españa
Estado: Sin conexión
Puntos: 81
Enlace directo a este mensaje Tema: desbloquear pestaña
    Enviado: 17/Marzo/2018 a las 18:40
En principio dar las gracias a todos los que hacéis posible este foro.

Os comento me problema, tengo un cuadro combinado con el campo idcategoria en un formulario, en este mismo tengo un control de pestañas, lo que quiero es que cuando seleccione una idcategoria por ejemplo maíz la pestaña llamada cultivo se desbloquee. Mucha gracias.

Arriba
01loko Ver desplegable
Asiduo
Asiduo


Unido: 17/Agosto/2017
Localización: Santander
Estado: Sin conexión
Puntos: 475
Enlace directo a este mensaje Enviado: 17/Marzo/2018 a las 19:34
en el evento al hacer clic:

if me.combinado= maiz then Me.TabCtlnumero.disable=false (siendo numero el numero de la pestaña)

creo que es asi

Recordar de que soy nuevo y estoy aprendiendo.
Arriba
simpatico3333 Ver desplegable
Habitual
Habitual


Unido: 26/Abril/2008
Localización: españa
Estado: Sin conexión
Puntos: 81
Enlace directo a este mensaje Enviado: 17/Marzo/2018 a las 19:53
Muchas gracias, pongo esto y me sale que no se a definido la variable,

Private Sub SUBCATEGORIA_AfterUpdate()
If Me.IDSUBCATEGORIA = maiz Then Me.TabCt122.disable = False
End Sub


Arriba
01loko Ver desplegable
Asiduo
Asiduo


Unido: 17/Agosto/2017
Localización: Santander
Estado: Sin conexión
Puntos: 475
Enlace directo a este mensaje Enviado: 17/Marzo/2018 a las 19:56
donde pongo maiz, tienes que poner el valor de maiz en el cuadro combinado
 entiendo que si el cuadro es idcategoria, el valor es un numero (el id del maiz)
Recordar de que soy nuevo y estoy aprendiendo.
Arriba
simpatico3333 Ver desplegable
Habitual
Habitual


Unido: 26/Abril/2008
Localización: españa
Estado: Sin conexión
Puntos: 81
Enlace directo a este mensaje Enviado: 17/Marzo/2018 a las 20:39
Llevas toda la razon estaba cometiendo ese error, haber si me explico bien tengo una tabla Subcategoria con los campos Idsubcategoria,Subcategoria y Idcategoria luego un formulario llamado Datos con estos mismos campos, en el campo subcategoria en origen de datos hago la siguiente consulta ;
SELECT SUBCATEGORIAS.IDSUBCATEGORIA, SUBCATEGORIAS.SUBCATEGORIA, CATEGORIAS.IDCATEGORIA
FROM CATEGORIAS INNER JOIN SUBCATEGORIAS ON CATEGORIAS.IDCATEGORIA = SUBCATEGORIAS.IDCATEGORIA
WHERE (((CATEGORIAS.IDCATEGORIA)=[Formularios]![DATOS]![IDCATEGORIA]));

que al introducir la categoria me filtre la subcategoria de ésta y el codigo que tengo es el formulario es el siguiente;
Private Sub Form_Open(Cancel As Integer)
Me.TabCtl22.Enabled = False
End Sub

Private Sub SUBCATEGORIA_AfterUpdate()
If Me.SUBCATEGORIA = maiz Then Me.TabCt122.disable = False
End Sub

Private Sub SUBCATEGORIA_GotFocus()
Me.SUBCATEGORIA.Requery
End Sub

Seguramente me estoy liando y a vosotros mas todavia.
Arriba
01loko Ver desplegable
Asiduo
Asiduo


Unido: 17/Agosto/2017
Localización: Santander
Estado: Sin conexión
Puntos: 475
Enlace directo a este mensaje Enviado: 17/Marzo/2018 a las 20:57
Vamos mas despacio, que melio y no me entero:

Supuesto, categoria 1, subcategoria 3

entiendo que:
Private Sub Form_Open(Cancel As Integer)
Me.TabCtl22.Enabled = true 'principalmente para que no se introduccan datos antes de seleccionar categorias
End Sub

Private Sub SUBCATEGORIA_Click() 'esto es el cuadro combinado, supongo
If Me.SUBCATEGORIA = 3 and me.categoria =1 Then Me.TabCt122.disable = False 'entiendo que primero seleccionas la categoria y despues la subcategoria
End Sub
Private Sub SUBCATEGORIA_GotFocus()
Me.SUBCATEGORIA.Requery
End Sub

entiendo que asi funcione
Recordar de que soy nuevo y estoy aprendiendo.
Arriba
simpatico3333 Ver desplegable
Habitual
Habitual


Unido: 26/Abril/2008
Localización: españa
Estado: Sin conexión
Puntos: 81
Enlace directo a este mensaje Enviado: 17/Marzo/2018 a las 21:18
Perdona por hacerte perder el tiempo, la verdad es que no se explicarme, te cuento el tema es que quiero hacer una tabla de categorias con los campos idcategoria y categoria (aqui por ejemplo cultivos o repuestos) otra tabla de subcategorias con los campos idsubcategoria, subcategoria (aqui por ejemplo maiz o filtros) y idcategoria  para relacionarla con la tabla categorias, lo que quiero es hacer un formulario que al introducir una categoria filtre solo las subcategorias de ésta (por ejemplo al seleccionar cultivos solo pueda ver maiz y si selecciono repuestos solo pueda ver filtros) y la segunda parte es crear varias pestañas que cuando introduzca por ejemplo maiz me desbloquee solo esa pestaña y si introduzco filtros solo se desbloquee la pestaña filtros. Muchisimas gracias por tu interes.
Arriba
01loko Ver desplegable
Asiduo
Asiduo


Unido: 17/Agosto/2017
Localización: Santander
Estado: Sin conexión
Puntos: 475
Enlace directo a este mensaje Enviado: 17/Marzo/2018 a las 21:34
ahora creo que te he entendido:
mirate la web delmaestro miura
http://www.accessaplicaciones.com/ejemplos.html

los treeview simulados creo que es lo que buscas
Recordar de que soy nuevo y estoy aprendiendo.
Arriba
simpatico3333 Ver desplegable
Habitual
Habitual


Unido: 26/Abril/2008
Localización: españa
Estado: Sin conexión
Puntos: 81
Enlace directo a este mensaje Enviado: 19/Marzo/2018 a las 16:54
Al final con esto consiguo que se bloquee todas las pestañas o desbloquearlas pero una sola no entiendo que es que no se puede.


Private Sub SUBCATEGORIA_LostFocus()
If Me.SUBCATEGORIA = "maiz" Then
Me.TabCtl22.Enabled = True
Me.Página24.Enabled = True
Me.Página23.Enabled = False
Else
Me.TabCtl22.Enabled = False
Me.Página24.Enabled = False
Me.Página23.Enabled = True
End If

End Sub

Gracias

Arriba
pitxiku Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 27/Septiembre/2017
Localización: En mi casa
Estado: Sin conexión
Puntos: 926
Enlace directo a este mensaje Enviado: 19/Marzo/2018 a las 20:07
Supongo que el TabCtl22 es el control que tiene las pestañas. Si ese control lo deshabilitas:

Me.TabCtl22.Enabled = False

Lo lógico es que deshabilite todas las páginas que tenga.
Arriba
simpatico3333 Ver desplegable
Habitual
Habitual


Unido: 26/Abril/2008
Localización: españa
Estado: Sin conexión
Puntos: 81
Enlace directo a este mensaje Enviado: 25/Marzo/2018 a las 09:06
Haber si puedo retomar el tema con lo siguiente tampoco me funciona.

Private Sub Form_Open(Cancel As Integer)
Me.TabCtl22.Enabled = False
End Sub

Private Sub SUBCATEGORIA_LostFocus()
If Me.SUBCATEGORIA = "maiz" Then

Me.Página23.Enabled = True
Me.Página24.Enabled = False
Else

Me.Página23.Enabled = False
Me.Página24.Enabled = True
End If

End Sub
Arriba
simpatico3333 Ver desplegable
Habitual
Habitual


Unido: 26/Abril/2008
Localización: españa
Estado: Sin conexión
Puntos: 81
Enlace directo a este mensaje Enviado: 25/Marzo/2018 a las 09:11
Con este ultimo codigo no me desbloquea ninguna de las pestañas y con el anterior si me desbloquea pero las dos pestañas a la vez. Que puedo estar haciendo mal.
Gracias.
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 10816
Enlace directo a este mensaje Enviado: 25/Marzo/2018 a las 10:01
Como te dice Pitxiku, si haces esto estás inhabilitando todas las pestañas del control:

Me.TabCtl22.Enabled = False

Elimina esa orden y deja solo las que hacen referencia a las páginas.
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
ximo Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 03/Marzo/2006
Localización: España
Estado: Sin conexión
Puntos: 1908
Enlace directo a este mensaje Enviado: 25/Marzo/2018 a las 12:47
Hola,

Como dicen los expertos no se puede activar solo una pestaña del control, pero si puedes ir directamente a la que quieres según lo seleccionado en el combo.
esto podría ser más o menos así:

if combo="Maíz" Then

[TabCtl4].Pages(1).SetFocus

else
end if

Saludos, ximo
La incansable busqueda de información abre nuestras mentes

Saludos desde Burriana
Arriba
simpatico3333 Ver desplegable
Habitual
Habitual


Unido: 26/Abril/2008
Localización: españa
Estado: Sin conexión
Puntos: 81
Enlace directo a este mensaje Enviado: 25/Marzo/2018 a las 17:07
Doy por cerrado el tema me queda claro lo que me dice Ximo de que no puede activarse solo una pestaña y las demás quedarse bloqueadas, realmente esa era mi duda ya que hacerla visible o no si me funcionaba y lo del setfocus también lo tenia claro.

Muchas gracias a todos.
Arriba
 Responder Responder Página  12>
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable