Crear nuevos checkbox
Marta
14 de Mayo del 2004
Hola a todos,
tengo una tabla '谩reas' y quiero crear un checkbox, dentro de un formulario, para cada valor de dicha tabla. ¿Se puede hacer? ¿C贸mo lo hago? Es urgente.
Muchas gracias.
Saludos.
tengo una tabla '谩reas' y quiero crear un checkbox, dentro de un formulario, para cada valor de dicha tabla. ¿Se puede hacer? ¿C贸mo lo hago? Es urgente.
Muchas gracias.
Saludos.
peris
14 de Mayo del 2004
hola, creo que puedo ayudarte pero para eso explicame m谩s lo del check para poder decirte mejor.
saluds
saluds
Marta
14 de Mayo del 2004
Hola,
tengo un formulario que recoge los datos de un trabajador, este trabajador puede pertenecer a varias 谩reas distintas.
Para que lo pueda marcar f谩cilmente, pretend铆a crear un checkbox para cada 谩rea (por ejemplo: un checkbox para suministro, otro para almac茅n, otro para ventas...), de tal forma que el que lo rellene s贸lo tenga que seleccionar las 谩reas a las que pertenece.
Como estas 谩reas pueden variar, necesito leerlas de la base de datos, por lo que no puedo crearlas en la vista de dise帽o, sino por c贸digo. (Por cierto, estoy usando Access)
Si tienes alguna duda m谩s concreta preguntame.
Gracias.
Saludos.
tengo un formulario que recoge los datos de un trabajador, este trabajador puede pertenecer a varias 谩reas distintas.
Para que lo pueda marcar f谩cilmente, pretend铆a crear un checkbox para cada 谩rea (por ejemplo: un checkbox para suministro, otro para almac茅n, otro para ventas...), de tal forma que el que lo rellene s贸lo tenga que seleccionar las 谩reas a las que pertenece.
Como estas 谩reas pueden variar, necesito leerlas de la base de datos, por lo que no puedo crearlas en la vista de dise帽o, sino por c贸digo. (Por cierto, estoy usando Access)
Si tienes alguna duda m谩s concreta preguntame.
Gracias.
Saludos.
trinity
14 de Mayo del 2004
Si quieres crear checkbox din谩micos puedes utilizar
dim CheckDinamic as CheckBox
Set CheckDinamic = Controls.Add("VB.CheckBox", "CheckDinamic")
Lo que ya no se c贸mo hacer es recoger los eventos de los checkbox creados. Si lo descubres me lo explicas.
Muchas gracias
dim CheckDinamic as CheckBox
Set CheckDinamic = Controls.Add("VB.CheckBox", "CheckDinamic")
Lo que ya no se c贸mo hacer es recoger los eventos de los checkbox creados. Si lo descubres me lo explicas.
Muchas gracias
trinity
14 de Mayo del 2004
Perdona que no te he explicado lo de controls.add
recibe dos par谩metros, el primero el tipo de control y el segundo el nombre que quieres darle al nuevo check creado.
Sorry
recibe dos par谩metros, el primero el tipo de control y el segundo el nombre que quieres darle al nuevo check creado.
Sorry
trinity
14 de Mayo del 2004
Perdona de nuevo, se me ha olvidado comentarte que para que veas el control debes redimensionarlo, por defecto de pone tama帽o 0.
Mejor te escribo el c贸digo que funciona y asi no se me olvida nada m谩s :)
Dim CheckDinamico As CheckBox
Private Sub Command1_Click()
Set CheckDinamico = Controls.Add("vb.checkbox", "CheckDinamic")
With CheckDinamico
.Move 100, 50, 2000, 200
.Caption = "Mi nuevo check"
.Visible = True
End With
End Sub
Mejor te escribo el c贸digo que funciona y asi no se me olvida nada m谩s :)
Dim CheckDinamico As CheckBox
Private Sub Command1_Click()
Set CheckDinamico = Controls.Add("vb.checkbox", "CheckDinamic")
With CheckDinamico
.Move 100, 50, 2000, 200
.Caption = "Mi nuevo check"
.Visible = True
End With
End Sub
Marta
14 de Mayo del 2004
Hola,
me da un error al compilar en el m茅todo add de controls, el error dice as铆:
" Error de compilaci贸n: No se encontr贸 el m茅todo o el dato miembro"
El c贸digo que tengo es este:
record.MoveFirst
cadena = record.GetString(adClipString, 1, "Area")
'en cadena tengo el primer valor
'el nombre de un check no puede contener
'espacios, debemos cambiarlos por '_'
cadena = Replace(cadena, " ", "_")
Set CheckDinamico = Controls.Add("vb.checkbox", cadena & "Check")
With CheckDinamico
.Move 100, 50, 2000, 200
.Caption = cadena
.Visible = True
End With
¿Sabes c贸mo podr铆a hacerlo?
Gracias.
Saludos
me da un error al compilar en el m茅todo add de controls, el error dice as铆:
" Error de compilaci贸n: No se encontr贸 el m茅todo o el dato miembro"
El c贸digo que tengo es este:
record.MoveFirst
cadena = record.GetString(adClipString, 1, "Area")
'en cadena tengo el primer valor
'el nombre de un check no puede contener
'espacios, debemos cambiarlos por '_'
cadena = Replace(cadena, " ", "_")
Set CheckDinamico = Controls.Add("vb.checkbox", cadena & "Check")
With CheckDinamico
.Move 100, 50, 2000, 200
.Caption = cadena
.Visible = True
End With
¿Sabes c贸mo podr铆a hacerlo?
Gracias.
Saludos
trinity
14 de Mayo del 2004
Yo tengo el c贸digo que te he pasado en un proyecto con un bot贸n y al pulsar el bot贸n crea el checkbox y lo hace bien.
Tu codigo parece que est谩 bien... por si te sirve te paso un p谩gina con un mont贸n de ejemplos.
http://www.somser.com/2000VB/TEMAS.HTM
Selecciona controles y los dos primeros muestran como crear controles din谩micos.
Suerte.
Tu codigo parece que est谩 bien... por si te sirve te paso un p谩gina con un mont贸n de ejemplos.
http://www.somser.com/2000VB/TEMAS.HTM
Selecciona controles y los dos primeros muestran como crear controles din谩micos.
Suerte.
Marta
14 de Mayo del 2004
Hola,
he entrado en la p谩gina y me he descargado los ejemplos, pero no los puedo leer. Estoy editando el c贸digo Basic en Access, puede ser que no lo reconozca bien. As铆 que sigo con el problema.
Si me pudieseis ayudar.... Gracias.
he entrado en la p谩gina y me he descargado los ejemplos, pero no los puedo leer. Estoy editando el c贸digo Basic en Access, puede ser que no lo reconozca bien. As铆 que sigo con el problema.
Si me pudieseis ayudar.... Gracias.
Marta
14 de Mayo del 2004
Hola,
muchas gracias, voy a probar ahora mismo, ya te contar茅.
Saludos.
muchas gracias, voy a probar ahora mismo, ya te contar茅.
Saludos.