Jump to content
Fórum Script Brasil
  • 0

Login e Senha Formulário


Question

Boa tarde! 

Preciso direcionar a resposta do inputbox abaixo pra a tabela "usuario"  respectivamente  campo senha... e validar para acessar o formulario ...alguém pode me ajudar como fazer? 

Dim strResposta As String
strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
If StrComp(strResposta, "tbl_usuário / campo senha/login", vbBinaryCompare) = 0 Then
DoCmd.Close
DoCmd.OpenForm "FRM_teste"
Else
MsgBox "Senha incorreta...", vbCritical
DoCmd.CancelEvent
End If
End Sub

Edited by Kstelzer
Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0
Em 09/07/2019 em 14:13, Kstelzer disse:

Boa tarde! 

Preciso direcionar a resposta do inputbox abaixo pra a tabela "usuario"  respectivamente  campo senha... e validar para acessar o formulario ...alguém pode me ajudar como fazer? 

Dim strResposta As String
strResposta = InputBox("Entre com a senha...", "Senha", "", 2000, 1000)
If StrComp(strResposta, "tbl_usuário / campo senha/login", vbBinaryCompare) = 0 Then
DoCmd.Close
DoCmd.OpenForm "FRM_teste"
Else
MsgBox "Senha incorreta...", vbCritical
DoCmd.CancelEvent
End If
End Sub

Boa tarde!

Private Sub BtnSenha_Click()

Dim db As Database
Dim rs As Recordset
Dim sql As String

sql = "SELECT * FROM Tb_Senha"

Set db = CurrentDb()
Set rs = db.OpenRecordset(sql)

If Me.txtSenha.Value = rs.Fields(0) Then

   
    
    Me.Editar.Visible = True
    
    Me.Editar.SetFocus
    
    
    
    
    
Else

    MsgBox "Senha incorreta."
    
End If


End Sub

Código pronto do meu banco... não esqueça do SetFocus no botão.

 

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      148691
    • Total Posts
      644530
×
×
  • Create New...