silencept
14-12-2007, 19:12
boas,
estou a tentar fazer um login
a login é escolhido da base de dados do Acess (utilizando um adodc) através de um DBCombo, mas a password perciso de ir ao campo da base de dados onde esta o Login escolhidos e sacar a password para depois comparar com a que foi escrita pelo utilizador...
deixo aqui o código que tenho até agora
Option Explicit
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
'set the global var to false
'to denote a failed login
LoginSucceeded = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
Dim x As String
login.Recordset.MoveFirst
' x = login.Recordset.
If x = txtPassword Then
'place code to here to pass the
'success to the calling sub
'setting a global var is the easiest
LoginSucceeded = True
Me.Hide
Principal.Show
Else
MsgBox "Password Inválida, tente outra vez!", , "Login"
txtUserName.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
Private Sub Form_Activate()
txtPassword.Text = ""
txtUserName.Text = ""
End Sub
do menu
http://img115.imageshack.us/img115/6609/logindu5.jpg
Agradeçia a resposta...
Abraços para a Comunidade...
estou a tentar fazer um login
a login é escolhido da base de dados do Acess (utilizando um adodc) através de um DBCombo, mas a password perciso de ir ao campo da base de dados onde esta o Login escolhidos e sacar a password para depois comparar com a que foi escrita pelo utilizador...
deixo aqui o código que tenho até agora
Option Explicit
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
'set the global var to false
'to denote a failed login
LoginSucceeded = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
Dim x As String
login.Recordset.MoveFirst
' x = login.Recordset.
If x = txtPassword Then
'place code to here to pass the
'success to the calling sub
'setting a global var is the easiest
LoginSucceeded = True
Me.Hide
Principal.Show
Else
MsgBox "Password Inválida, tente outra vez!", , "Login"
txtUserName.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
Private Sub Form_Activate()
txtPassword.Text = ""
txtUserName.Text = ""
End Sub
do menu
http://img115.imageshack.us/img115/6609/logindu5.jpg
Agradeçia a resposta...
Abraços para a Comunidade...