Por qué se sale ???
Publicado por Norberto (1 intervención) el 17/07/2014 02:23:40
Hola a todos ,soy nuevo en el foro. Me llamo Norberto y me gustaria saber si me podrian ayudar con mi problema.
Es que no se por qué , se sale del Sub cuando llega a esta linea y sale el formulario totalmente funcional, o sea que no es que me salte ningún error o se cuelgue el VB, Hace un if y despues se sale del código.
Private Sub ComprobarUsuarioPass(Nombre As String, Pass As String)
Dim LectorLineas As String
Dim Linea() As String
ComprobarUsuario = False
If Dir$(App.Path & "\BaseDatos\Empleados.txt", vbArchive) <> "" Then
Open App.Path & "\BaseDatos\Empleados.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, LectorLineas
Linea = Split(LectorLineas, "-")
If Linea(0) = Nombre & Linea(1) = Pass Then 'Aqui es donde se sale del código
UltUsuNombre = Linea(0)
UltUsuPass = Linea(1)
UltUsuPuesto = Linea(2)
UltUsuRutaImagen = Linea(3)
ComprobarUsuario = True
End If
Loop 'El loop unca se repite
End If
Close #1 'Esto nunca se ejecuta
Label2.Caption= Linea(0) 'Esto tampoco
End Sub
Marcando todas las lineas para para seguir el funcionamiento de la rutina linea a linea , una vez llega al IF se sale y el programa continua.
UltUsuPass, UltUsuPuesto , UltUsuRutaImagen ,ComprobarUsuario son variables públicas.
La ruta del archivo están correctamente escritos y vb6 detecta que el archivo existe.
Las variables Nombre es "Norberto" y la variable Pass es "pass" y el archivo Txt es asi:
Norberto-pass-puesto-C:\Users\Public\Pictures\Sample Pictures\Desert.jpg
Beatriz-pass2-puesto2-C:\Users\Public\Pictures\Sample Pictures\Enim.jpg
Gracias.
Es que no se por qué , se sale del Sub cuando llega a esta linea y sale el formulario totalmente funcional, o sea que no es que me salte ningún error o se cuelgue el VB, Hace un if y despues se sale del código.
Private Sub ComprobarUsuarioPass(Nombre As String, Pass As String)
Dim LectorLineas As String
Dim Linea() As String
ComprobarUsuario = False
If Dir$(App.Path & "\BaseDatos\Empleados.txt", vbArchive) <> "" Then
Open App.Path & "\BaseDatos\Empleados.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, LectorLineas
Linea = Split(LectorLineas, "-")
If Linea(0) = Nombre & Linea(1) = Pass Then 'Aqui es donde se sale del código
UltUsuNombre = Linea(0)
UltUsuPass = Linea(1)
UltUsuPuesto = Linea(2)
UltUsuRutaImagen = Linea(3)
ComprobarUsuario = True
End If
Loop 'El loop unca se repite
End If
Close #1 'Esto nunca se ejecuta
Label2.Caption= Linea(0) 'Esto tampoco
End Sub
Marcando todas las lineas para para seguir el funcionamiento de la rutina linea a linea , una vez llega al IF se sale y el programa continua.
UltUsuPass, UltUsuPuesto , UltUsuRutaImagen ,ComprobarUsuario son variables públicas.
La ruta del archivo están correctamente escritos y vb6 detecta que el archivo existe.
Las variables Nombre es "Norberto" y la variable Pass es "pass" y el archivo Txt es asi:
Norberto-pass-puesto-C:\Users\Public\Pictures\Sample Pictures\Desert.jpg
Beatriz-pass2-puesto2-C:\Users\Public\Pictures\Sample Pictures\Enim.jpg
Gracias.
Valora esta pregunta
0