Mostrar Mensajes
tengo el siguiente problema
cuando pongo lo siguiente en el apartado leer user y password
Text1.Text = Access.uname
Text2.Text = Access.passwd
el problema es cuando estoy leyendo el user y password introduzca datos diferentes en el text1.text y el text2.text , y pongo los datos que hay en fichero siempre me dice bienbenido y va al form2
en cambio cuando quito
Text1.Text = Access.uname
Text2.Text = Access.passwd
siempre me dice El archivo no existe
Aqui pongo el codigo
Código:
Option Explicit
Private Type Authorize
uname As String * 30
passwd As String * 30
End Type
Dim Pos As Integer
Dim Cont As Integer
Dim Fnum As Integer
Private Sub Command1_Click()
'Guardar
Dim Access As Authorize
Fnum = FreeFile
Access.uname = Text1.Text
Access.passwd = Text2.Text
Open App.Path & "\members1.dat" For Random As #Fnum Len = Len(Access)
Cont = LOF(Fnum) / Len(Access)
Pos = Cont + 1
Put Fnum, Pos, Access
MsgBox "Nuevo Usuario Añadido: " & Access.uname & Access.passwd
Close #Fnum
End Sub
Private Sub Command2_Click()
'leer
Dim Access As Authorize
Fnum = FreeFile
Open App.Path & "\members1.dat" For Random As #Fnum Len = Len(Access)
Cont = LOF(Fnum) / Len(Access)
For Pos = 1 To Cont
Get #Fnum, Pos, Access
Next
Text1.Text = Access.uname
Text2.Text = Access.passwd
Close #Fnum
If Text1.Text = "" And Text1.Text <> Access.uname And Text2.Text <> Access.passwd Then
MsgBox "El archivo no existe", vbCritical, "No existe"
Text1.Text = ""
Text2.Text = ""
Exit Sub
End If
If Text1.Text = Access.uname Or Text2.Text = Access.passwd Then
MsgBox "Bienvenido", vbInformation
Form2.Show
Me.Hide
End If
End Sub
Private Sub Command3_Click()
End
End Sub
Private Sub Command4_Click()
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End Sub
la pregunta seria:
como solucionar el tema de los avisos en el apartado leer
1. para ir al formulario dos
2. para el registro no existe
Gracias