Hola
Disculpe la molestia ... pero kisiera hacerles una consulta... actualmente estoy diseñando un Sistema y bueno tengo un form de departamento y alli tengo las funciones principales como los botones de primero, anterior. siguiente y ultimo ... asi como nuevo,modificar,eliminar,consultar pero resulta que en los botones de navegacion (primero, anterior. siguiente y ultimo) tienen algo en comun que es mostrar los datos desde la bd entonces alli siempre se repite este codigo:
Private Sub btnPrimero_Click()
Record.MoveFirst
TextCodigo.Text = CStr(Record.Fields("id_departamento").Value)
TextNombre.Text = CStr(Record.Fields("nom_departamento").Value)
TextDireccion.Text = CStr(Record.Fields("dir_departamento").Value)
TextDescripcion.Text = CStr(Record.Fields("descr_departamento").Value)
TextDireccionGral.Text = CStr(Record.Fields("nom_departamento").Value)
End Sub
Private Sub btnAnterior_Click()
If Record.AbsolutePosition <> 1 Then
Record.MovePrevious
TextCodigo.Text = CStr(Record.Fields("id_departamento").Value)
TextNombre.Text = CStr(Record.Fields("nom_departamento").Value)
TextDireccion.Text = CStr(Record.Fields("dir_departamento").Value)
TextDescripcion.Text = CStr(Record.Fields("descr_departamento").Value)
TextDireccionGral.Text = CStr(Record.Fields("nom_departamento").Value)
End If
End Sub
Private Sub btnSiguiente_Click()
If Record.RecordCount <> Record.AbsolutePosition Then
Record.MoveNext
TextCodigo.Text = CStr(Record.Fields("id_departamento").Value)
TextNombre.Text = CStr(Record.Fields("nom_departamento").Value)
TextDireccion.Text = CStr(Record.Fields("dir_departamento").Value)
TextDescripcion.Text = CStr(Record.Fields("descr_departamento").Value)
TextDireccionGral.Text = CStr(Record.Fields("nom_departamento").Value)
' End If
End Sub
Private Sub btnUltimo_Click()
Record.MoveLast
TextCodigo.Text = CStr(Record.Fields("id_departamento").Value)
TextNombre.Text = CStr(Record.Fields("nom_departamento").Value)
TextDireccion.Text = CStr(Record.Fields("dir_departamento").Value)
TextDescripcion.Text = CStr(Record.Fields("descr_departamento").Value)
TextDireccionGral.Text = CStr(Record.Fields("nom_departamento").Value)
End Sub
entonces yo kisiera hacer un modulo que me permita refrescar los datos que voy a mostrar... asi que probe con este modulo:
Modulo Cargar()
Sub CargarDatos(Txt1 As Object, Txt2 As Object, Txt3 As Object, Txt4 As Object, Txt5 As Object)
TextCodigo = Text1.Text(CStr(Record.Fields("id_departamento").V alue))
TextNombre = Text2.Text(CStr(Record.Fields("nom_departamento"). Value))
TextDireccion = Text3.Text(CStr(Record.Fields("dir_departamento"). Value))
TextDescripcion = Text4.Text(CStr(Record.Fields("descr_departamento" ).Value))
TextDireccionGral = Text5.Text(CStr(Record.Fields("nom_departamento"). Value))
End Sub
y cuando llamo al modulo en el form de departamento lo hago de la siguiente manera:
Private Sub btnSiguiente_Click()
If Record.RecordCount <> Record.AbsolutePosition Then
Record.MoveNext
Cargar.CargarDatos TextCodigo, TextNombre, TextDireccion, TextDescripcion, TextDireccionGral
End If
End Sub
los TextCodigo, TextNombre,TextDireccion,TextDescripcion y TextDireccionGral son las cajas de texto que tengo en mi form de departamento. el Record lo declaro en el form de departamento pero aun asi no consigo que funcione... solo kisiera saber si es la manera correcta de hacer el modulo... o si estoy haciendo la asignacion incorrecta... me sale este error Error 424 Se rekiere un objeto....
De antemano muchas gracias... y espero que me puedan ayudar
Gracias
