Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access cacher la ligne permettant l'ajout d'une nouvelle données

cacher la ligne permettant l'ajout d'une nouvelle données

2 réponses
Avatar
sab
Bonjour

Peut on m'aider à cacher la ligne permettant l'ajout d'une nouvelle données,
je m'explique:
Lorsque j'ouvre un formulaire, il y a sur la dernière ligne, une ligne
blanche (ligne permettant d'ajouter une donnée).
Je souhaiterai faire "disparaitre" cette ligne car j'ai un bouton "ajout"
qui m'affiche que cette ligne.

Private Sub Ajout_Click()

If Me.DataEntry = True Then
Me.DataEntry = False
Me.Ajout.Caption = "Ajout"
Else
Me.DataEntry = True
Me.Ajout.Caption = "Tout afficher"
End If

Remarque :
1 - ça marche dans propriété /Ajout donnée -> NON mais je
ne peux plus en inserer avec mon bouton

2 - J'ai également essayer :
Private Sub Form_Open(Cancel As Integer)
Me.DataEntry = False
End Sub
Mais ça ne fonctionne pas.

Pouvez vous m'aider ?
Merci d'avance
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Raymond [mvp]
Bonjour.

il faut jouer sur la propriété : AllowAdditions

Me.AllowAdditions = True ' ou False

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"sab" a écrit dans le message de news:

Bonjour

Peut on m'aider à cacher la ligne permettant l'ajout d'une nouvelle
données,
je m'explique:
Lorsque j'ouvre un formulaire, il y a sur la dernière ligne, une ligne
blanche (ligne permettant d'ajouter une donnée).
Je souhaiterai faire "disparaitre" cette ligne car j'ai un bouton "ajout"
qui m'affiche que cette ligne.

Private Sub Ajout_Click()

If Me.DataEntry = True Then
Me.DataEntry = False
Me.Ajout.Caption = "Ajout"
Else
Me.DataEntry = True
Me.Ajout.Caption = "Tout afficher"
End If

Remarque :
1 - ça marche dans propriété /Ajout donnée -> NON mais je
ne peux plus en inserer avec mon bouton

2 - J'ai également essayer :
Private Sub Form_Open(Cancel As Integer)
Me.DataEntry = False
End Sub
Mais ça ne fonctionne pas.

Pouvez vous m'aider ?
Merci d'avance


Avatar
Codial
Bonjour,

Mettre AllowAdditions = False

Et en cas d'ajout, mettre un bouton avec AllowAdditions = True

Codial

"sab" a écrit dans le message de news:

Bonjour

Peut on m'aider à cacher la ligne permettant l'ajout d'une nouvelle
données,
je m'explique:
Lorsque j'ouvre un formulaire, il y a sur la dernière ligne, une ligne
blanche (ligne permettant d'ajouter une donnée).
Je souhaiterai faire "disparaitre" cette ligne car j'ai un bouton "ajout"
qui m'affiche que cette ligne.

Private Sub Ajout_Click()

If Me.DataEntry = True Then
Me.DataEntry = False
Me.Ajout.Caption = "Ajout"
Else
Me.DataEntry = True
Me.Ajout.Caption = "Tout afficher"
End If

Remarque :
1 - ça marche dans propriété /Ajout donnée -> NON mais je
ne peux plus en inserer avec mon bouton

2 - J'ai également essayer :
Private Sub Form_Open(Cancel As Integer)
Me.DataEntry = False
End Sub
Mais ça ne fonctionne pas.

Pouvez vous m'aider ?
Merci d'avance