não alterar dados de um formulário uma vez lançado

boa tarde pessoal, tenho experiencia no excel e agora estou iniciando no acces. Dai que não achei ainda a forma de aplicar algumas coisas que fazia no excel, por exemplo: tenho um programa de vendas que depois que o vendedor lançou as informações de fechamento de pedido, eu protejo as células para que não sejam alterados os dados. Reviso o mes anterior e bloqueio as celulas para edição e deixo liberadas as próximas e assim sucessivamente. Desta forma, como tenho controles integrados do financeiro e da produção, não corro o risco de o vendedor alterar informações passadas anteriormente.

É a primeira vez que entro num fórum. Está correta a minha forma de expor a minha dúvida?

Acces 2010.

Boa tarde Dhb, seja bem vindo ao nosso fórum.

Eis aqui um link... para tirar a tua duvida.

Qualquer coisa é só postar, que há um monte de boas pessoas sempre dispostas a ajudar.

Abraços.

Silvio

desculpe, ainda nao entendi, podes me dar uma explicação mais passo a passo ? mesmo assim agradeço a resposta. como faço para colocar as informações em codigos etc. aonde ?

dhd boa noite..
Da uma olhada nesse topico, respondi a pouco para outro companheiro
Abraço.

http://maximoaccess.forumeiros.com/t8896-bloquear-campos

Ok...vamos nessa então....

a- criar as tabelas com os campos que deseja.
1.idcliente (chave primária,numeração automática)
2.nome (texto)
3.endereço (texto)
4.Número (pode ser texto ou número)
5.Bairro (texto)

b- criar um formulário com esses campos, usando ou não o assistente de criação. Vai depender apenas de ti usar ou não.

c- no modo design desse formulário, na folha propriedades, na aba eventos, no evento ao carregar ou no atual desse formulário inserir o seguinte código:


Dim ctl As Control
Dim StrName As String

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
StrName = ctl.Name
Me(StrName).Enabled = False
End Select
Next ctl

****** esse código acima, bloqueia qualquer edição (Me(StrName).Enabled = False)

d- para permitir edições no formulário acima, cria-se um botão, e nos eventos desse botão, evento ao clicar insere-se o seguinte código:

Dim ctl As Control
Dim StrName As String

For Each ctl In Me.Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox, acListBox, acOptionGroup, acCheckBox
StrName = ctl.Name
Me(StrName).Enabled = True
End Select
Next ctl
****** esse código acima habilita o formulário para edição (Me(StrName).Enabled = True)

Basicamente é isso.

Abraços.

Silvio

Ola companheiros olha o exemplo do Fernando funciona e é bem simples.

Private Sub Form_Current()
If IsNull(campo1) Then
campo1.Locked = False
Else
campo1.Locked = True
End If

If IsNull(campo2) Then
campo2.Locked = False
Else
campo2.Locked = True
End If

End Sub

Parabéns Fernando!

Olá Silvio como vai amigo vou testar o seu aqui!

Grande Lupércio....boa tarde a ti.

O exemplo foi retirado do link da minha resposta para ele. Procurei ser apenas didático na resposta, pois como ele do Excel existe sempre coisas diferentes.

Abraços para ti Lupércio.

Silvio

Ta certo Grande silvio, um forte abraço amigo! Deus te abençoe.

Boa tarde....amém lupércio Shalom !