Visual Basic - el subindices esta fuera del intervalo

Life is soft - evento anual de software empresarial
   
Vista:

el subindices esta fuera del intervalo

Publicado por mari3 (38 intervenciones) el 11/05/2009 19:48:46
Hola!, espero que me puedan ayudar!, tengo un problema con visual basic!, estoy creando una aplicacion con MySql y visual basic!! tengo mas de 100 label en un solo formulario de visual basic... los cuales funcionan muy bien! mi problema es que cuando voy a a abrir el programa me sale una ventana que me dice "el subindice esta fuera del intervalo", le doy a aceptar y el programa me funciona normal.. esta ventana me comenzo a aparecer hoy!, ahora no se si esto me pueda ocacionar un problema cuando termine de realizar la aplicación o no es nada malo! a mi parecer si lo es! por eso que necesito de su ayuda!, el error solo me aparece cuando voy a abrir el programa...
Es necesario recalcar que soy nueva con esto de la programacion.... si saben como solucionar mi problema por favor me explican con mucho detalle!! espero su pronta respuesta.........
y gracias de antemano :-)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:el subindices esta fuera del intervalo

Publicado por pacopaz (173 intervenciones) el 11/05/2009 20:49:37
Si tu estás haciendo el programa, significa que tu tienes el codigo fuente.
Si es esto correcto, mándalo a ejecutar desde vb y fíjate en que línea te aparece el error.
Este error se presente, sobretodo, cuando estás accediendo elementos en un arreglo y tratas de acceder a un índice en ese arreglo que no existe.

Saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:el subindices esta fuera del intervalo

Publicado por Rolando Lau (115 intervenciones) el 11/05/2009 21:12:32
asi como dice el amigo paco , envianos la linea exacta donde te sale el error .

Y si por lo general este error es cuando llamas o utilizas el indice de un control o variable que no corresponde o exede a la definicion de dicha variable o control.

Ejemplo:

dim Arr(10) as variant

arr(11) = "valor"

si ejecutas estas lineas te saldra el error : "el subindice esta fuera del intervalo"

o si un datagrid tiene 8 columnas y pones

a = datagrid1.columns(10)

tambien te saldra ese mismo error.

Saludos

Rolando
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:el subindices esta fuera del intervalo

Publicado por mari3 (38 intervenciones) el 12/05/2009 19:25:43
es que no me me da un error... simplemente cuando voy a abrir el programa me dice que el subindice esta fuera del intervalo!!! no se a lo mejor el problema esta en las propiedades del formulario, o tal vez estoy haciendo algo mal!! de todas formas aqui le va un pedazo de codigo para ver si saben cual es la solución!!! gracias por su colaboracion!!
Private Sub Command1_Click()

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
Text2.Text = valor.Text
 
