Discussion :

[lucas-18]

Bonjour,

Par un bouton de commande sur mon formulaire "frm_clients", j'ouvre un formulaire (sans source) "frm_locations_liste" qui contient un sous-formulaire "frm_locations_liste_sub".
Lorsque ce sous-formulaire est vide, je souhaiterais que le formulaire "frm_locations_liste" ne s'ouvre pas.

Voici la source de mon sous-formulaire :

Code :

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

1
2
3
SELECT tbl_locations.Reference_location, tbl_locations.Reference_robe, tbl_locations.Reference_client, [Nom] & ' ' & [Prenom] AS [Nom+Prénom]
FROM tbl_clients INNER JOIN (tbl_etiquettes INNER JOIN tbl_locations ON tbl_etiquettes.[Reference_robe] = tbl_locations.Reference_robe) ON tbl_clients.Reference_client = tbl_locations.Reference_client
ORDER BY tbl_locations.Reference_location, tbl_locations.Reference_robe;

J'ai bien essayé ce code sur ouverture de mon formulaire "frm_locations_liste" mais j'obtiens un message d'erreur :

Code :

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

1
2
3
4
5
6
Private Sub Form_Open(Cancel As Integer)
    If Forms!frm_locations_liste!frm_locations_liste_sub.Form.RecordsetClone.RecordCount = 0 Then
        MsgBox "Il n'y a pas de locations pour ce client.", vbInformation
        Cancel = True
    End If
End Sub

Le message d'erreur est Erreur d'exécution '2455'
La reference d'une expression à la propriété Form/Report n'est pas valide.

Merci pour votre aide.

[marot_r]

Bonjour.

Il risque de ne pas être évident de tester que le sous-formulaire est vide.

Comme ta source ne semble pas paramétrée, je pense que la solution la plus simple est de l'enregistrer dans une requête puis lors du click qui demande l'ouverture est de faire :

Code :

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

1
2
3
4
5
if dCount("*", "reqTaRequete")=0 then
    msgbox "Pas de données"
  else
    'Ouvrir le formulaire
end if

C'est moins élégant que de tester le sous-formulaire mais cela devrait marcher.

Une autre méthode consisterai à faire une gestion d'erreur (soit dans le code soit au niveau formulaire) et si tu reçois 2455, tu sais qu'il n'y a pas de données et tu gères en conséquence.

Là aussi moins élégant mais qui devrait fonctionner.

A+

[lucas-18]

Bonjour.

Il risque de ne pas être évident de tester que le sous-formulaire est vide.

Comme ta source ne semble pas paramétrée, je pense que la solution la plus simple est de l'enregistrer dans une requête puis lors du click qui demande l'ouverture est de faire :

Code :

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

1
2
3
4
5
if dCount("*", "reqTaRequete")=0 then
    msgbox "Pas de données"
  else
    'Ouvrir le formulaire
end if

C'est moins élégant que de tester le sous-formulaire mais cela devrait marcher.

Une autre méthode consisterai à faire une gestion d'erreur (soit dans le code soit au niveau formulaire) et si tu reçois 2455, tu sais qu'il n'y a pas de données et tu gères en conséquence.

Là aussi moins élégant mais qui devrait fonctionner.

A+

Merci mais j'ai oublié un détail.
Le click qui permet d'ouvrir le formulaire le fait en fonction d'un champ lié : "Reference_client"

Code :

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

1
2
3
4
5
6
7
Private Sub Location_Click()
Dim StDocName As String
 Dim StLinkCriteriA As String
 StDocName = "frm_locations_liste"
 StLinkCriteriA = "[Reference_client]=" & Me![Reference_client]
 DoCmd.OpenForm StDocName, , , StLinkCriteriA
End Sub

Donc, dans le Dcount, je pense qu'il faudrait faire référence au champ "Reference_client" ...

J'espère que tu m'as compris

[marot_r]

Oui, cela devrait probablement être quelque chose comme :

Code :

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

1
2
3
4
5
if dCount("*", "reqTaRequete", "[Reference_client]=" & Me![Reference_client])=0 then
    msgbox "Pas de données"
  else
    'Ouvrir le formulaire
end if

en supposant Reference_client numérique.

A+

[lucas-18]

Oui, cela devrait probablement être quelque chose comme :

Code :

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

1
2
3
4
5
if dCount("*", "reqTaRequete", "[Reference_client]=" & Me![Reference_client])=0 then
    msgbox "Pas de données"
  else
    'Ouvrir le formulaire
end if

en supposant Reference_client numérique.

A+

Génial ! Merci beaucoup marot_r !

[marot_r]

Si tu considères le sujet clos, merci d'appuyer sur le bouton en bas de discussion.

A+