Discussion :

[Maxsen]

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

[Lou Pitchoun]

Salut,

Commençons par le début :

Code :

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

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

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

Code :

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

 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.

[Maxsen]

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 ?

[Maxsen]

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

Code :

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

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.