Lucas Gabriel
-
Total de itens
1 -
Registro em
-
Última visita
Sobre Lucas Gabriel
Lucas Gabriel's Achievements
0
Reputação
-
Lucas Gabriel alterou sua foto pessoal -
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.