Cita:
Iniciado por pkj 
Imagino que el fichero 1 no está abierto o ha sido cerrado antes de llegar ahí la ejecución.
Tengo un boton de GUARDAR Configurado de la siguiente manera:
Código:
Private Sub CmdGuardar_Click()
regins.doc = Val(txtdni)
regins.Año = Val(txtaño)
regins.Tipo = CBOEstado.Text
regins.Ape = Val(txtape)
regins.Nom = txtnom.Text
regins.Estci = CBOEstado.Text
regins.FNac = Val(txtfecnac)
regins.LNac = Val(txtlnac)
regins.Dom = Val(txtdom)
regins.Tel = Val(txttel)
regins.Tit = Val(txttit)
regins.Establ = Val(txtest)
regins.Hora = Val(txthora)
regadeu.Mat1 = Val(txtmat1)
regadeu.Mat2 = Val(txtmat2)
regadeu.Mat3 = Val(txtmat3)
regadeu.Mat4 = Val(txtmat4)
CmdNuevo.SetFocus
tot = FileLen("INSCRIP") / Len(regins)
Dim b As Byte, p As Integer
If b = 0 Then
p = tot
Else
p = regesta
End If
regins.Nro_ins = tot + 1
txtni.Text = regins.Nro_ins
Put #1, tot + 1, regins
txtni.Visible = True
Put #2, tot + 1, regadeu
Close #1
Close #2
End Sub
Donde puse el Close #1 , y Close #2 , esta bien cerrarlo ahi?
Dejo mi trabajo asi me lo chekean porfa estoy desesperado , y no quiero desaprobar lenguaje 1
rapidshare.com/files/305658613/INSCRIPCION_DE_ALUMNOS.rar.html