Foros del Web » Programación para mayores de 30 ;) » Programación General » Visual Basic clásico »

error 3265 falta elemento en coleccion

Estas en el tema de error 3265 falta elemento en coleccion en el foro de Visual Basic clásico en Foros del Web. hola a tod@s vereis tengo una aplicacion q para hacer un parte de trabajo necesito hacer consultas en tres tablas diferentes de una bd, lo ...
  #1 (permalink)  
Antiguo 19/08/2008, 10:12
 
Fecha de Ingreso: agosto-2008
Mensajes: 3
Antigüedad: 15 años, 8 meses
Puntos: 0
error 3265 falta elemento en coleccion

hola a tod@s vereis tengo una aplicacion q para hacer un parte de trabajo necesito hacer consultas en tres tablas diferentes de una bd, lo hago con busqueda avanzada de tres niveles, 1 combo1 para seleccionar la tabla dnd deseas consultar, 2 en funcion de la tabla q elijas el combo2 se llenara con unos campos u otros, y 3 textbox para la palabra clave, estas busquedas las hago sin control data y en funcion de la tabla pues asigno los textbox del formulario a los campos de la tabla mediante is notisnull(),q hago la llamada al procedimiento correspondiente por ejemplo, Camposclientes,o campospartes dependiendo de la tabla, hasta ahi todo funciona correctamente, el problema es q despues de hacer una consulta por ejemplo a clientes, se llenan de datos todos los textbox correspondientes, pasamos directamente a consultar en otra tabla y al llenar los datos es cuando me aparece este error, he probado a borrar las cajas con
Private Sub NoAsignarCampos()
For nX = 0 To frmpartes.Controls.Count - 1
If TypeOf frmpartes.Controls(nX) Is TextBox Then
frmpartes.Controls(nX).Text = ""
End If
Next
End Sub
pero me sigue dando el mismo error, esto ocurre en la signacion de los campos con los textbox, q por alguna razon q no veo, al asignarlos por segunda vez se suman a los q ya hay, se os ocurre algo q yo no vea? he intentado explicarme lo mejor posible, si hay alguna duda por favor comuniquenlo y agradecer de antemano la atencion y como no decir q mis pocos conocimientos esta a disposicion de este foro chau
  #2 (permalink)  
Antiguo 19/08/2008, 13:46
Avatar de GeoAvila
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Antigua Guatemala
Mensajes: 4.032
Antigüedad: 20 años, 4 meses
Puntos: 53
Respuesta: error 3265 falta elemento en coleccion

Cita:
Iniciado por chumi23 Ver Mensaje
hola a tod@s vereis tengo una aplicacion q para hacer un parte de trabajo necesito hacer consultas en tres tablas diferentes de una bd, lo hago con busqueda avanzada de tres niveles, 1 combo1 para seleccionar la tabla dnd deseas consultar, 2 en funcion de la tabla q elijas el combo2 se llenara con unos campos u otros, y 3 textbox para la palabra clave, estas busquedas las hago sin control data y en funcion de la tabla pues asigno los textbox del formulario a los campos de la tabla mediante is notisnull(),q hago la llamada al procedimiento correspondiente por ejemplo, Camposclientes,o campospartes dependiendo de la tabla, hasta ahi todo funciona correctamente, el problema es q despues de hacer una consulta por ejemplo a clientes, se llenan de datos todos los textbox correspondientes, pasamos directamente a consultar en otra tabla y al llenar los datos es cuando me aparece este error, he probado a borrar las cajas con
Private Sub NoAsignarCampos()
For nX = 0 To frmpartes.Controls.Count - 1
If TypeOf frmpartes.Controls(nX) Is TextBox Then
frmpartes.Controls(nX).Text = ""
End If
Next
End Sub
pero me sigue dando el mismo error, esto ocurre en la signacion de los campos con los textbox, q por alguna razon q no veo, al asignarlos por segunda vez se suman a los q ya hay, se os ocurre algo q yo no vea? he intentado explicarme lo mejor posible, si hay alguna duda por favor comuniquenlo y agradecer de antemano la atencion y como no decir q mis pocos conocimientos esta a disposicion de este foro chau
bueno me imagino que la asignación de datos del data control te genera el error puesto que yo lo he ejecutado

Código:
Private Sub NoAsignarCampos()
For nX = 0 To frmpartes.Controls.Count - 1
If TypeOf frmpartes.Controls(nX) Is TextBox Then
frmpartes.Controls(nX).Text = ""
End If
Next
End Sub
y no me da ningún error..

saludos..
__________________
* Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ
Sitio http://www.geoavila.com twitter: @GeoAvila
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 11:37.