Bom dia galera !
Esse é o meu primeiro POST. Espero que esteja certo.
Veja o que podem fazer por mim.
Bom, fiz essa senha mas sempre quando coloco " ImputBoxDK " para mascara, da problema.
Podem me ajudar? Obrigado !!!!!
Private Sub Bt_Editar_Click()
Dim strResposta As String
strResposta = InputBoxDK("Insira a Senha", "Aviso!")
If StrComp(strResposta, "teste", vbBinaryCompare) = 0 Then
Me.Nome.Locked = False
Me.Ramal.Locked = False
Me.Setor.Locked = False
Else
MsgBox "Senha Incorreta", vbCritical
DoCmd.CancelEvent
End If
End Sub
Valeu !!!!
Esse é o meu primeiro POST. Espero que esteja certo.
Veja o que podem fazer por mim.
Bom, fiz essa senha mas sempre quando coloco " ImputBoxDK " para mascara, da problema.
Podem me ajudar? Obrigado !!!!!
Private Sub Bt_Editar_Click()
Dim strResposta As String
strResposta = InputBoxDK("Insira a Senha", "Aviso!")
If StrComp(strResposta, "teste", vbBinaryCompare) = 0 Then
Me.Nome.Locked = False
Me.Ramal.Locked = False
Me.Setor.Locked = False
Else
MsgBox "Senha Incorreta", vbCritical
DoCmd.CancelEvent
End If
End Sub
Valeu !!!!