Discussion :

[Snakes1]

Bonjour tous!
je voudrais avoir votre aide concernant un problème sur Access.
Je voudrais à partir d'un bouton envoyer un inputbox dans lequel l'utilisateur saisira un numero qui, après qu'il ait cliqué sur le "ok", sera utilisé comme critère de filtre dans une requête déjà constituée (nom de la requête: RECHERCHE REGLEMENT).
En gros, je souhaiterais faire un filtre dans une requete à partir de l'information renseignée dans le inputbox.
Trouver en dessous mon code et merci d'avance:

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
Private Sub Commande16_Click()
Dim police As String
police = InputBox("Entrer le N°Police SVP!", "Vérification N°Police")
If police = "" Then
While police = ""
police = InputBox("Entrer le N°Police SVP!", "Vérification N°Police")
    If police = "" Then
     MsgBox "Aucun N°Police a été saisi"
     Else
       DoCmd.ApplyFilter , "[NUM GAR_POL]=" & police
       DoCmd.OpenQuery "RECHERCHE REGLEMENT"
     End If
Wend
Else
    If Not IsNull(police) Then
         DoCmd.ApplyFilter , "[NUM GAR_POL]=" & police
         DoCmd.OpenQuery "RECHERCHE REGLEMENT"
    End If
 End If
 If police <> 0 Then
 DoCmd.ApplyFilter , "[NUM GAR_POL]=" & police
 DoCmd.OpenQuery "RECHERCHE REGLEMENT"
 End If
End Sub

[Robert1957]

Bonjour Snakes1,
Je ne crois pas qu'on puisse faire un filtre sur une requête. Cependant tu peux reconstruire ta requête à partir du InputBox.

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
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim strSQL As String
Dim vaInPutBox As Variant
 
vaInPutBox = InputBox("Entrer le N°Police SVP!", "Vérification N°Police")
If Not IsNull(vaInPutBox) And vaInPutBox <> "" Then
    strSQL = "Select TaTable.* From TaTable WHERE TaTable.TonChamp =""" & vaInPutBox & """"
    Set db = CurrentDb
    Set qdf = db.QueryDefs("TaRequête")
    qdf.SQL = strSQL
    DoCmd.OpenQuery "TaRequête"
    Set qdf = Nothing
    Set db = Nothing
End If

Les """ sont pour un champ texte sinon " est ok.

Bonne journée