Bonjour à tous,

Après lecture des différentes discussion, j'ai essayé plusieurs choses, mais je n'arrive pas à comprendre.

Mon problème est le suivant. J'ai un formulaire de sélection où je saisi dans un champ indépendant un numéro. Je veux ensuite (en cliquant sur un bouton) trouver si ce numéro existe dans une table. En fonction du résultat (existe ou existe pas) je veux éxécuter des actions différentes

voici le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub Commande7_Click()
On Error GoTo Err_Commande7_Click
 
 Dim stDocName As String
 Dim stLinkCriteria As String
 Dim q As QueryDef
 Dim Q1 As String
 Dim NbEnregistrements As Long
 
 Q1 = "SELECT [n° Bon Consigne] from Mouvement where [n° Bon consigne] = Me![NB1];"
Set q = CurrentDb.CreateQueryDef("TrouverBon", Q1)
 
 NbEnregistrements = DCount("*", "TrouverBon")
 
if NbEnregistrements = 1 then
   stDocName = "Req list mvt"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
else   
  msgbox "Désolé ce numéro n'existe pas"
end if
 
Exit_Commande7_Click:
    Exit Sub
 
Err_Commande7_Click:
    MsgBox Err.Description
    Resume Exit_Commande7_Click
End Sub
ça ne marche pas. J'ai un message d'erreur l'objet trouverBon existe déjà.
Merci de votre aide