Discussion :

[yomaneoz]

salut
je vai vous expliquer mon problème :
j'ai un formulaire où ya une liste déroulante nommée num_dordre qui contient plusieurs numero d'ordres venant d'une table nommée courier et un bouton pour lancer la recherche.
je voudrai qu'en choisissant un numero d'ordre et en cliqu'on sur le bouton avoir le formulaire où ce numero d'ordre existe .
pour bien expliquer cette recherche j'ai déjà créer des formulaires dont j'aimerai afficher les resultats dedans .
mon embarras est comment exprimer cette phrase ====>

Code :

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

Si le numero d_ordre existant dans le formulaire par exemple Festival égal au numéro d'ordre que j'ai choisi ----> ouvre moi ce formulaire en affichant dedans les resultats .

voilà j'ai arriver à écrire ces lignes de code qui suivent :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Commande6_Click()
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Festival1"
stLinkCriteria = "[num_dordre]=" & "'" & Me![Modifiable2] & "'"
If Forms!Festival1!num_dordre = stLinkCriteria Then
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
 End Sub

je crois que ya quelque chose de logique dans ce code mais on me souligne cette ligne là :

Code :

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

If Forms!Festival1!num_dordre = stLinkCriteria Then

je c'est pas pourquoi quelqu'un pourrais t'il m'aider svp

je souhaite être bien expliquée

[Gabout]

Bonjour,

Si j'ai bien compris, il te faut vérifier que la valeur de ta liste déroulante est bien comprise dans la table ou de la requête sous-jacente de ton formulaire.

Donc en partant comme hypothèse que la table sous-jacente de ton formulaire s'appelle tblFEST, cela pourrait donner

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Commande6_Click()
  Dim stDocName As String
  Dim stLinkCriteria As String
  stDocName = "Festival1"
  stLinkCriteria = "[num_dordre]=" & "'" & Me![Modifiable2] & "'"
  If dcount("*","tblFEST",stLinkCrteria)>0 then
    DoCmd.OpenForm stDocName, , , stLinkCriteria
  else
    Msgbox "Pas de correspondance"
  End If
End Sub

A tester

[yomaneoz]

merci bcp
ça m'affiche les resultats contenus dans la table courier dans mon formulaire mais au même temps quand je tape un numero qui n'existe pas dans la telle table cette partie :

Code :

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

1
2
3
Else
    MsgBox "Pas de correspondance"
  End If

ne s'execute pas et le formulaire s'affiche vide
ya une solution pour ce cas !!
merci

[yomaneoz]

bon j'ai trouvé ce qui doit être changé dans ton code enfin
il faut mettre dans la condition if ( >=1) au lieu de mettre (>0)
et ça a bien marché
merci en tout cas d'avoir m'aider