Visual Basic - el subindices esta fuera del intervalo

Life is soft - evento anual de software empresarial

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 clara

No me gusta: Está pregunta no esta clara o no es útil

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 clara

No me gusta: Está respuesta no esta clara o no es útil

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

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()

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

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:

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

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

Comentar

RE:el subindices esta fuera del intervalo

Publicado por P3L30N2009 (699 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

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

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

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

Comentar

No funciona Adodc en Red

Recorrer la pantalla píxel por píxel