Estou com um problema com meu form Senha.

Estou tentando criar uma senha para o usuário do sistema.

Por favor, preciso saber como que ficaria a rotina ao clicar em "OK".

Preciso que veja se a senha está correta, se sim, entre no sistema.

 

*OBS: A senha se encontra em um banco de dados.

Eu programo em DAO e os meus index estão criados todos no banco de dados.

Eu vou verificando a cada enter que a pessoa der, ou seja primeiro verifico se o usuário existe(no text1), se não existir nem deixo digitar a senha

 

    If KeyAscii = 13 Then
        If Text1.Text <> "" Then
            Text1.Text = Format(Text1.Text, ">")
            Cadastro.Index = "INome"
            Cadastro.Seek "=", Text1.Text
            If Cadastro.NoMatch Then
                MsgBox "Desculpe " & Text1.Text & " más você não está cadastrado", vbExclamation
                Text1.Text = ""
                Text1.SetFocus
            Else
                Text2.SetFocus
            End If
        Else
            MsgBox "Digite o seu nome de usuário"
        End If
    End If

Depois que verifiquei, ai eu comparo a senha digitada

        If Cadastro!Senha = Text2.Text Then
            MdiPrincipal.Show
            Unload Me 'esse comando fecha a tela de login

        end if

vou t mandar um exemplo facil irmao

Modifiquei o codigo é funcionou irmao , o problema acho é que vc nao percebeu que o Campo TxtUsuario e txtsenha , na existem , eu só uso um Array do TXTusuario , oque diferencia cada um , é o index , no campo que eu uso pra por o Nome o index é 0 , e no campo pra por a senha o index do campo é 1.

e na hora de vc conectar nao usa o  caminho do banco usa tipo assim faz uma function no modulo , tipo isso, pra ficar mais facil de manipular.no exemplo que eu te mandei mostra legal como conectar , desconectar, e tal

Public Sub ConectarBd()
On Error GoTo final
Dim sPath As String
'***Abrindo a base de dados
Set cnBd = New ADODB.Connection
cnBd.CursorLocation = adUseClient '**O cursor será gerado ao lado do cliente - será gerado um arquivo temporário no cache da máquina
sPath = App.path & "Seeber.mdb"
cnBd.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath
Screen.MousePointer = 0
Exit Sub
final:
MsgBox Err.Description, vbInformation, Err.Number
End Sub

 

 

ae no form load do form vc joga o nome da Function

 

ConectarBd