If valor = "" Then
 MsgBox "Campo Vacío Ingrese Número para su Busqueda", vbOKOnly + vbInformation, "Numero de Pozo"
 valor.SetFocus
 
    Else
        If valor = "639" Then
        Label1.Visible = True
        Label8.Visible = True
        Label2.Visible = False
        Label19.Visible = False
        Label3.Visible = False
        Label20.Visible = False
        Label4.Visible = False
        Label18.Visible = False
        Label10.Visible = False
        Label12.Visible = False
        Label13.Visible = False
        Label11.Visible = False
        Label15.Visible = False
        Label14.Visible = False
        Label17.Visible = False
        Label16.Visible = False
        Label22.Visible = False
        Label21.Visible = False
        Label23.Visible = False
        Label24.Visible = False
        Label25.Visible = False
        Label26.Visible = False
        Label27.Visible = False
        Label28.Visible = False
        Label29.Visible = False
        Label30.Visible = False
        Label31.Visible = False
        Label32.Visible = False
        Label33.Visible = False
        Label34.Visible = False
        Label35.Visible = False
        Label36.Visible = False
        Label37.Visible = False
        Label38.Visible = False
        Label39.Visible = False
        Label40.Visible = False
        Label41.Visible = False
        Label42.Visible = False
        Label43.Visible = False
        Label44.Visible = False
        Label45.Visible = False
        Label46.Visible = False
        Label47.Visible = False
        Label48.Visible = False
        Label49.Visible = False
        Label50.Visible = False
        Label51.Visible = False
        Label52.Visible = False
        Label53.Visible = False
        Label54.Visible = False
        Label55.Visible = False
        Label56.Visible = False
        Label57.Visible = False
        Label58.Visible = False
        Label59.Visible = False
        Label60.Visible = False
        Label61.Visible = False
        Label62.Visible = False
        Label63.Visible = False
        Label64.Visible = False
        Label65.Visible = False
        Label66.Visible = False
        Label67.Visible = False
        Label68.Visible = False
        Label69.Visible = False
        Label70.Visible = False
        Label71.Visible = False
        Label72.Visible = False
        Label73.Visible = False
        Label74.Visible = False
        Label75.Visible = False
        Label76.Visible = False
        Label77.Visible = False
        Label78.Visible = False
         valor.Text = ""
         valor.SetFocus
 
 
    Else
        If valor = "441" Then
        Label2.Visible = True
        Label19.Visible = True
        Label1.Visible = False
        Label8.Visible = False
        Label3.Visible = False
        Label20.Visible = False
        Label4.Visible = False
        Label18.Visible = False
        Label10.Visible = False
        Label12.Visible = False
        Label13.Visible = False
        Label11.Visible = False
        Label15.Visible = False
        Label14.Visible = False
        Label17.Visible = False
        Label16.Visible = False
        Label22.Visible = False
        Label21.Visible = False
        Label23.Visible = False
        Label24.Visible = False
        Label25.Visible = False
        Label26.Visible = False
        Label27.Visible = False
        Label28.Visible = False
        Label29.Visible = False
        Label30.Visible = False
        Label31.Visible = False
        Label32.Visible = False
        Label33.Visible = False
        Label34.Visible = False
        Label35.Visible = False
        Label36.Visible = False
        Label37.Visible = False
        Label38.Visible = False
        Label39.Visible = False
        Label40.Visible = False
        Label41.Visible = False
        Label42.Visible = False
        Label43.Visible = False
        Label44.Visible = False
        Label45.Visible = False
        Label46.Visible = False
        Label47.Visible = False
        Label48.Visible = False
        Label49.Visible = False
        Label50.Visible = False
        Label51.Visible = False
        Label52.Visible = False
        Label53.Visible = False
        Label54.Visible = False
        Label55.Visible = False
        Label56.Visible = False
        Label57.Visible = False
        Label58.Visible = False
        Label59.Visible = False
        Label60.Visible = False
        Label61.Visible = False
        Label62.Visible = False
        Label63.Visible = False
        Label64.Visible = False
        Label65.Visible = False
        Label66.Visible = False
        Label67.Visible = False
        Label68.Visible = False
        Label69.Visible = False
        Label70.Visible = False
        Label71.Visible = False
        Label72.Visible = False
        Label73.Visible = False
        Label74.Visible = False
        Label75.Visible = False
        Label76.Visible = False
        Label77.Visible = False
        Label78.Visible = False
        valor.Text = ""
        valor.SetFocus
 
    Else
        If valor = "436" Then
        Label3.Visible = True
        Label20.Visible = True
        Label4.Visible = False
        Label18.Visible = False
        Label1.Visible = False
        Label1.Visible = False
        Label2.Visible = False
        Label19.Visible = False
        Label10.Visible = False
        Label12.Visible = False
        Label13.Visible = False
        Label11.Visible = False
        Label15.Visible = False
        Label14.Visible = False
        Label17.Visible = False
        Label16.Visible = False
        Label22.Visible = False
        Label21.Visible = False
        Label23.Visible = False
        Label24.Visible = False
        Label25.Visible = False
        Label26.Visible = False
        Label27.Visible = False
        Label28.Visible = False
        Label29.Visible = False
        Label30.Visible = False
        Label31.Visible = False
        Label32.Visible = False
        Label33.Visible = False
        Label34.Visible = False
        Label35.Visible = False
        Label36.Visible = False
        Label37.Visible = False
        Label38.Visible = False
        Label39.Visible = False
        Label40.Visible = False
        Label41.Visible = False
        Label42.Visible = False
        Label43.Visible = False
        Label44.Visible = False
        Label45.Visible = False
        Label46.Visible = False
        Label47.Visible = False
        Label48.Visible = False
        Label49.Visible = False
        Label50.Visible = False
        Label51.Visible = False
        Label52.Visible = False
        Label53.Visible = False
        Label54.Visible = False
        Label55.Visible = False
        Label56.Visible = False
        Label57.Visible = False
        Label58.Visible = False
        Label59.Visible = False
        Label60.Visible = False
        Label61.Visible = False
        Label62.Visible = False
        Label63.Visible = False
        Label64.Visible = False
        Label65.Visible = False
        Label66.Visible = False
        Label67.Visible = False
        Label68.Visible = False
        Label69.Visible = False
        Label70.Visible = False
        Label71.Visible = False
        Label72.Visible = False
        Label73.Visible = False
        Label74.Visible = False
        Label75.Visible = False
        Label76.Visible = False
        Label77.Visible = False
        Label78.Visible = False
        valor.Text = ""
        valor.SetFocus
 
    Else
        If valor = "495" Then
        Label4.Visible = True
        Label18.Visible = True
        Label10.Visible = False
        Label12.Visible = False
        Label1.Visible = False
        Label1.Visible = False
        Label2.Visible = False
        Label19.Visible = False
        Label3.Visible = False
        Label20.Visible = False
        Label13.Visible = False
        Label11.Visible = False.....................
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:el subindices esta fuera del intervalo

