(Resolvido) Procedimento "ao Abrir"

[Humm]

usando o docmd eu posso fazer o seguinte ao abrir um form

DoCmd.OpenForm "formulario tal", , , , acFormReadOnly

mas isso numa ação.

como essa regra no procedimento "Ao abrir" do formulario ? pra que ele fique somente leitura ou qualquer outro modo dependendo do If?

[MrMALJ]

Fera você pode fazer uns IF para altera as propriedades do seu form, procure na ajuda do proprio access que tem alguns exemplos de como fazer...

.AllowAdditions = False

.AllowDeletions = False

.AllowEdits = False

Isso faz com que não permita adições, deleções e edição.

[Humm]

matou a pau.. exatamente o que eu preciso. abracos fera.

vou aproveitar e deixar um exemplo do sistema de seguranca que to fazendo direto na aplicacao.

Private Sub Form_Load()
If DLookup("[NIVEL]", "USUARIOS", "[USER] ='" & Forms!LOGIN![USER] & "'") = 1 Then
    MsgBox "Voce não tem acesso a esta area!"
    DoCmd.Close

ElseIf DLookup("[NIVEL]", "USUARIOS", "[USER] ='" & Forms!LOGIN![USER] & "'") = 2 Then
    Forms!funcionarios.AllowAdditions = False
    Forms!funcionarios.AllowEdits = False
    Forms!funcionarios.AllowDeletions = False

ElseIf DLookup("[NIVEL]", "USUARIOS", "[USER] ='" & Forms!LOGIN![USER] & "'") = 3 Then
    Forms!funcionarios.AllowAdditions = True
    Forms!funcionarios.AllowEdits = False
    Forms!funcionarios.AllowDeletions = False

ElseIf DLookup("[NIVEL]", "USUARIOS", "[USER] ='" & Forms!LOGIN![USER] & "'") = 4 Then
    Forms!funcionarios.AllowAdditions = True
    Forms!funcionarios.AllowEdits = True
    Forms!funcionarios.AllowDeletions = False

ElseIf DLookup("[NIVEL]", "USUARIOS", "[USER] ='" & Forms!LOGIN![USER] & "'") = 5 Then
    Forms!funcionarios.AllowAdditions = True
    Forms!funcionarios.AllowEdits = True
    Forms!funcionarios.AllowDeletions = True
    
End If

End Sub

Editado Julho 26, 2007 por Humm