Executer Action suivant Variables

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:

---

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

Salut,

Commençons par le début :

Code:

---

Q1 = "SELECT [n° Bon Consigne] from Mouvement where [n° Bon consigne] = Me![NB1];"

---

Là je doute que cela fonctionne.
Essaie plutôt :

Code:

---

Q1 = "SELECT [n° Bon Consigne] from Mouvement where [n° Bon consigne] = " & Me![NB1]

---

Ensuite, Si la requête existe : supprime là avant de la recréer.

;)

merci pour ton aide rapide
je vais parcourir le tuto.
En revanche je ne comprends pas pourquoi il faut supprimer une requête avant de la recréer.

S'agit-il d'un problème d'initialisation ? Pourquoi ne pas stocker la requête dans une variable (je croyais l'avoir fait) et initialiser la variable à 0 ?

Après lecture tu tuto mais surtout lecture du forum Requete et SQL
j'ai trouvé comment faire

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim Q1 As String Dim NbEnregistrements As Long Dim rs As DAO.Recordset     Q1 = "SELECT [n° Bon Consigne] from Mouvement where [n° Bon consigne] = " & Me![NB1] Set rs = CurrentDb.OpenRecordset(Q1) rs.MoveLast NbEnregistrements = rs.RecordCount

---

et là je capte bien si il y a un numéro de Bon ou pas. Seul souci c'est que par défaut s'il n'y a pas d'enregistrement j'ai un message formaté du type Aucun enregistrement en cours. J'aurais voulu pouvoir maîtriser l'erreur pour mettre un autre message. Je vais chercher.