Propriedade Form.AllowDeletions (Access)
Use a propriedade AllowDeletions para especificar se um usuário pode excluir um registro ao usar um formulário. Boolean de leitura/gravação.
Sintaxe
expressão. Allowdeletions
expressão Uma variável que representa um objeto Form.
Comentários
Você pode definir essa propriedade como não para permitir que os usuários exibam e editem registros existentes, mas não para excluí-los. Quando AllowDeletions é definido como Sim, os registros podem ser excluídos desde que as regras de integridade referencial existentes não sejam quebradas.
Se você deseja impedir alterações aos registros existentes (tornar um formulário somente leitura), defina as propriedades de PermitirAdições, PermitirExclusões e PermitirEdições como não. Você também pode tornar os registros somente leitura, definindo a propriedade RecordsetType como instantâneo.
Quando a propriedade AllowDeletions estiver definida como não, o comando Excluir registro no menu Editar não está disponível.
Observação
Quando o argumento DataMode da ação OpenForm for definido, o Microsoft Access substituirá várias configurações de propriedade de formulário. Se o argumento DataMode da ação OpenForm estiver definido como Editar, o Access abrirá o formulário com as seguintes configurações de propriedade:
- AllowEdits - Sim
- AllowDeletions - Sim
- AllowAdditions - Sim
- DataEntry - Não
Para impedir que a ação OpenForm substitua qualquer uma dessas configurações de propriedade existentes, omita a configuração do argumento DataMode para que o Access use as configurações de propriedade definidas pelo formulário.
Exemplo
O exemplo a seguir examina a propriedade ControlType para todos os controles em um formulário. Para cada controle de caixa de texto do rótulo e do, o procedimento alterna a propriedade SpecialEffect para esses controles. Quando a propriedade SpecialEffect dos controles de rótulo é definida como Sombreada e a propriedade SpecialEffect dos controles de caixa de texto é definida como Normal, e as propriedades AllowAdditions, AllowDeletions e AllowEdits são definidas como True, a intCanEdit
variável é alternada 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
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.