[Resolvido]Caixa sim/não com senha para travar campos.

Companheiros do fórum, bom dia a todos.

Surgiu-me uma duvida e posto ela aqui.

Tenho dois campos sim/não que são " ativado " e " desativado ".

Será possível colocar uma senha nesses campos ?

Explicando: Quando um cliente for desativado, gostaria de colocar uma senha, para travar os campos do formulário em questão e por motivos de segurança apenas uma pessoa poderá desativar o cliente. Fazendo do mesmo modo para o ativamento do mesmo.

Segue o código que eu estou a usar

Private Sub Destivado_Click()
If Me.Destivado.Value = -1 Then
With Me
'campos
.Idcliente.Enabled = False
.Datacadastro.Enabled = False
.CPF.Enabled = False
.CNPJ.Enabled = False
.RazaoSocial.Enabled = False
.NomeFantasia.Enabled = False
.Endereco.Enabled = False
.Numero.Enabled = False
.Complemento.Enabled = False
.Bairro.Enabled = False
.Cep.Enabled = False
.Estado.Enabled = False
.Cidade.Enabled = False
'botões
.bt_contatos.Enabled = False
.bt_endcobranca.Enabled = False
.bt_endcorrespondencia.Enabled = False
.bt_excluir.Enabled = False
.bt_historico.Enabled = False
.bt_obrascliente.Enabled = False
.bt_novo.Enabled = False
.bt_salvar.Enabled = False
End With
End If
End Sub

Grato a todos que puderem dispensar um pouco do tempo para essa questão.

Abraços.

lvio

Olá, Silvio!

Penso que poderia fazer isso diferente, caso use controle de usuários, ou seja, a lista dos desativados só aparece para o usuário responsável. O ativar e desativar também ficaria por conta do usários responsável.

Vale muito apena assistir esta minha vídeo-aula e vc irá entender o quero te passar.

http://www.usandoaccess.com.br/tutoriais/tuto31.asp?id=1#inicio

Bom estudo!

Bom dia Avelino...

O controle de usuários será a última coisa que eu implementarei, pois ainda estou em fase de desenvolvimento.

Essa parte do formulário, tem que ser desse modo, independentemente do nível de acesso que o end user terá.

Grato.

Senhores....alguém mais tem alguma ideia de como fazer isso ??

ninguém mais ???

Silvio

Use o evento "No atual" do formulário para ativar ou desativar os campos dependendo do status do campo sim/não


If Me.Destivado.Value = -1 Then
With Me
'campos
.Idcliente.Enabled = False
.Datacadastro.Enabled = False
.CPF.Enabled = False
.CNPJ.Enabled = False
.RazaoSocial.Enabled = False
.NomeFantasia.Enabled = False
.Endereco.Enabled = False
.Numero.Enabled = False
.Complemento.Enabled = False
.Bairro.Enabled = False
.Cep.Enabled = False
.Estado.Enabled = False
.Cidade.Enabled = False
'botões
.bt_contatos.Enabled = False
.bt_endcobranca.Enabled = False
.bt_endcorrespondencia.Enabled = False
.bt_excluir.Enabled = False
.bt_historico.Enabled = False
.bt_obrascliente.Enabled = False
.bt_novo.Enabled = False
.bt_salvar.Enabled = False
else
'tudo true aqui
End If
End With

Use um campo texto com a mascara "senha" perto do campo tipo sim/não. O padrão deste campo sim/não deve estar para desabilitado

Ao entrar com a senha vc então habilita o campo tipo sim/não para realizar a alteração.

Sucesso!

Testou ?

Aguardamos

Avelino, ainda não teste, pois ocorreu um acidente em meu escritório, caiu um raio e no momento em que eu posto essa mensagem estou em cliente; O eletricista deverá estar na parte da tarde para ver toda a fiação.

Abraços,

Boa tarde Avelino....


A ideia, é que quando o campo sim/não receba o foco ou um click........exemplo, vou desativar um cliente, ao clicar em desativar abra uma caixa de texto, uma mensagem ou algo parecido, para se colocar uma senha e após inserir essa senha todos os campos do formulário ficassem desativados. A outra caixa sim/não funcionaria ao contrário dessa.

Essa é a ideia desse campo ser com senha !

