Propriété Form.AllowAdditions (Access)

Utilisez la propriété AllowAdditions pour spécifier si un utilisateur peut ajouter un enregistrement lors de l’utilisation d’un formulaire. Boolean (en lecture/écriture).

Syntaxe

expression. AllowAdditions

expressionVariable qui représente un objetForm.

Remarques

Définissez la propriété AllowAdditions pour permettre aux utilisateurs d'afficher ou modifier des enregistrements existants mais pas ajouter de nouveaux enregistrements.

Si vous souhaitez empêcher les modifications apportées aux enregistrements existants (un formulaire en lecture seule), définissez les propriétés AllowAdditions, AllowDeletions et AllowEdits sur non. Vous pouvez également créer des enregistrements en lecture seule en définissant la propriété RecordsetType sur instantané.

Si vous souhaitez ouvrir un formulaire pour la saisie de données uniquement, définissez la propriété du formulaire DataEntry sur Oui.

Lorsque la propriété AllowAdditions est définie sur No, la commande Entrée données du menu enregistrements n'est pas disponible.

Remarque

Lorsque l’argument DataMode de l’action OuvrirForm est utilisé, Microsoft Access remplace un certain nombre de paramètres de propriété de formulaire. Si l’argument DataMode de l’action OuvrirForm est défini sur Modifier, Access ouvre le formulaire avec les paramètres de propriété suivants :

• AllowEdits - Oui
• AllowDeletions - Oui
• AllowAdditions - Oui
• DataEntry - Non

Exemple

L'exemple suivant examine la propriété ControlType de tous les contrôles sur un formulaire. Pour chaque contrôle de zone de texte et d'étiquette, la procédure active et désactive la propriété SpecialEffect de ces contrôles. Lorsque la propriété SpecialEffect des contrôles label est définie sur Shadowed et que la propriété SpecialEffect des contrôles de zone de texte est définie sur Normal, et que les propriétés AllowAdditions, AllowDeletions et AllowEdits ont toutes la valeur True, la intCanEdit variable est basculée pour permettre la modification des données sous-jacentes.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.