hola nuevamente chicos

traigo un trabajo entre manos y quiero un poco de ayuda o sugerencia

 Dim ADCX As Result
 Dim ADCXX As String
 Dim asd As String
 Dim resul As Result
 
  Conectarme.moduloconexion
 
  ADCX = Conectarme.$conexion.Exec("select * from Marca")
  
  asd = ADCX["CodMarc"]
  
 If TextBox1.Text = "" Then
      
    Message("Introduzca el Codigo de  Registro")
 
 Else
    
If asd = TextBox1.Text Then
    
resul = Conectarme.$conexion.Exec("Select * from Marca")

  If TextBox1.Text = resul["CodMarc"] Then
    
   resul.MoveNext

  TextBox1.Text = resul["CodMarc"]
 
 TextBox2.Text = resul["Marca"]
  
Message("Ultimo Registro")
    
     Catch
  
   Message("Unico registro")
    
      Conectarme.$conexion.Close
    
Endif
Endif
 Endif

la idea con ese codigo es programar un boton (SIGUIENTE). que al dar clic me mostrar el registro siguiente. tomando como inicio el codigo que introduzcamos en la caja de texto numero uno.

hasta el momento me lo hace bien. me muestra el siguiente registro pero cuando doy clic otra vez en el boton lo muestra el registro siguiente no responde el boton.

creo que debo usar un for?

No es algo que debas solucionar en un sólo procedimiento. Tienes que usar el evento click del botón.
Primero debes declarar el result como private, para que sea visible en todo el procedimiento.
En el evento Form_open alimentas el result
En el vento button click pasas al siguiente y lo muestras



Más o menos. Adàptalo, pero esa es la idea.
Por otra parte te aconsejo seriamente que indentes tu código, empezando más a la derecha en cada if y en cada bucle y en cada procedimiento. Si sigues haciendo código espaguetti, te vas a encontrar un montón de problemas.
Saludos.

amigo shordi gracias por contestar nuevamente pero analice ese codigo y veo que no da con la funcionalidad ya que a la hora de cargar el formulario toma como parametro un numero introducido en la caja de texto pero como en la caja de texto esta en blanco entonces no funciona. tendria que pasar el codigo a un boton y ejecutarlo luego introducir el numero de control de la marca que este caso seria uno y luego precionar  el boton que ejecutaria este codigo

Conectarme.moduloconexion

 ADCX = Conectarme.$conexion.Exec("select * from Marca where CodMarc=&1", TextBox1.text)

    If Not ADCX.Available Then   'previenes que falle la consulta
         message("No se encuentra")
         button7.Enabled = False  'para que no puedan pulsar siguiente
    Else
         button1.enabled = True
         TextBox2.text = ADCX!Marca
    Endif

ya que reconoce el valor de la caja de texto entonces  hace una consulta a la tabla marca y seria esto como una consulta dandome solo la marca de ese codigo y no el evento click no da resultado no se mueve al sigueinte registro para mostrar.


la logica del boton es que al escribir el codigo de marca en la caja de texto. luego el usuario de click al boton siguiente y tome como inicio el codigo introducido en la caja de texto para mostrar registro por registro cada vez que se le de click ( a la hora de dar click tiene que mostrar el codigo y la marca del siguiente registro (primer registro 1 marca live al dar click al boton siguiente el codigo seria 2 marca hollister  estos valores se tienen que representar en las cajas de texto)) por otro punto de vista trate de reutilizar el codigo que me distes pero no veo como hacer que funcione segun lo que expreso gracias por leer y tener paciencia

Cambia la línea del exec a uno de los eventos del textobox1, pues, o implementa otro botón, para la búsqueda. Soluciones tienes muchas.

Suerte,

shordi escribió: [Ver mensaje]

Cambia la línea del exec a uno de los eventos del textobox1, pues, o implementa otro botón, para la búsqueda. Soluciones tienes muchas.

Suerte,

