Ayuda tengo que rendir y no me anda mi programa =(

gohanjaja · #1 (**permalink**) 11/11/2009, 09:26

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)

David · #2 (**permalink**) 11/11/2009, 09:29

¿Cuál es la línea que te marca error? ¿De dónde sale el valor de la variable "regesta"?

gohanjaja · #3 (**permalink**) 11/11/2009, 10:01

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)

Gracias david por la buena onda y por ayudarme...pero ahora el error me salta ahi :(

gohanjaja · #4 (**permalink**) 11/11/2009, 14:53

nadie?? =(

pkj · #5 (**permalink**) 11/11/2009, 15:01

Imagino que el fichero 1 no está abierto o ha sido cerrado antes de llegar ahí la ejecución.

gohanjaja · #6 (**permalink**) 11/11/2009, 15:07

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

pkj · #7 (**permalink**) 11/11/2009, 15:12

Después de guardar un registro en los ficheros los cierra, de modo que para la siguiente operación no puedes acceder a ellos si no los abres de nuevo.

gohanjaja · #8 (**permalink**) 11/11/2009, 15:38

Cita:

Iniciado por pkj

Después de guardar un registro en los ficheros los cierra, de modo que para la siguiente operación no puedes acceder a ellos si no los abres de nuevo.

Si era eso no debia cerrarlo, ahora anda bien , pero , cuando ingreso un documento que ya esta en el registro debería informarme que ya existe y mostrarme los datos del alumno tanto como " Nombre , Apellido , etc " Esta bien colocarlo de esta forma a un Sub llamado "Muestra"

Código:

Private Sub mostrar()

Get #1, c, regins

txtape.Text = regins.Ape
txtaño.Text = regins.Año
txtin.Text = regins.Nro_ins
txtnom.Text = regins.Nom
CBOEstado.Text = regins.Estci
txtfecnac.Text = regins.FNac
txtlnac.Text = regins.LNac
txtdom.Text = regins.Dom
txtmat1.Text = regins.Mat1
txtmat2.Text = regins.Mat2
txtmat3.Text = regins.Mat3
txtmat4.Text = regins.Mat4
txttel.Text = regins.Tel
txttit.Text = regins.Tit
txtest.Text = regins.Establ
txthora.Text = regins.Hora

End Sub

Deje el archivo para descargar en el anterior post, por si acaso alquien quiera chekearmelo , son solo 2 formularios..
Muchas gracias por la ayuda , esto es la ultima q les pido porfaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa

pkj · #9 (**permalink**) 11/11/2009, 16:04

No uso nunca ese tipo de ficheros de datos, pero creo que solo te falta incluir el numero de registro en la declaración de la sub:

Private Sub mostrar(ByVal c as Long)

para llamarla con:

mostrar c

gohanjaja · #10 (**permalink**) 11/11/2009, 16:24

Bien pongo el campo muestra de esta manera:

Código:

Private Sub mostrar(ByVal c As Long)

Get #1, c, regins

txtape.Text = regins.Ape
txtaño.Text = regins.Año
txtin.Text = regins.Nro_ins
txtnom.Text = regins.Nom
CBOEstado.Text = regins.Estci
txtfecnac.Text = regins.FNac
txtlnac.Text = regins.LNac
txtdom.Text = regins.Dom
txtmat1.Text = regins.Mat1
txtmat2.Text = regins.Mat2
txtmat3.Text = regins.Mat3
txtmat4.Text = regins.Mat4
txttel.Text = regins.Tel
txttit.Text = regins.Tit
txtest.Text = regins.Establ
txthora.Text = regins.Hora

End Sub

ahora quiero comprar si el DNI ya existe , haciendo una llamada al "mostrar"

Osea en el campo del DNI pongo esto :

Código:

Private Sub txtdni_LostFocus()
Dim b As Byte, c As Integer
b = 0
Call busca_lostfocus
If b = 1 Then
Call mostrar
End If
End Sub

Me salta error en call mostrar..

Dejo una captura de mi formulario asi masomenos se guian...

pkj · #11 (**permalink**) 12/11/2009, 00:01

No puedo enrrollarme que tengo que irme a trabajar, así que intentaré ir al grano.
La sub mostrar espera un parámetro, que es el numero de registro a mostrar, por eso lo de poner:

Call mostrar c

suponiendo que en c tengas el numero de registro que quieres mostrar.

Para tu uso creo que te sirve igual si quitas la sub mostrar y la integras en la sub buscar.

Código :

Ver originalPrivate 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
 
txtape.Text = regins.Ape
txtaño.Text = regins.Año
txtin.Text = regins.Nro_ins
txtnom.Text = regins.Nom
CBOEstado.Text = regins.Estci
txtfecnac.Text = regins.FNac
txtlnac.Text = regins.LNac
txtdom.Text = regins.Dom
txtmat1.Text = regins.Mat1
txtmat2.Text = regins.Mat2
txtmat3.Text = regins.Mat3
txtmat4.Text = regins.Mat4
txttel.Text = regins.Tel
txttit.Text = regins.Tit
txtest.Text = regins.Establ
txthora.Text = regins.Hora
 
            c = regesta
            MsgBox "Nro De Inscripción Existente", vbCritical, "Error D.N.I."
            txtdni.SetFocus
        Else
          c = c + 1
        End If
    End If
 
Wend
 
End Sub

De ese modo cuando encuentre una coincidencia la muestra directamente.

Que se dé bien