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.
 

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.

Preguntas similares