Discussion :

[Remus91]

Bonjour,
Je vous contact aujourd'hui car j'ai une question à vous poser et j'aurais besoin de vos conseils.

J'ai crée une Sub : gestion_alerte
Dans cette Sub j'ai un recordset qui vas sélectionner une table demande_de_service, dans mon select je n'applique pas de Where.

J'aimerais que quand je clic sur un bouton de mon formulaire, que cela m'applique un Where à mon recordset déclaré précédement dans ma Sub "gestion_alerte".

J'ai plusieurs boutons, donc plusieurs Where à programmer, mais je ne vois pas comment je pourrais réaliser la chose.

Merci de vos conseils.
Cordialement,
Rémy

[Remus91]

Bonjour
N'arrivant pas à résoudre mon problème avec la méthode que je vous est exposé dans le poste précédent, j'ai pensé à quelque chose d'autre qui est ceci :

Action bouton :

Code :

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

1
2
3
Private Sub btn_relance_resp_op_snecma_Click()
calcul_alerte ("alerte_1")
End Sub

Sub gestion alerte :

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
 
    Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim SQL, WHERE As String
 
    SQL = "Select * From demande_de_service"
 
Select Case Type_alerte
 
    Case "alerte_1"
 
    WHERE = " where "
 
    Case "alerte_2"
 
End Select
 
   SQL = SQL + WHERE
 MsgBox (SQL)
' Ouverture de la base de données
bdd = ActiveWorkbook.Name
Set db = DBEngine.OpenDatabase(".\suivi_vente_prestation.mdb")
 
' Ouverture du recordset
Set rst = db.OpenRecordset(SQL, SQL_alt1, dbOpenForwardOnly, dbReadOnly)
 
' Fermeture du Recordset
rst.Close

comme ont peut le voir je me suis servie des cases pour identifier les paramètres de chaque bouton.
Dans le case de l’alerte_1 je doit construire un Where pour ensuite l’ajouter à ma variable afin de construire ma requête SQL.
Cependant dans mon Where je doit récupérer les informations d’une autre table mais je ne vois pas comment je pourrais l’utiliser dans mon Where, second recordset ?

Auriez vous une suggestion à me faire ?

[fgiambelluco]

Bonjour
Si le but des boutons et de filtrer le formulaire, il vaut mieux se contenter d'appliquer un filtre à la source du formulaire

Code :

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

DoCmd.ApplyFilter '... voir l'aide

[Remus91]

Merci de prêter attention à ma requête.
Les action de mes boutons en pour but de m'aider à construire le critère Where de ma requête SQL.

Dans mon alerte 1 un je doit prendre des éléments de plusieurs table, les calculer et afficher le résultat dans une Textbox.

Alerte 2 même principe que l’alerte 1 avec d’autre table pour calculer et afficher.

Dans aucun cas je ne filtre quelque chose, je cherche juste comment construite mes différent Where pour les intégrer dans mes cases (1 case = 1 alerte).