Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Test Enregistrement existant

Test Enregistrement existant

2 réponses
Avatar
Alain TEYSSEDRE
Bonjour
J'ai un sous-formulaire qui m'affiche des enregistrements d'une table liée.

Lorsque je change d'enregistrement dans le formulaire principal et
que il n'y a aucun enregistrement dans mon sous formulaire, j'aimerai
faire apparaitre un bouton de commande.

Quel est le code et sur quel évènement dois je le placer ?

merci

Alain
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
Xavier HUE
Bonjour Alain,

Dans l'évènement Sur Activation de ton sous-formulaire:

Private Sub Form_Current()
Dim booStatus As Boolean

If Me.RecordsetClone.RecordCount = 0 Then
booStatus = True
Else
booStatus = False
End If

Me.Commande6.Visible = booStatus 'Bouton sur le sous-
formulaire
Me.Parent.Form.Controls("commande5").Visible =
booStatus 'bouton sur le formulaire parent
End Sub

Cordialement.
Avatar
Alain TEYSSEDRE
Merci Xavier

je vais essayer ça

@+
Alain


"Xavier HUE" a écrit dans le message de
news:062201c39c7d$5bb92050$
Bonjour Alain,

Dans l'évènement Sur Activation de ton sous-formulaire:

Private Sub Form_Current()
Dim booStatus As Boolean

If Me.RecordsetClone.RecordCount = 0 Then
booStatus = True
Else
booStatus = False
End If

Me.Commande6.Visible = booStatus 'Bouton sur le sous-
formulaire
Me.Parent.Form.Controls("commande5").Visible booStatus 'bouton sur le formulaire parent
End Sub

Cordialement.