Discussion :

[curt]

Bonjour à tous,

dans une base, j'ai une liste modifiable avec la gestion de l'évènement 'si absence dans liste'
qui ouvre un formulaire pour créer l'enregistrement avec d'autres données (date, n° série,etc).

Je voudrais qu'en fermant ce formulaire, la liste déroulante m'affiche directement la
valeur créée dans le formulaire (du style MaListe=OpenArgs).

Je parviens à faire ça avec le n°ID (1ère colonne masquée de la liste), mais pas avec le champ
concerné.

Si quelqu'un avait une idée...

Bonne journée.
Curt

[curt]

Bonsoir,

faute de réponse, j'ai creusé le problème et voilà le résultat :

J'utilise le code de la faq Comment selectionner une ligne dans une zone de liste en fonction du texte d'une de ses colonnes ? ci-dessous (je l'ai adapté à mes besoins):

1/ Dans un Module :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Compare Database
Option Explicit
 
Function Selectionner(ListeVisaIng As ListBox, Colonne As Integer, Chercher As String)
 
Dim I As Integer
Dim Trouve As Boolean
 
For I = 0 To ListeVisaIng.ListCount - 1
    If ListeVisaIng.Column(Colonne, I) = Chercher And Not Trouve Then
        Application!ListeVisaIng.Selected(I) = True
 
End If
Next I

2/ Sur l'évènement Close de mon formulaire :

Code :

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

Selectionner Forms![FrmGestionDocument].Form![SFrmGestionIndice].Form.[ListeVisaIng], 1, openArgs

A la fermeture du formulaire, j'obtiens 'Erreur 13 - Incompatibilité de type'

OpenArgs me renvoi bien la valeur que je veux voir sélectionner dans ma liste à la fermeture du formulaire, mais rien à faire... l'erreur 13 est là.

Si quelqu'un a une idée....

Bonne soirée.
Curt

[User]

Incompatibilité de type !

Peut-être est-ce dû à un problème d'indice de colonne:

note que l'indice de la colonne commence à 0

es-tu sur de la valeur 1 pour le paramètre Colonne de ta fonction selectionner ?

Peut-être est-ce 0 ???

A toi

[curt]

Bonjour User,

j'y ai pensé. C'est bien la colonne 1 (en fait la 2ème colonne puisque la première contient la clé primaire et qu'elle est masquée =column(0) )

L'info à affiché se trouve donc bien sur la colonne 1.

Une autre piste ??

Curt

[Renardo]

Bonjour
Peut etre que tu essais d'entrer du texte dans un champ numerique

[curt]

Bonjour Renardo,

j'y ai pensé aussi, mais.... la colonne concerné de ma liste est bien du TEXTE et je rentre du TEXTE dans mon formulaire... c'est là le problème !!

Curt

[User]

Rebonsoir,

Dans ton code je ne vois pas à quoi sert ta variable trouve, car tu ne lui affecte pas de valeur...

D'autre part, dans ton code tu parcours tous les elements de ta liste, peut-être rencontre-il une valeur nulle ? (à voir)

Une première chose à faire serait de sortir de la boucle quand la valeur a été trouvée.
bout de code:

Code :

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

1
2
3
4
5
6
7
8
For I = 0 To ListeVisaIng.ListCount - 1
 
    If ListeVisaIng.Column(Colonne, I) = Chercher Then
        ListeVisaIng.Selected(I) = True
        exit for
   End If
 
Next I

note que j'ai changé.

Code :

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

Application!ListeVisaIng.Selected(I) = True

pour

Code :

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

ListeVisaIng.Selected(I) = True

A+

[curt]

Bonsoir et merci,

mais ça ne fonctionne pas... toujours l'erreur 13.
Je creuse le sujet pendant la semaine, mais si quelqu'un avait une idée...

Bonne semaine à tous.
Curt