Poxa Avelino, fico grato a ti...grato mesmo.
Pelo menos, já é uma boa noticia para mim, depois do incidente aqui em casa.
link da entrevista

Silvio

Lamento o acidente, espero que esteja tudo bem.
Tomei a liberdade de alterar a estrutura da sua BD. Se aprovar assim está a funcionar, com password.

Uma imput box seria bom para isso silvio.

Cumprimentos.

Olá Silvio,

lembra daquele tópico que criei " Assinatura (Imagem) ", ao qual esta a me ajudar? cabe certinho neste ou seja sua solução é minha solução, rsrsrsrs.

A resolução do mestre Assis, é bem interessante, estou ansioso para ver também o modelo exemplo do mestre Avelino Sampaio.


Att,

Senhores...dando um up nesse tópico.....preciso realmente de ajuda nesse caso !

O exemplo que o Assis enviou não serviu?

Cumprimentos.

Senhores cordialmente um bom dia a todos.

Ainda não chegou onde eu realmente preciso.

Mestre Avelino Sampaio, ainda estou a aguardar o vosso exemplo.

Dando um UP nesse tópico emblemático.

Bom dia Avelino,

Estou e fico no aguardo da tua resposta !

Abraços.

1 - Nos controles a serem desabilitados, em propriedades, Aba outras, Marca >>> Coloquei o Tag "A"
2 - Uma função de desbilita ou habilita todos os controles cujos tag's são "A"

Sub TControlFunc()
On Error Resume Next
Dim TControle As Control
For Each TControle In Me.Controls
If TControle.Tag = "A" Then
If TControle.Enabled = False Then
TControle.Enabled = True
Else
TControle.Enabled = False
End If
End If
Next TControle
End Sub

Nos eventos após atualizar da combo o seguinte código verificando o texto contido na mesma:

Private Sub Ativo_AfterUpdate()
If Me.Ativo = "Não" Then
'JPaulo
Dim Cancel As Integer
Dim UsrResposta
UsrResposta = InputBoxDK(" © Digite a Senha para ter Acesso ao Campo © ", "©  Password  ©", "©  Password  ©")
If UsrResposta <> "123456" Then   'este valor entre aspas é a senha
    MsgBox " © Senha Inválida © ", vbCritical, " © Aviso © "
    Cancel = True
    Me.Undo
Else
   Me.TControlFunc
End If
End If
End Sub

Cumprimentos.

Boas Silvio, e a todos, teste ai Silvio:

Piloto como vai amigo? Vc fez a mesma alteração que fiz no código do JPaulo. Valeu!

Tu do bem Amigão...

A questão é que ele deseja bloquear os campos exceto a combo..

por isto coloquei a TControlFunc

cumprimentos.

Ta certo!

Grande Lupércio...e Grande Piloto, meu respeito e admiração a vocês dois !

Agradeço a ajuda dada a minha pessoa. Vou testar ambos na parte da tarde ( após 14:00hs, devido a visita a esse cliente que estou a desenvolver esse projeto ).

Retorno dizendo os resultados.

Abraços a ambos.

Silvio

Com certeza o admiro muito, e fique com Deus!

Boa tarde

Atenção, Silvio, Lupércio e Piloto

Quando a caixa de combinação é alterada para não, todos os campos são bloqueados.

Mas ao voltar abrir o formulario "frmCliente" a caixa de combinação está mascada com "Não" mas os campos estão todos ativos.

Otima observação Assis!

Basta colocar codigo semelhante no evento No Atual para checar o texto da combo, caso seja Não, bloqueia.

Cumprimentos.

Grande Assis, boa tarde, foi muita rica essa tua obervação!
Meus respeitos!

Mais uma observação

Tudo bem por a função no "Ao Carregar", mas e depois para voltar a por "Sim" ?

Testei e não está fácil ....

Parabéns Avelino, como diz aqui no Brasil, matou a pau!

Parabéns Avelino
Mais um exemplo para a arca de Noé.....

Muito Bom Mestre.

Bom dia....Avelino, Assis, Lupércio e Piloto !

O que dizer desse exemplo ? Perfeito !

Só me resta agradecer a vocês pela boa vontade, pelo tempo, pela disposição e pelo altruísmo em ajudar a quem ainda não detém o saber !

Meu respeito, admiração e agradecimento a vocês todos !

Saúde e paz para todos !

Silvio