shordi da lo mismo auque el codigo de form que me distes lo pase al evento changer de la caja de texto el resultado seria el mismo siempre mostrara solo la marca del codigo que introduzcamos y el boton siguiente sera inutil en pocas palabras funcionara como una busqueda por codigo. y no un recorrido a la tabla para mostrar. pero bueno seguire leyendo para dar con este resultado

soldadozero

Estos temas ya estan planteados dentro del foro yo nose porque preguntan tanto si el foro tiene opciones para buscar temas referidos, por eso es que nadie contesta a muchos mensajes.

MIra este ejemplo de consulta por textbox:

 


Lo de ver registro siguiente e sporque no usas el comande movenetx, movefirst o movelast

HACES LA CONSULTA VERDAD:



PARA LOS BOTONES SIGUIENTE, EN CADA BOTON COLOCAR:

BONTON SIGUIENTE:



BOTON ATRAS:



BOTON ULTIMO:


TIENES QUE USAR VARIABLES GLOBALES COMO LA "HRESUL" NO EN "DIM" EN CASO DE QUE QUIERAS MODIFICAR O ELIMINAR LOS REGISTROS QUE CONSULTES PORQUE SINO TE VA A REEMPLAZAR LO QUE ESTE EN TU PRIMER CAMPO DE LA TABLA Y NO A LA QUE QUERIAS MODIFICAR.

hermano te comprendo se que es redundancia de preguntas. pero creo que se debe a los titulos de las publicaciones revise y una cosa te lleva a otra que no tienen nada que ver con lo que busca. el problema esta en nombrar el titulo de las publicaciones de los que preguntan y resuelven pero Disculpa de ante mano.

y por otro punto de vista tu aporte es genial pero tengo una duda
donde haces uso de esta variable juninresul?  

si haces que mueva al primer registro
juninresul.MoveFirst

pero esa no la has usado o has conectado a ninguna tabla? creo que hace falta algo de codigo verdad? o me equivoco?

y gracias por ayudar amigo

Citar:

y por otro punto de vista tu aporte es genial pero tengo una duda
donde haces uso de esta variable juninresul?  

si haces que mueva al primer registro
juninresul.MoveFirst

pero esa no la has usado o has conectado a ninguna tabla? creo que hace falta algo de codigo verdad? o me equivoco?

soldadozero

Es Hresul también lo que sucedió fue que pase por alto esa parte ya que esas son mis variables y te estaba colocando un ejemplo cambiándolos a Hresul para ti ok.

jousseph escribió: [Ver mensaje]

Citar:

y por otro punto de vista tu aporte es genial pero tengo una duda
donde haces uso de esta variable juninresul?  

si haces que mueva al primer registro
juninresul.MoveFirst

pero esa no la has usado o has conectado a ninguna tabla? creo que hace falta algo de codigo verdad? o me equivoco?

soldadozero

Es Hresul también lo que sucedió fue que pase por alto esa parte ya que esas son mis variables y te estaba colocando un ejemplo cambiándolos a Hresul para ti ok.

lo tenia en mente pero no estaba seguro bueno gracias buscare como usar bien tu codigo. en cuanto trate de terminar subo mi aplicacion en descargas de esta web

saludo y cuidate

trate de usar el codigo. a como pude.

Public Sub Button7_Click()

If Hresul = Null

 Message.Info("NO PUEDE VER MAS REGISTROS PORQUE NO HAY")

Else

 Hresul.MoveNext()

 TextBox1.Text = Hresul["CodMarc"]
  
 TextBox2.Text = Hresul["Marca"]

Endif
Catch
 
 Message("Ultimo Registro")

End

de esa forma me funciona bien, pero no es nada correcto  

de esta otra forma no funciona me da un error en trasportar

Public Sub Button7_Click()

If Hresul = Null

 Message.Info("NO PUEDE VER MAS REGISTROS PORQUE NO HAY")

Else
    
 Hresul.MoveNext()

If Not Hresul.Available Then Hresul.MoveLast()

Marca.Transporte(Hresul)

Endif

End

me indica que reportar no se encuntra en la clase Marca

creo que no es una palabra o variable reservada de gambas? ese es el error