Discussion :

[isabelle b]

Bonjour

J'ai besoin de votre aide pour compléter la valeur par défaut d'une zone déroulante à l'ouverture d'un formulaire.

Cette liste propose le ou les noms des clients du contrat que j'établis

Lorsqu'il n'y a qu'un seul client, je voudrais que par défaut elle se remplisse avec son nom et qu'elle reste à compléter si j'ai plusieurs clients

je suppose qu'il faut que je vérifie d'abord le nombre de clients vient un cptedom ou une requête, puis si le résultat est 1, elle se remplisse, et dans le cas contraire elle laisse le soin à l'utilisateur de choisir

mais je ne sais pas comment l'exprimer

Merci de votre aide

isabelle

[Renardo]

bonjour
essai

Code :

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

1
2
3
If Me.Modifiable16.ListCount = 1 Then
Me.Modifiable16 = Me.Modifiable16.ItemData(0)
End If

remplace modifiable16 par le nom de ta liste

[isabelle b]

Voici le code que j'ai mis sur ouverture du formulaire

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Open(Cancel As Integer)
 
    If IsNull(Me.ZL_MO) And Me.ZL_MO.ListCount = 1 Then
    Me.ZL_MO = Me.ZL_MO.ItemData(0)
End If
 
End Sub

Il me dit qu'il est impossible de donner une valeur à cet objet

VOici le contenu de la liste

Code :

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

1
2
3
SELECT T_mo.ID_Mo, T_mo.MO, T_ChantierMo.ID_Chantier
FROM T_mo INNER JOIN T_ChantierMo ON T_mo.ID_Mo = T_ChantierMo.ID_Mo
WHERE (((T_ChantierMo.ID_Chantier) Like [Formulaires]![F_Contrat]![ID_CHANTIER]));

S'il y a plusieurs clients (mo) tout ce passe bien, mais si la liste ne contient qu'un client (mo), il me dit qu'il ne peut pas attribuer de valeur à l'objet

merci à toi

[Renardo]

essai sur la procedure activation

Code :

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

1
2
3
IF Me.ZL_MO.ListCount = 1 Then
    Me.ZL_MO = Me.ZL_MO.ItemData(0)
End If

sinon a tu des entetes sur ta liste?

[isabelle b]

non pas d'entête

tu as enlevé le test pour savoir si la liste est vide

est ce volontaire ?

[isabelle b]

Ca marche

génial

merci de ton aide

[Renardo]

le test ne sert a rien puisqu'il faut au moin un enregistrement dans la liste pour que la condition se face (si la liste est vide on peut rien afficher)