Necesito una funcion que pasandole una matriz de controles....

Paranoid
27 de Noviembre del 2003
Necesito una funcion que pasandole una matriz de controles, de 4 botones para el movimiento por el recordset, del tipo >>,>,<,<<. Active y desactive los botones si esta al principio o el final del recordset. Llevo muchos dias intentandolo, pero no lo consigo. Ayuda xfavor.

badtz_nao
27 de Noviembre del 2003
me parecio buena tu idea, aquí esta mi posible solución

'al cargar el formulario comienza con el primer
'registro, así que el boton de anterior esta
'deshabilitado

Private Sub Form_Load()
Command1(1).Enabled = False
MvAntBt(0).Enabled = False
End Sub

Private Sub Command1_Click(Index As Integer)

'boton mover al primer registro
If Command1(0) Then
Command1(1).Enabled = False
End If

'boton mover al registro anterior
If Command1(1) Then

If Not Adodc1.Recordset.BOF Then
Adodc1.Recordset.MovePrevious
Else
Command1(1).Enabled = False
Command1(2).Enabled = True
End If
End If

'boton mover al siguiente registro

If Command1(2) Then

If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveNext
Else
Command1(2).Enabled = False
Command1(1).Enabled = True
End If

End If

'boton mover al ultimo registro

If Command1(3) Then

Adodc1.Recordset.MoveLast
Command1(2).Enabled = False
Command1(1).Enabled = True

End If


End Sub


Paranoid
27 de Noviembre del 2003
La cosa es que quiero hacer una funcion que se le pueda aplicar a cualquier grupo de botones.... de cualquier bbdd.

Y el problema que tengo mayoritariamente, es que tengo una matriz de controles con los 4 botones, y no se como pasarsela a la funcion. Y que despues pueda actuar sobre cada uno de ellos....

badtz_nao
27 de Noviembre del 2003
No entiedo, que es bbdd??

El ejemplo que te mande es de una matriz de controles en un Command1.
Para que cada boton actue diferente, tienes que especificar el indice del boton. (propiedad "Index")

Has un formulario para prueba
para que veas como funciona el código que te mande.
Agregale un command en una matriz de controles, un adodc (conectado a tu base), un text (para visuliazar el desplazamiento por la BD) conectedo a un adodc. No les cambies el nombre.
Pega el código que te mande.

Has la prueba y me dices si es lo que quiere hacer o no.
y por fas explicame: ¿ que es bbdd??

badtz_nao
27 de Noviembre del 2003
al copiar se me fue una linea de cógigo que no va, borrala antes de probalo, ok?

es la siguiente:
MvAntBt(0).Enabled = False

rocio
27 de Noviembre del 2003
no es mas sencillo que utilices un control adodc?

tienes que agregar el componente microsoft ADO data control 6.0

badtz_nao
27 de Noviembre del 2003
Si, definitivamente es más sencillo, pero si agregas botones de navegación le da más presentación a tu trabajo.

Además si te das cuenta en el código si utilizo un adodc, pero en lo personal prefiero mantenerlo oculto para evitar inconsitencia en los datos.

Todo esto se resume en una buena presentación de tu sistema

¡Hechale más imaginación! ;)

badtz_nao
27 de Noviembre del 2003
No entiedo, que es bbdd??

El ejemplo que te mande es de una matriz de controles en un Command1.
Para que cada boton actue diferente, tienes que especificar el indice del boton. (propiedad "Index")

Has un formulario para prueba
para que veas como funciona el código que te mande.
Agregale un command en una matriz de controles, un adodc (conectado a tu base), un text (para visuliazar el desplazamiento por la BD) conectedo a un adodc. No les cambies el nombre.
Pega el código que te mande.

Has la prueba y me dices si es lo que quiere hacer o no.
y por fas explicame: ¿ que es bbdd??