Combo Box - Add Item

23/09/2004 - 06:52 por Bart Max | Informe spam
Hola grupo, mis preguntas son:

1. Cree un formulario con varios combobox, la cosa es
que todos tiene los mismos items, he intentado crear
subrutinas para ingresar los campos sin repetir el
codigo, pero me aparecen errores de propiedades y
objetos, como puedo hacer esto sin repetir la entrada
nveces.

2. Hago una consulta por ODBC, que demora unos segundos
y dentro del mismo procedimiento sigo con otras tareas,
solo que estas tareas siguen aunque no se haya completado
el carge de los datos iniciales, como hago para que estas
operaciones se realicen solo despues de haber terminado
satisfactoriamente el carge de la información.

Gracia,

Bart Max
 

Leer las respuestas

#1 Héctor Miguel
23/09/2004 - 08:12 | Informe spam
hola, Bart !

1. ... formulario con varios combobox ... ingresar los campos sin repetir el codigo
... errores de propiedades y objetos ... hacer esto sin repetir la entrada nveces.



[creo que] seria 'bueno' si mencionas...
-> de donde viene [y que contiene] el origen para el ingreso de los campos a los combos
-> que es lo que esperas como listado final 'correcto'
-> como le 'estas diciendo' [actualmente en el codigo] que llene los combos

2. ... consulta por ODBC, que demora unos segundos y dentro del mismo procedimiento sigo con otras tareas
... estas tareas siguen aunque no se haya completado el carge de los datos iniciales
... que estas operaciones se realicen solo despues de haber terminado satisfactoriamente el carge [...]



[no se 'como' puedas detectar que 'el cargue' ha terminado 'satisfactoriamente'... pero]...
una [posible] 'solucion' seria 'meter una variable que monitoree' dicho 'fin satisfactorio'
->antes<- de iniciar la consulta y un 'bucle de stand-by' que impida la continuacion del codigo [p.e.]
Dim Finalizado As Boolean
[... otras lineas de tu codigo ...]
Finalizado = False
' aqui inicias la consulta odbc... '
' aqui el bucle de monitoreo '
Do While Not Finalizado
' aqui tu forma de 'verificar' la terminacion satisfactoria [p.e.] '
If Ya_Termino_La_Consulta Then Finalizado = True
DoEvents
Loop
' aqui continuan las acciones '

saludos,
hector.

Preguntas similares