Criei um form modelo de login chamado "LoginForm1"
e gostaria de abri-lo
criei uma tabela chama "senha" dentro de um banco de dados "farmform.mdb" com duas colunas uma usuário e uma senha

o nome dos componentes são de loginform1
são usernametextbox
e passwordtextbox

dois botões
um "ok"
e outro "cancel"

tenho ke chamar form1 se tudo der certo

desde já agradeço

Põe o LoginForm1 no startup da aplicação.

No botão "ok" se a senha estiver correta chama form1 (form1.show).

aí ke tá o loginform

não está com o código ativado cara

está limpo o code dele

 

sim o código dele veio limpaço

os botões só tem a funçao end

 

 

 

 

Caro colega, um exemplo bem simples, veja se te ajuda:

 

 

' No formulário Login.frm, tenho 2 textbox: TxtUsuario e TxtSenha - 2 botões: BtnOk e BtnCancela

 

' Código do formulário:

Private Sub Form_Load()
    On Error Resume Next
    TxtUsuario.Text = Empty
    TxtSenha.Text = Empty
    TxtUsuario.SetFocus
End Sub

Private Sub TxtUsuario_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
       KeyAscii = 0
       TxtSenha.SetFocus
    End If
End Sub
Private Sub TxtSenha_KeyPress(KeyAscii As Integer)
    If KeyAscii = vbKeyReturn Then
       KeyAscii = 0
       BtnOk.SetFocus
    End If
    If KeyAscii = vbKeyEscape Then
       KeyAscii = 0
       TxtUsuario.SetFocus
    End If
End Sub

Private Sub BtnOk_Click()
    If TxtUsuario.Text = Empty Or TxtUsuario.Text = Null Then
        MsgBox "Informe nome de usuário", vbInformation, "Nome do usuário inválido"
        TxtUsuario.SetFocus
        Exit Sub
    End If
    If TxtSenha.Text = Empty Then
        MsgBox "Informe senha", vbInformation, "Senha inválida"
        TxtSenha.SetFocus
        Exit Sub
    End If
    Call ValidaSenha
End Sub

Private Sub BtnCancelar_Click()
    End
End Sub

 

' coloque esta Function em um módulo
Function ValidaSenha()
    sqlusuario = "Select * From Usuarios Where usuario like '" & Login.TxtUsuario.Text & "'"
    Set rsusuario = db.OpenRecordset(sqlusuario)
    If rsusuario.EOF Then
        MsgBox "USUÁRIO NÃO CADASTRADO! " & Chr(13) & "      ACESSO NEGADO       ", vbCritical, "Erro de Acesso"
        Login.TxtUsuario.SetFocus
        Exit Function
    Else
        If Login.TxtSenha.Text = rsusuario("senha") Then
            Unload Login
            FormPrincipal.Show
        Else
            MsgBox "USUÁRIO NÃO IDENTIFICADO! " & Chr(13) & "      ACESSO NEGADO       ", vbCritical, "Erro de Acesso"
            Login.TxtUsuario.SetFocus
            Exit Function
       End If
   End If
End Function

 

Qualquer dúvida, poste novamente.

 

Até mais.

 

essa função de cima também funciona, eu tenho uma mais simples que funciona legal também ,segue abaixo.


Em um modulo a variavel Cnn está declarada assim:

Public Cnn As New ADODB.Connection

 

'###############################################
'Conecta no banco de dados
'###############################################

 

    With Cnn
   
        'conexao com o banco de dados do access
        Cnn.CommandTimeout = 10
        Cnn.ConnectionTimeout = 5
        Cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
        Cnn.ConnectionString = "Data Source = localdobancoanco.mdb;" & _
                               "Jet OLEDB:Database Password=;" & _
                               "User ID =Admin;" & _
                               "Password = ;"
                              
        'Abrindo a conexão
        Cnn.Open
   
    End With

'###############################################
'Verifica se o usuario na txt existe no banco
'###############################################

sql = " select * from tbl_usuarios where login = '" & Trim(txtUsuario.Text) & "'"

 

rsusuario.Open sql, Cnn, adOpenStatic, adLockReadOnly

 

If rsusuario.EOF = True Then

    MsgBox " Este login não está cadastrado ! ", vbInformation, " Atenção !!! "
    Set rsusuario = Nothing
    Set Cnn = Nothing
    txtUsuario.Text = ""
    txtUsuario.SetFocus
   
Else

    With rsusuario
   
    .MoveMin
   
        If !senha = Trim(txtSenha.Text) Then
               
            mdiLoad.Show
            Unload Me
           
        Else
       
            MsgBox " Senha inválida, favor verificar. ", vbInformation, "  Atenção !!! "
            txtSenha.Text = ""
            txtSenha.SetFocus
            Set rsusuario = Nothing
            Set Cnn = Nothing
       
        End If
       
    End With
   
End If