Aplica-se a
Objeto Form |
Pode utilizar a propriedade PermitirAdições para especificar se um utilizador pode adicionar um registo ao utilizar um formulário. Booleano de leitura/escrita.
expressão.PermitirAdições
expressão Obrigatório. Uma expressão que devolve um dos objetos na lista Aplica-se A.
Definição
A propriedade PermitirAdições utiliza as seguintes definições.
Definição |
Visual Basic |
Descrição |
Sim |
Verdadeiro |
(Predefinição) O utilizador pode adicionar novos registos. |
Não |
Falso |
O utilizador não pode adicionar novos registos. |
Pode definir a propriedade PermitirEdições ao utilizar a folha de propriedades de um formulário, uma macro ou um código VBA (Visual Basic for Applications).
Observações
Defina a propriedade PermitirAdições para Não para permitir que os utilizadores vejam ou editem registos existentes, mas não adicionem novos registos.
Se quiser impedir alterações a registos existentes (criar um formulário só de leitura), defina as propriedades PermitirAdições, PermitirEliminações e PermitirEdições para Não. Também pode criar registos só de leitura ao definir a propriedade TipoDoConjuntoDeRegistos para Snapshot.
Se quiser abrir um formulário apenas para a introdução de dados, defina a propriedade IntroduçãoDeDados para Sim.
Quando a propriedade PermitirAdições estiver definida para Não, o comando Novo Registo em Registos no separador Dados não estará disponível.
Nota: Quando o argumento Modo de Dados da ação AbrirFormulário for utilizado, o Microsoft Office Access 2007 irá substituir algumas definições de propriedade do formulário. Se o argumento Modo de Dados da ação AbrirFormulário estiver definido como Editar, o Access irá abrir o formulário com as seguintes definições de propriedade:
-
PermitirEdições – Sim
-
PermitirEliminações – Sim
-
PermitirAdições – Sim
-
IntroduçãoDeDados – Não
Para impedir que a ação AbrirFormulário substitua alguma das definições de propriedade existentes, omita o argumento Modo de Dados para que o Access utilize as definições de propriedade definidas pelo formulário.
Exemplo
O exemplo seguinte examina a propriedade ControlType de todos os controlos num formulário. Para cada controlo de caixa de texto e etiqueta, o procedimento ativa/desativa a propriedade EfeitoEspecial desses controlos. Quando a propriedade EfeitoEspecial dos controlos de etiqueta está definida como Sombreado, a propriedade EfeitoEspecial do controlo de caixa de texto está definida como Normal e as propriedades PermitirAdições, PermitirEliminações e PermitirEdições estão definidas como Verdadeiro, a variável intCanEdit é ativada para permitir a edição dos dados subjacentes.
Sub ToggleControl(frm As Form)
Dim ctl As Control
Dim intI As Integer, intCanEdit As Integer
Const conTransparent = 0
Const conWhite = 16777215
For Each ctl in frm.Controls
With ctl
Select Case .ControlType
Case acLabel
If .SpecialEffect = acEffectShadow Then
.SpecialEffect = acEffectNormal
.BorderStyle = conTransparent
intCanEdit = True
Else
.SpecialEffect = acEffectShadow
intCanEdit = False
End If
Case acTextBox
If .SpecialEffect = acEffectNormal Then
.SpecialEffect = acEffectSunken
.BackColor = conWhite
Else
.SpecialEffect = acEffectNormal
.BackColor = frm.Detail.BackColor
End If
End Select
End With
Next ctl
If intCanEdit = IFalse Then
With frm
.AllowAdditions = False
.AllowDeletions = False
.AllowEdits = False
End With
Else
With frm
.AllowAdditions = True
.AllowDeletions = True
.AllowEdits = True
End With
End If
End Sub