Discussion :

[adriennoob]

Bon la c'est la galère Je vais essayer de m'expliquer correctement.

Je travail sur la gestion des pièces de rechange dans mon entreprise.

Dans ma base j'ai une table mouvement avec le "N°pièce"(en clé primaire) et la "localisation" de la pièce dans l'entreprise (en clé primaire aussi).

--> Ensuite
J'ai deux formulaires :
- un formulaire de recherche (pour rechercher des pièces de rechange)
- et un formulaire pour saisir une sortie de pièces du stock, avec 2 listes déroulante (N°pièce et localisation)

Dans mon formulaire de recherche je peux rechercher une pièce avec plusieurs critères de sélection. Ensuite je peux double cliquer sur un résultat et ouvrir le "formulaire de sortie de stock".
Sauf que voila, je n'arrive pas en ouvrant le formulaire à récuperer dans ma liste de résultat "du formulaire de recherche" le N°pièce et la localisation et à les appliquer dans mon formulaire "sortie de stock" dans mes deux listes déroulante N°pièce et Localisation.

Merci d'avance

Code :

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

1
2
Private sub listeresultat_dblclick(cancel as integer)
DoCmd.OpenForm " Sortie de stock", acNormal, , "[N°pièce] = "&Me.listeresultat

[Jeannot45]

De quel type est l'info N°Piece ?
S'il est de type AlphaNumérique, il te faut utiliser des quotes dans la syntaxe :

Code :

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

1
2
Private sub listeresultat_dblclick(cancel as integer)
DoCmd.OpenForm " Sortie de stock", acNormal, , "[N°pièce] = '" & Me.listeresultat & "'"

[adriennoob]

N° pièce est alpha numérique.
En fait hier j'ai été un peux bousculer pour poser ma question alors je vais essayer de te la répéter pour que tu comprenne.
J'ai pris mon code et j'ai essayer plusieurs chose mais comme je débute en VBA je suis perdu.

Code :

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

1
2
3
4
5
6
7
8
9
Private sub listeresultat_dblclick(cancel as integer)
 
'Copie la valeur de la liste de résultat dans la liste déroulante du formulaire sortie de stock 
"Frm de recherche"![listeresultat]!N°pièce.value = "sortie de stock"!cboN°pièce.value
 
"Frm de recherche"![listeresultat]!localisation.value = "sortie de stock"!cboN°localisation.value
 
'ouvrir le formulaire sortie de stock en le positionnant sur N°pièce
DoCmd.OpenForm " Sortie de stock", acNormal, , "[N°pièce] = '" & Me.listeresultat

Bon en espérant que tu ne te moque pas. Merci de prendre le temps de répondre

[Jeannot45]

Je ne comprends pas tout à fait la logique de ton Code. Tu veux ouvrir un formulaire "Sortie de Stock" et ne même temps, tu affectes des valeurs du formulaire "Sortie de Stock" (cela sous entend qu'il soit déjà ouvert) à des contrôles d'un autre formulaire ???

Peux-tu clarifier la situation

D'autre part dans le code :

Code :

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

1
2
'ouvrir le formulaire sortie de stock en le positionnant sur N°pièce
DoCmd.OpenForm " Sortie de stock", acNormal, , "[N°pièce] = '" & Me.listeresultat

Il y a un espace avant le mot Sortie dans le nom du formulaire. Est-ce Normal ?