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?