Discussion :

[VIRGINIE87]

bjr
je souhaite à partir d'une zone de liste dans le formulaire 1 ouvrir seulement l'enregistrement correspondant dans le formulaire 2.
voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande43_Click()
If ListingFicheProduitDecore.ListIndex = -1 Then
   MsgBox "Veuillez sélectionner une fiche produit à modifier "
 
Else
Dim NoEnreg As String
NoEnreg = Me.ListingFicheProduitDecore.Value
DoCmd.OpenForm "F2", , , "N°=" & NoEnreg
End If
End Sub

le filtre nefonctionne pas
ou ai je fait une erreur
merci

[Heureux-oli]

Ajoute un

Code :

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

Debug.print NoEnreg

juste derrière l'attribution de la valeur.

Code :

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

NoEnreg = Me.ListingFicheProduitDecore.Value

[VIRGINIE87]

ok ça fonctionne trés bien
mais à quoi cela correspont il ?
encore merci

[Heureux-oli]

En fait, ne sachant pas d'où pouvait exactement venir le problème, je t'ai demandé de mettre un debug.print pour connaître la valeur assignée à la variable.
Ce n'était absolument pas pour résoudre le problème.

Lorsque l'on veut connaitre la valeur d'une ou de plusieurs variables, il suffit de mettre un Debug.print dans le code et la variable est imprimée dans le fenêtre d'exécution.

Le fait que le problème soit disparu est un hasard.

[VIRGINIE87]

sinon tu n'as aucune idée sur l'origine de mon probléme?

[Heureux-oli]

Quel problème, puisque en ne faisant rien il n'y est plus !

[VIRGINIE87]

c'était pour comprendre
c'est bien que cela fonctionne mais je ne sais pas vraiment pourquoi et moi j'aime bien comprendre pour évoluer

[Heureux-oli]

C'est qu'il n'y avait pas d'erreur désolé!

[Lou Pitchoun]

Salut,

Tu t'embêtes pour rien
Il est plus simple d'écrire :

Code :

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

1
2
3
Else
DoCmd.OpenForm "F2", , , "N°=" & Me.ListingFicheProduitDecore.Value
End if