[Resolvido]Comando em VBA para travar todos os campos.

Caros colegas, boa tarde para todos.

Deu branco aqui....

Qual a sintaxe, em vba, para desabilitar campos, tais como...txt.lbl,lst,cbo ?

Sei que posso fazer isso com o .enable ou esconder com o .invisible, mas sei que a há um que desabilita todos de uma vez só ao carregar o formulário evitando edições acidentais.

Alguém lembra qual era ele ?

Grato.

Silvio

Oi,
Não serve bloquer no próprio formulário, tipo Me.Form.AllowEdits = false ou Me.Form.AllowAdditions = False ? para cada campo, uso o Me.Campo.Locked = True

Liomar

Por esse caminho também funciona, para o formulario todo;

Private Sub Form_Load()
    Me.AllowEdits = False
    Me.AllowDeletions = False
    Me.AllowAdditions = False
End Sub

Grande JPaulo e Liomar, boa tarde para vocês.

Grato a ambos pelas respostas tão rápida; mas há algumas ressalvas a serem aqui tecidas.

a- há um certo número de campos (15 campos entre txt, cbo). Torna-se meio trabalhoso usar o comando enable.

b- o código que tu me passou ( mensagem 4), JPaulo, não sei ainda por que cargas d´água não funfou, estou a analisar esse erro.

c- vou testar o segundo código teu JPaulo, mas terei que criar outra Sub para poder deixar o user end alterar alguns dados, caso ele necessite.

d- com relação ao Me.Form.AllowAdditions = False, o que ocorre Liomar é que mesmo gera conflito com o docmd.GoToRecord ,,acNewRec ao carregar o frm, pois desejo que o mesmo abra sem nenhum tipo de registro. A ideia aqui, é fazer com que o usuário busque o cliente numa combo.


Bom, por enquanto é só....vamos a luta.

Vida longa e prospera.

Caros Amigos, resolvido...mais simples e rápido que eu esperava que fosse. Vamos lá:

a- ao carregar do formulário
Private Sub Form_Load()
DoCmd.GoToRecord , , acNewRec
Me.AllowEdits = False
Me.AllowDeletions = False
Me.AllowAdditions = True a condição para verdadeira, não gerou conflito para ir a um registro limpo (acNewRec)
End Sub

b- em um botão para alterar o registro:

If MsgBox(" Deseja alterar algo nesse cadastro ?", vbOKCancel + vbDefaultButton1 + vbInformation, "Aviso do Sistema") = vbOK Then
Me.AllowEdits = True
Me.AllowDeletions = True
Else
MsgBox " Nada foi alterado !", vbOKOnly, "Aviso do Sistema"
End If
End Sub

Agradecido sou ao JPaulo e Liomar.

Abraços a ambos !

Silvio

Obrigado pelo retorno o fórum agradece.

Valeu!