[Resolvido]Bloquear SubFormulário e Formulário para inclusão e alteração,

Pessoal, estou criando em meu BD város níveis de acesso, porém quando coloco um usuário apenas como visualização, desativando as teclas de navegação, deixando apenas um SubFormulário para consulta, quando se vai navegando com a seta do teclado para a direita até o final do SubFormulário, ele abre a opção de inclulsão de dados, o que não poderia ser feito no meu BD.
Alguém poderia me auxiliar.
Alguém teria um exemplo completo de navegação que não autorize de forma alguma que o usuário faça novos cadastros?

Na Propriedade de tal formulário pode alterar os eventos 'Permitir edições', 'Permitir exclusão' e 'Permitir adição' para 'Não'.

Olá companheiro,
Você saberia com fazer em código VBA?
Inicialmente vou deixar desabilitado dependendo do usuário apenas, e quando for pressionado o botão NOVO, desabilitarei essa opção até o lançamento total, depois farei o mesmo com EDITRAR e EXCLUIR.
Abrçs.

Na Propriedade do Form, no Evento 'Ao abrir' coloque:

Form.AllowEdits = False 'Não permite Edição
Form.AllowDeletions = False 'Não permite Exclusão
Form.AllowAdditions = False 'Não permite Adição

No Evento 'Visualizar teclas' mude para Sim.
No Evento 'Ao apertar tecla' coloque:

Select Case KeyCode
       Case vbKeyF5
          Form.AllowEdits = True
          Form.AllowDeletions = True
          Form.AllowAdditions = True
       Case Else
End Select

Dessa forma quando abrir o Form, tais opções estão desativadas, mas pressionando F5 elas passam para o estado de ativas.

Abraço...

Obrigado companheiro,
Realmente me ajudou.
Estou montando uma barra de botões de navegação para meu BD.
Se puder me ajudar, abradeço.
Abrçs.

Ajudo sim, se eu puder é claro!
Descreva o que está fazendo e o que pretende!

Olá Clynton,
Agora estou com problemas quando faço a adição de registros no Formulário.
Coloquei no formulário as opções de Não permitir a inclusão nem a alteração, fazendo essas permissões por níveis de acesso e por código VBA, porém quando se pressiona Editgar, funciona normalmente, editando registros, e quando se pressiona o desfazer, se torna não autorizado a edição, até aí tudo normal.
Agora quando se pressiona Editar, funciona normalmente, mas quando coloco para salvar, aí é que vem o problema, após pressionar salvar, os campos continuam abertos para edição, e sempre dá uma mensagem de erro dizendo que não houve a gravação, embora o registro esteja gravado.
Gostaria, de após pressionado gravar, ele nção retornasse o erro e deixasse os campos blovqueados para registro como ocorre no botão desfazer.
Será que dá para me ajudar nessa companheiro?
Abrçs.

Segue so códigos dos botões:

Editar:

Private Sub Bot_7_Click()

Me.AllowEdits = True

End Sub


Desfazer:

Private Sub Bot_8_Click()

Me.AllowEdits = False
Me.AllowAdditions = False

On Error GoTo Err_CmdDesfazer_Click

DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

Exit_CmdDesfazer_Click:

Exit Sub

Err_CmdDesfazer_Click:
' MsgBox Err.Description
MsgBox "O Comando 'Desfazer' não está disponível no momento!", vbInformation, "Informação" ' Err.Description

Resume Exit_CmdDesfazer_Click

End Sub


Salvar:

Private Sub Bot_9_Click()

Me.AllowEdits = False
Me.AllowAdditions = False

' Me.AllowEdits = False ' Retirei pois não funciona e não adianta em nada.

On Error GoTo Err_CmdSalvar_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 ' Salva Registro.

'Desabilita

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
MsgBox "Registro salvo com sucesso!", vbInformation, "Informação"

Exit_CmdSalvar_Click:

Exit Sub

Err_CmdSalvar_Click:

MsgBox "Registro não alterado ou não editado para ser salvo!", vbInformation, "Informação" 'Err.Description
Resume Exit_CmdSalvar_Click

End Sub

Obrigado amimgos.
Consegui resolveer o meu problema com o seguinte código no evento clicar do Botão SALVAR:

'---------------------
If (Me.Dirty = True) Then
DoCmd.Beep ' Emite um Beep
Msg1 = MsgBox("Salvar o Registro no sistema?", vbYesNo, "SALVAR")
If Msg1 = vbNo Then
Me.Undo

Me.AllowEdits = False
Me.AllowAdditions = False

Exit Sub
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
MsgBox "Registro salvo com Sucesso!", vbInformation, "Informação" ' Err.Description

Me.Requery
Me.Refresh

Me.AllowEdits = False
Me.AllowAdditions = False

Exit Sub
End If
End If

If (Me.Dirty = False) Then
MsgBox "Este Registro já está salvo!", vbInformation, "Informação" ' Err.Description
End If
'---------------------

RESOLVIDO