[Resolvido]Proibir alterações nos dados

Bom dia

Novamente preciso da ajuda de vocês.

Tenho um formulário com diversos campos que o usuário digita os dados. Após alguns dias é feito uma exportação desses dados e após os dados exportados é colocado um "S" num campo da tabela.

Gostaria de saber como faço para que após o campo Exporta da tabela estiver preenchido com "S" seja proibido alterar qualquer campo desse formulário?

Isso é para evitar que os dados do usuário fiquem diferentes dos dados enviados para a central de dados.

Amigo No Evento actualizar do campo(s) coloque

Me.NomedoCampo.Locked=true

Vieira

Não deu certo. Mesmo com o campo Exporta preenchido com "S" os demais campos do formulário estão sendo alterados.

Preciso que todos os campos do formulário fiquem bloqueados caso o campo Exporta esteja preenchido com "S"

Vieira

Pensei em alguma coisa como abaixo mas não deu certo.

Private Sub Form_AfterUpdate()

If EXPORTA = "S" Then
[FORMULÁRIOS].[LANCAMENTOS].Locked = True
End If

End Sub

Crie um módulo mod_AtivarControles

Cole nele...

Function AtivarControles(frm As Form, intSeção As Integer, intEstado As Boolean) As Boolean

' Ativa ou desativa controles da seção especificada do formulário.
' Usa o objeto Form, a constante de seção e os argumentos de estado
' passados para o procedimento AtivarControles.
' Glicério Júnior (Jungli) máximo Access


Dim ctl As Control

' Define intEstado para todos os controles da seção especificada.
For Each ctl In frm.Controls

If ctl.Section = intSeção Then
On Error Resume Next
ctl.Enabled = intEstado
Err = 0
End If
Next ctl

AtivarControles = True

End Function

'## ======= como utilizar =================================================================

' Ativa ou desativa controles na seção detalhe
'AtivarControles Me, acDetail, False ou True

Jungli

Vou ter que pedir desculpas pela pergunta, mas coloco esse comando em após atualizar do formulário?? Outra coisa, para que eu entenda um pouco. Onde está informando que deve ser bloqueado se o campo exporta for = "S"?

Sou muito cru em access e quero entender para poder utilizar essalógica no futuro.

Amigo

Vamos lá ver. Você tem um campo no qual coloca um S e pretende que o mesmo não deixe entrar dados, é isso?

POde colocar no evento Actual do Formulário

If meucampo.Value="S" Then
Me.meucampo.Locked=True
Else
Me.meucampo.Locked=False
End If

Vieira

Se o meu campo [EXPORTA] for igual a "S" eu quero bloquear todos os campos do formulário.

Isso é para que após os dados do formulário serem exportados (essa rotina é feita de vez em quando) o usuário não poderá alterar mais nada do que foi exportado.

If meucampo.Value="S" Then
Me.meucampo1.Locked=True
Me.meucampo2.Locked=True
E por aí fora...
Else
Me.meucampo1.Locked=False
Me.meucampo2.Locked=False
End If

Desculpe não elaborar melhor, mas estou de saída. Volto logo.

msilvestri ....

estava meio apressado quando vi o seu post...

mas fica o exemplo para se um dia você necessitar boquear, por exemplo uma sessão de um form...

exemplos são sempre bons...

com relação a sua dúvida..

O exemplo do mestre Vieira deve solucionar o seu problema!

ha e no lugar de Locked você pode usar também Enabled

Vieira e Jungli

Os 2 tipos (locked e enabled) funcionaram perfeitamente. Tanto que deixei um formulário de cada jeito para ver como os usuários regem.

Novamente agradecido aos dois (e a todos do forum que sempre respondem prontamente e de forma exata).

Obrigado pelo retorno o Forum agradece

Obrigado pelo retorno ....