Discussion :

[lacassl]

bonjour

ça fait quelque temps que je chercher mais je ne trouve pas

Ce code SQL fonction :

Code :

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

1
2
3
SELECT Articles.CODEART, Articles.CODEART
FROM Articles
WHERE (((Articles.CODEART) Like "BPX8*"));

j'ai bien ma liste déroulante avec tous les article commença par "BPX8"

mais j'aimerai que à la place de "BPX8" il y ai un lien sur un champ de texte

j'ai essayé le code suivant mais sa marche pas la liste est vide

Code :

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

1
2
3
SELECT Articles.CODEART
FROM Articles
WHERE (((Articles.CODEART) Like "[Formulaires]![Passerelle]![Nom]*"));

Passerelle étant le nom de mon formulaire et Nom étant le nom de mon champ texte

merci d'avance de votre aide

j’espère être claire

laurent

[bertiny]

Çà ne marche pas parce la partie

Code :

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

 Like "[Formulaires]![Passerelle]![Nom]*"

produit une valeur numérique qui est l'ID des valeurs des données de ta liste déroulante. Ce champ est à priori caché mais c'est le champ de connexion.

[lacassl]

merci de ta réponse bertiny

je vient de vérifier je n'ai pas de ID dans ma table article

[bertiny]

Essaies voir

Code :

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

1
2
3
SELECT Articles.CODEART
FROM Articles
WHERE (((Articles.CODEART)="[Formulaires]![Passerelle]![Nom]"));

En exécutant ta requête ton formulaire doit être ouvert bien évidemment avec une valeur dans la liste déroulante.
Cdlt

[lacassl]

c'est vide aussi

[bertiny]

Quel est le type de données de ton champ CODEART?

[lacassl]

c'est du texte court

[bertiny]

Peut-on avoir une capture (une image) de ta table et de ta requête en Mode création?

[madefemere]

Bonjour,

Pour utiliser le champ "Nom" de ton formulaire, il faut le passer comme "variable", donc le sortir du code SQL :
Le code SQL serait :

Code :

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

1
2
3
 SELECT Articles.CODEART
FROM Articles
WHERE (((Articles.CODEART) Like  [Formulaires]![Passerelle]![Nom] & "*"));

Cordialement.

[lacassl]

merci madefemere de ta réponse elle fonctionne presque, je dit presque car je me trouve du coup confronté a un autre problème dans mon formulaire cela doit s’appliquer a toute mais ligne de "détail"

comme l'a demander bertiny je vous joint des images pour mieux comprendre le résultat souhaité"

formulaire en mode création :


formulaire capture 1:



formulaire capture 2:



Table Article:



requette mde création et sql :





dans la capture 1 le résultat afficher est bien celui souhaité
mais dans la capture 2 on a le résulta de la capture 1 alors qui doit changer car chaque ligne a une valeur "nom" différente, une idée pour modifier ça?

[tee_grandbois]

Bonjour,
il faut utiliser l'évènement GotFocus de ta zone de liste pour mettre à jour le contenu en fonction de la valeur de Nom :
(ZoneDeliste est le nom supposé de ta zone de liste)

Code :

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

1
2
3
4
 
Private Sub ZoneDeListe_GotFocus()
Me.ZoneDeListe.RowSource = "SELECT Articles.CODEART FROM Articles WHERE Articles.CODEART Like " & Me.[Nom] & "*;"
End Sub;

[lacassl]

merci tee_grandbois de ta réponse

Cela marche presque j'ai une erreur de syntaxe mais dans le message on voit bien le changement de la variable nom qui varie comme il le faut entre chaque ligne

mon code vba

Code :

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

1
2
3
4
Private Sub ChoixForcé_GotFocus()
Me.ChoixForcé.RowSource = "SELECT Articles.CODEART FROM Articles WHERE Articles.CODEART Like " & Me.[Nom] & "*"
 
End Sub

message d'erreur

[tee_grandbois]

Oui, il manque les quotes :

Code :

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

1
2
3
4
Private Sub ChoixForcé_GotFocus()
Me.ChoixForcé.RowSource = "SELECT Articles.CODEART FROM Articles WHERE Articles.CODEART Like """ & Me.[Nom] & "*"""
 
End Sub

[Invité]

Bonsoir,

Code :

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

1
2
3
4
*
Private Sub ZoneDeListe_GotFocus()
Me.ZoneDeListe.RowSource = "SELECT Articles.CODEART FROM Articles WHERE Articles.CODEART Like '" & Me.[Nom] & "*';"
End Sub;

[bertiny]

Essaie de retoucher ainsi

Code :

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

1
2
3
4
Private Sub ChoixForcé_GotFocus()
Me.ChoixForcé.RowSource = "SELECT Articles.CODEART FROM Articles WHERE Articles.CODEART Like " & Me.[Nom] & "*"""
 
End Sub

[lacassl]

merci ça marche du feu

les deux code de tee_grandbois et dysorthographie fonctionne

merci tout de même a toi bertiny

4 semaine de recherche et grasse a vous tous je l'ai résolut en 1 journée

encore 1000 merci à tous

[Invité]

Code like 'string*' :

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

Like '" & Me.[Nom] & "*'"

[lacassl]

heu en fait j'ai crier victoire trop vite

j'avais pas vue hier mais ça me change toute les valeurs dans toute les listes, comment les rendre indépendante à chaque ligne

captures du résultat

[lacassl]

c'est bon j'ai réussie j'ai juste mise une source de contrôle sur la liste

resultat obtenue :

[madefemere]

Bonjour,

Pour ton information, ce comportement est "typique" dans un champ indépendant des formulaires en continu sur Access.
Et effectivement tout le monde présente ses données comme tu m'as fait : un champ pour la sélection et un autre pour afficher la valeur.

Bonne continuation