Discussion :

[Julien42]

Bonjour à tous,

je me tourne une nouvelle fois vers vous dans l'espoir de solutionner mon problème.
Voila, j'ai créé un formulaire dans lequel j'ai intégré une liste nommée "Liste45" qui m'affiche l'ensemble de mes N° de factures dans la colonne 0 et la date de création dans la colonne 1. Pour ce faire j'ai donc créé une requête et tout fonctionne jusqu'ici.

A cette liste j'ai integré le code suivant afin d'ouvrir sur double clic d'une ligne de la liste, un autre formulaire nommé "Approbation NC" et dans lequel je souhaite que la valeur de la colonne 0 s'affiche dans le champ "Texte143" du formulaire "Approbation NC" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Liste45_DblClick(Cancel As Integer)
Dim stDocName, Strcriteria As String
    Dim I As Integer
    StrIn = ""
    For I = 0 To Me.Liste45.ListCount - 1
            If Liste45.Selected(I) Then
                Strcriteria = Me.Liste45.Column(0, I)
            End If
    Next
    stDocName = "Approbation NC"
    DoCmd.OpenForm stDocName, , , "[Texte143]" = " & Strcriteria"
End Sub

Lorsque je double clic sur une ligne de la liste, le formulaire ''Approbation NC" s'ouvre, mais la valeur de la colonne 0 correspondant à la ligne sélectionnée ne s'affiche pas dans le champs "Texte143".

Sauriez vous me dire comment remédier à cela, et me dire comment et où l'intégrer dans mon code.

Merci de votre aide

[mout1234]

Bonsoir,

Attention à ne pas confondre les notions. La condition Where que tu utilises à l'ouverture de ton formulaire fait référence à la source de ce dernier. La syntaxe correspond à celle d'une clause WHERE appliquée à cette source.

Mais dans ton code, tu fais références à une zone de texte et non à un champ de la source de ton formulaire...

En passant, il est vivement conseillé de nommer explicitement tout objet référencé dans le code ...

Par ailleurs la syntaxe n'est pas bonne:
"[Texte143]" = " & Strcriteria" représente une comparaison des 2 chaines de texte "[Texte143]" et " & Strcriteria" ... tu demandes en fait si ces deux chaines sont égales ...et la valeur est donc false

Il aurait fallu écrire

Code :

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

"[Texte143] = " & Strcriteria

ou plutôt

Code :

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

"[Texte143]" = '" & Strcriteria & "'"

(car il s'agit d'une valeur de type texte)

Si ton but est de filtrer le formulaire ouvert en affichant l'enregistrement dont le champ affiché dans la zone texte143, il faudrait remplacer texte143 par le nom du champ source qu'il affiche.

Code :

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

"[MonChamp]" = '" & Strcriteria & "'"

Enfin si ton contrôle est indépendant, tu ne peux pas utiliser la condition Where... tu peux par contre passer par l'argument OpenArg...

[Julien42]

bonjour,

merci de votre réponse.

J'ai essayé avec vos propositions mais cela ne fonctionne pas. Je dois avouer que je suis loin d'être un expert en access et vba.
Pourriez vous me compléter le code que j'utilise afin que celui-ci réponde à mes attentes ou bien me proposer quelque chose d'autre.
Pour mémoire, j'ai une zone liste nommée "Liste45" et je souhaite que lorsque je double clic sur une ligne de la liste, un formulaire nommé "Approbation NC" s'ouvre et que la valeur de la colonne 0 de la ligne double cliquée s'affiche dans le champ "Texte143" du formulaire qui s'est ouvert. L'ouverture du formulaire s'effectue correctement au double clic mais la valeur ne se colle pas dans le champ "Texte143".

D'avance merci de votre aide