Discussion :

[challe1976]

Bonjour,

J'essaie d'exécuter une requête avec un formulaire Access et ça me dit impossible.

Il faut que j'inscrive une date et ensuite cliquer sur le bouton Exécuter requête

Pouvez-vous me dire quel est le problème ?

Merci,

Catherine

Voici mon 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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Option Compare Database
 
Private Property Get pDateDebut() As Date
    pDateDebut = txtDateDebut.Value
End Property
 
Private Function validerParametres() As Boolean
 
    validerParametres = True
 
    If IsNull(txtDateDebut.Value) Or IsEmpty(txtDateDebut.Value) Then
        validerParametres = False
        '9902 - Le paramêtre {0} est obligatoire.
        GestionMessage.MessageInformation 9902, "validerParametres", "date de début"
    End If
 
 
End Function
 
Private Sub btnExecuterRequetes_Click()
 
 
    If validerParametres Then
 
        obtenirDonneesVACAT
 
        MsgBox "Exécution terminé"
 
    End If
 
End Sub
 
Private Sub obtenirDonneesVACAT()
 
    Dim qdf As QueryDef
    Set qdf = CurrentDb.QueryDefs("VACAT")
 
    'Paramètres
    qdf.Parameters("dat_paimt").Value = pDateDebut
 
    'Exécuter la requête
    qdf.Execute
 
End Sub

[argyronet]

Bonjour,

On n'exécute pas une requête SELECT, on l'ouvre...

• soit pour la parcourir dans un Recordset
• soit on l'ouvre dans l'instance Access pour la visualiser

Tu ne précises pas l'essentiel et donc, il est difficile de t'orienter.

Quoi qu'il en soit, ton code prend une tournure bien complexe pour le peu à faire.

Donc quel est l'objectif, ouvrir ou bien parcourir ?
Si c'est ouvrir, il faut changer de méthode...

Argy