Que raro ahora guarda bien ; pero el error me salta ahora en la busqueda para saber si ( EL ALUMNO YA EXISTE )
Esta es mi busqueda:
Código:
Private Sub Form_busca() 'Busqueda
Dim c As Integer, b As Byte, x As Integer
c = 1
While b = 0 And Not EOF(1)
Get #1, c, regins
If regins.Nro_ins = c Then
If regins.doc = Val(txtdni) Then
b = 1
c = regesta
x = MsgBox("Nro De Inscripción Existente", vbCritical, "Error D.N.I.")
txtdni.SetFocus
Else
c = c + 1
End If
End If
Wend
End Sub
El error( nombre o número de archivo incorrecto) me sale en esta linea --> While b = 0 And Not EOF(1)