Hola soy jilo
tengo un problema a la hora de guardar los datos lo hace bien, pero cuando le doy el boton anterior se salta un registro, no se que hago mal.
leer los datos lo hace bien y los botones anterior y siguiente lo hace bien
si me pueden ayudar
gracias
Código:Private Type TRegistros Tema As String Materia As String NumDia As String Dia As String Mes As String End Type Dim archivo As String Private Registros() As TRegistros Dim posicion, Total As Integer Private Sub Command1_Click() ' Guardar datos archivo = App.Path & "\datos.txt" Open archivo For Append As #1 ReDim Preserve Registros(Total) With Registros(Total) .Tema = Text1.Text .Materia = Text2.Text .NumDia = Text3.Text .Dia = Text4.Text .Mes = Text5.Text Write #1, .Tema Write #1, .Materia Write #1, .NumDia Write #1, .Dia Write #1, .Mes End With Close #1 End Sub Private Sub leer() 'leer archivo = App.Path & "\datos.txt" Open archivo For Input As #1 While Not EOF(1) ReDim Preserve Registros(Total) With Registros(Total) Input #1, .Tema Input #1, .Materia Input #1, .NumDia Input #1, .Dia Input #1, .Mes End With Total = Total + 1 Wend Close #1 End Sub Private Sub Command3_Click() ' siguiente registro If posicion < UBound(Registros) Then posicion = posicion + 1 VerRegistro posicion End If End Sub Private Sub Command4_Click() ' Anterior registro If posicion > 0 Then posicion = posicion - 1 VerRegistro posicion End If End Sub Private Sub Command6_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text1.SetFocus End Sub Private Sub Form_Load() On Error Resume Next leer VerRegistro 0 End Sub Private Sub VerRegistro(ByVal posicion As Integer) With Registros(posicion) Text1.Text = .Tema Text2.Text = .Materia Text3.Text = .NumDia Text4.Text = .Dia Text5.Text = .Mes End With End Sub Private Sub Command5_Click() End End Sub