Es verdad, como se llena se vuelve a poner eso mismo al final del codigo de Guardar, Modificar y Eliminar, pero creo que hay un problema con eso.
Bueno el bucle lo hago ya sea con Do While como con solo While siempre me ha funcionado igual.
Al guardar un registro, seleccionar el campoID del Combo, el cual da la consulta de los demas datos llenando los TextBox, luego al Eliminar ese registro, sigue apareciendo en el Combo.
Viendo este codigo (el primero) no realiza el bucle debido a que se indica que se mueva al primer registro para comenzar a hacer el bucle, el MoFirst da error si la BD está vacia, por lo que primero le puse un Rs.RecordCount >0 o un Rs.EOF que funciona igual, como es el primer registro guardado y eliminado de la BD, no hace el bucle ya que la sentencia IF no se cumple.
If Rs.RecordCount > 0 Then
Rs.MoveFirst
While Not Rs.EOF
Frorm1.CmbSeleccionar.AddItem Rs("TxtNombre")
Rs.MoveNext
Wend
End If
Y si le quito los IF y lo dejo sin eso es lo mismo, no da error de codigo pero no actualiza el control.
Lo de la sentencia IF es para el .MoveFirst ya que si la BD esta vacia el MoveFirst da error.
Aqui produce un error al quitar la validacion para evitarle error al MoveFirst, lo malo de esto as es que el Recordset se queda en el recorrido, es decir, si antes se busco el Registro numero 5, con este codigo iniciara desde ahi hasta el final, en cambio con el MoveFirst iniciaba desde el primer registro hasta finalizar los registros de la tabla por medio del ciclo.
Pero esto codigo asi da error, precisamente porque al entrar al While produce el error:
No hay ningun registro activo al menos el codigo anterior evitaba que se produjese esto.
While Not Rs.EOF
Form1.CmbSeleccionar.AddItem Rs("TxtNombre")
Rs.MoveNext
Wend
Sé que por ahi va la cosa, pero parece que bueno tendre que ponerme a ver como hacer para que funcione, si veo que da mucho problema, elimino el combo, ni modo.
El MSFlexGrid no tiene ninguna propiedad llamada
.Propiedad lo indicaste en negrita pero no sé si era teorico ya que practico este control no posee la propiedad por codigo, bueno al menos no asi con esa sintaxis. La unica explicacion que podria ser para una propiedad de conexión seria la propiedad del
MSFlexGrid.DataSource pienso yo uhmmm...
Bueno lo de la conexion del MSFlexGrid e indicarla nuevamente por codigo al final del codigo de Guardar, Modificar y Eliminar, si tendre que ponerme a ver como le hago ya que me ha dado algunos errores eso tambien.
Buen dato patitulofeo
a veces uno no se recuerda que lo que se muestra es aun el Recordset con lo tomado por él anteriormente y debo limpiarlo y cargarlo con los nuevos datos de la tabla de la Bd a la cual esta relacionada, es la clave de todo sip
Voy a probar y seguirle, y buscare un CD de backup de hace un tiempo en donde creo que tengo algo hecho con Combo y/o MSFlexGrid que hacen esto, ojala que si y que lo encuentre... bueno yo les cuento cualquier cosa, gracias muchachos
