Discussion :

[as_yassine]

Bonjour tout le monde !
J'ai un Etat client et un sous Etat produit.

J'ai besoin d'un code en VBA pour masquer le sous etat produit si il est vide ainsi affiché un message que le sous etat produit est vide par exemple
« le client n’ayant aucun produit ! »
dans l Etat principale client

Merci d’avance

[Robert1957]

Bonjour as_yassine,

C'est dans l’événement Sur aucune donnée de ton sous état que tu peux mettre le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

me.visible = false

Même principe pour le message.

Bonne journée

[as_yassine]

Merci Robert1957,
Mais je n’ai pas compris le code si possible de mettre le code complet, parce que je suis débutant en VBA.
Merci pour votre aide

[Robert1957]

Bonjour as_yassine,
Dans ton sous état en mode création dans Feuille de propriétés, dans l'onglet événement sur la ligne Sur aucune données tu cliques sur les 3 petits points et Access va t'afficher la fenêtre VB au bon endroit. Tu inscrits le code que je t'ai mis et ton sous état s'il n'a pas de donné ne sera pas affiché. Pour le message si tu n'es pas à l'aise avec VB ça va être un peu plus compliqué étant donné que je ne connais pas la structure de ton état je ne peux te donner un code tout fait.

Bonne journée

[as_yassine]

Bonjour Robert1957,
j'ai un peu d notion sur VBA je peux comprend le code, concernant mon etat se compose d’un etat client et un sous etat produit sous forme un tableau les deux etats appartiennent à des table différents (table client et table produit).
Alors lorsque un client ne possède aucun produit l etat doit contiennent que etat de client mais au place de l etat produit je veux afficher un message que ce client n’a aucun produit
Merci infiniment Mr Robert1957

[Robert1957]

Bonjour as_yassine,
En regardant une autre fois la discussion je crois que ce que tu veux vraiment se ferais plus comme suit: Sur l'événement Au formatage de ton sous état tu pourrais mettre un test sur les champs. Ici je suppose que ton sous état a 3 champs. Tu ajoutes un étiquette qui dirait "Aucune donnée" que tu mets invisible et les 3 champs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
 
    If IsNull(Me.Champ1) And IsNull(Me.Champ2) And IsNull(Me.Champ3) Then
        Me.Étiquette1.Visible = True
        Me.Champ1.Visible = False
        Me.Champ2.Visible = False
        Me.Champ3.Visible = False
    Else
        Me.Étiquette1.Visible = False
        Me.Champ1.Visible = True
        Me.Champ2.Visible = True
        Me.Champ3.Visible = True
    End If
 
 
End Sub

Le résultat ressemblerait au miniature.

Bonne journée

[as_yassine]

Bonjour Robert1957
j'ai besoin du code pour créer un bouton pour parcourir des photos sous VBA Access, j’ai déjà un champ "photo_bénéficiaire" dans la table "bénéficiaire", ce bouton se sera dans le formulaire du table bénéficiaire "F_bénéficiaire".
et merci d’avance pour votre aide

[Robert1957]

Bonjour as_yassine,

Je crois que tu devrais partir une autre discussion. Ce n'est pas la même chose ce que tu me demandes. De plus il faudrait que tu précises un peu ta demande. Quel genre de champ tu as? Les photos sont sur le disque ou dans la table tu veux parcourir les photos pour les regarder ou tu dois faire autres choses après etc... Tu auras de meilleures réponses si tu fais cela.

Bonne journée