Formulario revelde ¿ sin causa ?

30/03/2010 - 14:00 por Des As Tre | Informe spam

A los buenos días.
Alguien puede decir que bobada estoy haciendo, y de la cual no encuentro la causa?

frmCierreAño es un formulario
mrc2 es un marco en frmCierreAño
Casilla es un control Public

Sub Mostrar_Formulario_Con_Errores()

With frmCierreAño ' Aparto el marco2. Muestro el listbox que llenaré con los errores.

.mrc2.Left = 0

End With

With .lbErr: .Left = mrc2.Width + 1 / 8 * frmCierreAño.Width: .Visible = True: End With

With .etNota: .Left = lbErr.Left: .Top = 6: .Width = lbErr.Width: .Height = : End With

With .etNota: .BackColor = Rojo: .Caption = "Diario con Errores": End With

.cmdVerificar.Visible = False

With .cbImpErr: .BackColor = Rojo: .Visible = True: End With

End With

'*********** Esta parte no funciona ¿ Donde esta mi genialidad?***

' hay: 2 label, 2 Texbox, 2 Commandbutton, 5 optionbutton

For Each Casilla In frmCierreAño.mrc2.Controls

If Casilla.Name = cmdSalir Then

Casilla.Visible = True

Else

Casilla.Visible = False

End If

Next Casilla

'********************************************************

' Este sí funciona

For Each Casilla In frmCierreAño.Controls

If TypeOf Casilla Is MSForms.CheckBox Then

If Casilla.GroupName = "infVerificar" Then Casilla.Visible = True

End If

Next Casilla

End Sub

Saludos y ... Excel entes vibraciones
Des As Tres No imprimas, ganemos un árbol... o tres hojinas
.

Siga el debate

10 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#6 Héctor Miguel

06/04/2010 - 05:45 | Informe spam

hola, Des !

efectivamente, hay... "problemas" con los servidores de los grupos de ms
(varios hemos tenido que postear en varios servidores, que si no... ???)
(al parecer) estan viendo "sus ultimos dias" (los dejan "morir por inanicion")
le apuestan a otras... "tecnologias" (pero no son claros en su "invitacion")
como dicen por ahi... "o te aclimatas, o te aclimueres" (ca' quien, no ?) :)))

saludos,
hector.

bueno, al grano:

- supongo que (com)probaste dos "errores" en la segunda propuesta (?)

- no es que "no funciona"... es que recorre todo el bucle
"SIN encontrar lo que busca" (no funciona "como esperabas" ?)
del codigo que comentas como que no funciona
podrias probar si cambias esta parte (especificamente):

> If Casilla.Name = cmdSalir Then

por algo +/- asi: If Casilla.Name = cmdSalir.Name Then

incluso, podrias reducir en el bucle la estructura If ... End If (con algo
+/- asi):
For Each Casilla In frmCierreAño.mrc2.Controls
Casilla.Visible = Casilla.Name = cmdSalir.Name
Next

- las opciones que muestra la tecnologia "intelisense" dependen:
- de las librerias a las que hace referencia el proyecto de macros
- y en el orden de sus "precedentes"
(primero las "basicas" de vba, y despues las del "pariente" de la
variable/control)

Responder a este mensaje

#7 Des As Tre

06/04/2010 - 16:30 | Informe spam

Hola Héctor.Gracias.
Respuesta en dos partes.
Como dicen por aquí " me has cogido en pelotas"
Quieres decir que Tucrosoft va a dejar caer el servidor en el que se "asienta" Excel?
en el que se "asienta" Todos los grupos?
Los servidores gratuitos?
Seguirán habiendo news?
¿cuando hablas de otras tecnologías a que te refieres?, si puede saberse.

La otra parte la estudio y veré de practicarla. Te comentaré
Saludos y ... Excel entes vibraciones
Des As Tres No imprimas, ganemos un árbol... o tres hojinas
.
"Héctor Miguel" escribió en el mensaje
news:

hola, Des !

efectivamente, hay... "problemas" con los servidores de los grupos de ms
(varios hemos tenido que postear en varios servidores, que si no... ???)
(al parecer) estan viendo "sus ultimos dias" (los dejan "morir por inanicion")
le apuestan a otras... "tecnologias" (pero no son claros en su "invitacion")
como dicen por ahi... "o te aclimatas, o te aclimueres" (ca' quien, no ?) :)))

saludos,
hector.

bueno, al grano:

- supongo que (com)probaste dos "errores" en la segunda propuesta (?)

- no es que "no funciona"... es que recorre todo el bucle
"SIN encontrar lo que busca" (no funciona "como esperabas" ?)
del codigo que comentas como que no funciona
podrias probar si cambias esta parte (especificamente):
>> > If Casilla.Name = cmdSalir Then
por algo +/- asi: If Casilla.Name = cmdSalir.Name Then

incluso, podrias reducir en el bucle la estructura If ... End If (con algo
+/- asi):
For Each Casilla In frmCierreAño.mrc2.Controls
Casilla.Visible = Casilla.Name = cmdSalir.Name
Next

- las opciones que muestra la tecnologia "intelisense" dependen:
- de las librerias a las que hace referencia el proyecto de macros
- y en el orden de sus "precedentes"
(primero las "basicas" de vba, y despues las del "pariente" de la
variable/control)

Responder a este mensaje

#8 Héctor Miguel

07/04/2010 - 07:21 | Informe spam

hola, Des !

Quieres decir que... va a dejar caer el servidor en el que se "asienta" Excel?
en el que se "asienta" Todos los grupos?
Los servidores gratuitos?
Seguirán habiendo news?
¿cuando hablas de otras tecnologías a que te refieres?, si puede saberse...

has notado una "leve" asincronia en los servidores ?
mensajes que no aparecen en todos los servidores ? (y a veces en ninguno)
personas (antes) frecuentes que ya no "consultan" ? (o consultan ya en otros
foros)
etc. etc. etc.

otros comentarios (de tipo personal) los reservo para mi "mensaje de salida"
:))
saludos,
hector.

Responder a este mensaje

#9 Palel

07/04/2010 - 19:00 | Informe spam

:-)
_________________________________________
Palel - [MVP Outlook]

IMPORTANTE: Nuevos foros Answers de Office (y sistemas Operativos)
http://answers.microsoft.com/es-es/default.aspx
_____________________________________________________________

"Héctor Miguel" escribió en el
mensaje de noticias:

hola, Des !

efectivamente, hay... "problemas" con los servidores de los grupos de ms
(varios hemos tenido que postear en varios servidores, que si no... ???)
(al parecer) estan viendo "sus ultimos dias" (los dejan "morir por
inanicion")
le apuestan a otras... "tecnologias" (pero no son claros en su
"invitacion")
como dicen por ahi... "o te aclimatas, o te aclimueres" (ca' quien, no ?)
:)))

saludos,
hector.

Responder a este mensaje

#10 Héctor Miguel

07/04/2010 - 20:50 | Informe spam

hola, Pilar !