Publicado por Efrain (1 intervención) el 14/08/2013 18:04:35
Este es el error en mi caso favor revisarmelo por favor:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim celda As Variant
Dim Origen, Destino As String
Dim i As Integer
fila = ActiveCell.Row
celda = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z", "AA", "AB", "AC", "AD", "AE", "AF", "AG", "AH", "AI", "AJ", "AK", "AL", "AM", "AN", "AO", "AP", "AQ", "AR", "AS", "AT", "AU", "AV", "AW", "AX", "AY", "AZ", "BA", "BB", "BI", "BK")
For i = 0 To 63
Origen = celda(i) & fila
Destino = celda(i) & 1
Range(Destino).Value = Range(Origen).Value
Next i
Range("A2").Select
    ActiveCell.FormulaR1C1 = "=COUNTA(R[-1]C:R[-1]C[32])"
Dim a As Integer
a = Range("A2").Value
Range("A2").Value = "Unidad"
If a > 14 Then
UserForm1.Show
End If
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:el subindices esta fuera del intervalo

Publicado por mari3 (38 intervenciones) el 12/05/2009 19:36:59
a lo mejor no me explique bien!! el programa al correrlo NO me da un error,,,.. mi problema es que al abrirlo para seguir programando me sale el subindices esta fuera del intervalo... pero le doy a aceptar y el programa esta como si nada.. lo corro y no existe ningun problema... el problema es cuando cargo la aplicacion desde visual basic! es decir cuando lo abro para seguir con el diseño o algo asi.., ese es el error que me erroja...
GRACIAS
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:el subindices esta fuera del intervalo

Publicado por P3L30N2009 (701 intervenciones) el 13/05/2009 10:58:53
La verdad es que no sé si te explicas bien o es que nosotros no lo entendemos:

dices:
"el programa al correrlo NO me da un error,,,.. "
y después:
".., ese es el error que me erroja... "

Cuando te sale el mensaje del subindice, ¿sólo te dá la opción de aceptar?

¿Tienes en el código algún control de errorres? Si es así elimínalo para que te indique la línea del error.

El "pedazo de ´codigo" que pusiste antes no nos dice nada, pues según tú el problema es al abrirlo y no al hacer Click en un botón. Deberías poner el código del evento que abre el Form.

y efectivamente, es un "pedazo" de código.
Sólo como crítica constructiva: No se cómo a alguien se le puede ocurrir meter mas de 100 etiquetas en un formulario sin que sea a través de un array de controles.

con un array de controles, ese código se reduciría a no mas de cinco o seis líneas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:el subindices esta fuera del intervalo

Publicado por mari3 (38 intervenciones) el 13/05/2009 14:09:02
Hola...
Tienes razon... a lo me mejor es que no me explico bien!, recordandole que soy nueva con esto de la programación, no conozco muchas cosas referente a ello y estoy aprendiendo, es por esto que no se me ocurrio utilizar un array de controles (creo que a cualquiera en mi condición le puede pasar)... :-).
Cuando hablo de que no me da error es por que el programa me funciona perferctamente... pero al abrir la aplicación me arroja esa ventana!
YA ME DI CUENTA QUE ES AL ABRIR CUALQUIER APLICACIÓN DE VISUAL BASIC!, es decir el problema no está en el programa que estoy realizando sino en el visual como tal!!!!
Disculpen la molestia y

MUCHAS GRACIAS POR SU COLABORACIÓN!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:el subindices esta fuera del intervalo

Publicado por EMILIO (83 intervenciones) el 13/05/2009 23:18:58
Hola Mari:

Si como dices el problema es del programa, pues yo te sugeriria que los desistales y vuelas a instalar y si eso no funciona pues tu version de visual puede tener algun problema.

Con relacion a tu formulario y tus 60 y piso de controles, yo te aconsejaria para la proxima usar otros controles que como el datagrid el flexgrid el listbox etc, que pueden manejar informacion "multiple" y no te enredas con tantos elementos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:el subindices esta fuera del intervalo

Publicado por Mari3 (38 intervenciones) el 14/05/2009 16:10:29
Hola Emilio, gracias.. pero necesito tener cada uno de las etiquetas por separado! por que ellas estan haciendo la funcion de pozos en un mapa! y cuando yo llame al pozo este tiene que volverse visible.. es por esto que no puedo utilizar un listbox o algo parecido!
ahh y tienes razon creo que voy a tener que desinstalar el visual basic!
Gracias por tu ayuda!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar