Donde esta el error?

28/05/2010 - 02:05 por JoseMB | Informe spam

Buenos dias

Alguien podria decirme donde esta el error aqui?

Me dice que no se ha definido la sub o funcion

Private Sub Activar_Edicion_Peso_Click()

If Activar_Edicion_Peso.Value = -1 Then

For Num = 1 To 16

If Not IsNull(Peso_Calibre_(Num)) Then Peso_Calibre_(Num).Enabled = True
Peso_Calibre_(Num).Locked = False
Peso_Calibre_(Num).BackColor =
16777215
Else

If Not IsNull(Peso_Calibre_(Num)) Then Peso_Calibre_(Num).Enabled =
False
Peso_Calibre_(Num).Locked = True
Peso_Calibre_(Num).BackColor =
12632256

Next Num
End Sub

En realidad la variable Peso_Calibre_(num) corresponderia a:

Peso_Calibre_1
Peso_Calibre_2
Peso_Calibre_3

Peso_Calibre_16

¿Que me falta?

Gracias por vuestra ayuda.

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Ignacio

28/05/2010 - 09:32 | Informe spam

¡Hola, JoseMB!

Cada vez que el procedimiento evalua Peso_Calibre_(Num) lo interpreta
como Peso_Calibre_(1), Peso_Calibre_(2), etc...
Al no encontrar ninguna función con el nombre Peso_Calibre_ emite el
mensaje de error.
Debes sustituir cada referencia a Peso_Calibre_(Num) por
Controls("Peso_Calibre_" & Num). De esta manera lo evaluará como
Peso_Calibre_1, Peso_Calibre_2, etc...
Por ejemplo:
If Not IsNull(Peso_Calibre_(Num)) Then Peso_Calibre_(Num).Enabled True
quedaría así:
If Not IsNull(Controls("Peso_Calibre_" & Num)) Then
Controls("Peso_Calibre_" & Num).Enabled = True

Espero que te sirva de ayuda.
Un saludo,
Ignacio.

Responder a este mensaje

#2 JoseMB

28/05/2010 - 11:50 | Informe spam

MUCHISIMAS GRACIAS, funciono a la primera.

"Ignacio" wrote:

¡Hola, JoseMB!

Cada vez que el procedimiento evalua Peso_Calibre_(Num) lo interpreta
como Peso_Calibre_(1), Peso_Calibre_(2), etc...
Al no encontrar ninguna función con el nombre Peso_Calibre_ emite el
mensaje de error.
Debes sustituir cada referencia a Peso_Calibre_(Num) por
Controls("Peso_Calibre_" & Num). De esta manera lo evaluará como
Peso_Calibre_1, Peso_Calibre_2, etc...
Por ejemplo:
If Not IsNull(Peso_Calibre_(Num)) Then Peso_Calibre_(Num).Enabled > True
quedaría así:
If Not IsNull(Controls("Peso_Calibre_" & Num)) Then
Controls("Peso_Calibre_" & Num).Enabled = True

Espero que te sirva de ayuda.
Un saludo,
Ignacio.
.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida