Lo que quiero , el usuario ingresa sus datos, los datos son guardados en un archivo de texto, hasta ahi va todo perfecto.
El problema viene cuando quiero leer esos datos y completar los campos con ellos. Miren el codigo q uso:
Private Sub Form_Load()
If Dir("data.dat") <> "" Then
'verifico q exista el archivo , si existe seguimos
Dim fn, N1, P1, N2, P2, N3, P3, N4, P4, N5, P5, N6, P6, N7, P7, N8,
P8, N9, P9, N0, P0
' declaro las variables
fn = FreeFile
'comenzamos a leer el archivo
Open "data.dat" For Input As #fn
Line Input #fn, N1
Line Input #fn, P1
Line Input #fn, N2
Line Input #fn, P2
Line Input #fn, N3
Line Input #fn, P3
Line Input #fn, N4
Line Input #fn, P4
Line Input #fn, N5
Line Input #fn, P5
Line Input #fn, N6
Line Input #fn, P6
Line Input #fn, N7
Line Input #fn, P7
Line Input #fn, N8
Line Input #fn, P8
Line Input #fn, N9
Line Input #fn, P9
Line Input #fn, N0
Line Input #fn, P0
Close #fn
'cierro el archivo
' y aca viene el problema de aqui para abajo , no me deja llenar los campos con esos datos
N1.Text = N1
P1.Text = P1
N2.Text = N2
P2.Text = P2
N3.Text = N3
P3.Text = P3
N4.Text = N4
P4.Text = P4
N5.Text = N5
P5.Text = P5
N6.Text = N6
P6.Text = P6
N7.Text = N7
P7.Text = P7
N8.Text = N8
P8.Text = P8
N9.Text = N9
P9.Text = P9
N0.Text = N0
P0.Text = P0
End If
End Sub
Con este codigo llego a leer todas las lineas perfectamente , pero el error comienza despues del Close #fn.
Me parece q es por rellenar un campo con el mismo nombre q la variable puede ser??
