Discussion :

[nomade333]

Bonsoir,
J'ai cette requête (Access):

Code sql :

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

1
2
SELECT DSum("Nz([Credit], 0)","tblDebitCredit","[Date]<=#" & Format([Date],"mm/dd/yyyy") & "# AND [compte]=" & [compte])-DSum("Nz([Debit], 0)","tblDebitCredit","[Date]=#" & Format([Date],"mm/dd/yyyy") & "# AND [compte]=" & [Compte]) AS Cumul
FROM tblDebitCredit;

Je ne connais pas le VBA, mais est il possible de la réecrire ou la transformer en VBA?
Merci par avance

[alexkickstand]

Salut est ce que tu veux simplement éxécuter ta requete depuis VBA ou veux tu l'écrire en VBA ?

Alex

[nomade333]

Bonsoir,
L'ecrire en VBA!
Merci

[alexkickstand]

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
'déclaration de tes variables
 
 'variable pour ouvrir la base de données
 Dim dba As Database
 
 'variable pour ouvrir les tables 
 Dim Enreg As Recordset
 
 'variables pour la requete
 Dim STR_SQL, STR_SQL1, STR_SQL2
 
 'Ouverture de la base de données "nom.mdb"
 Set dba = OpenDatabase("chemin_de_la_bdd_access\nom.mdb")
 
 'requete sql
 STR_SQL1 = "SELECT DSum("Nz([Credit], 0)","tblDebitCredit","[Date]<=#" & Format([Date],"mm/dd/yyyy") & "# AND [compte]=" & [compte])-DSum("Nz([Debit], 0)","tblDebitCredit","[Date]=#" & Format([Date],"mm/dd/yyyy") & "# AND [compte]=" & [Compte]) AS Cumul"
 STR_SQL2 = " FROM tblDebitCredit;"
 STR_SQL = STR_SQL1 & STR_SQL2
 
 'permet de débugger la requete si erreur
 Debug.Print STR_SQL
 
 'exécute la requete
 dba.Execute (STR_SQL)
 
 'ferme la base de données
 dba.Close

dans la forme c'est ca il faut part contre protéger tes guillemets dans STR_SQL1 aprés : STR_SQL1 = "
avec des ''

[nomade333]

Bonsoir,
Dois-je mettre ce code dans un module?
Merci

[alexkickstand]

re oui c'est la meilleure chose a faire tu insère un nouveau module puis tu le renomme par exemple : mon_module.

tu colles cette fonction dans ton module

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
 
sub requete_test()
 
'déclaration de tes variables
 
 'variable pour ouvrir la base de données
 Dim dba As Database
 
 'variable pour ouvrir les tables 
 Dim Enreg As Recordset
 
 'variables pour la requete
 Dim STR_SQL, STR_SQL1, STR_SQL2
 
 'Ouverture de la base de données "nom.mdb"
 Set dba = OpenDatabase("chemin_de_la_bdd_access\nom.mdb")
 
 'requete sql
 STR_SQL1 = "SELECT DSum("Nz([Credit], 0)","tblDebitCredit","[Date]<=#" & Format([Date],"mm/dd/yyyy") & "# AND [compte]=" & [compte])-DSum("Nz([Debit], 0)","tblDebitCredit","[Date]=#" & Format([Date],"mm/dd/yyyy") & "# AND [compte]=" & [Compte]) AS Cumul"
 STR_SQL2 = " FROM tblDebitCredit;"
 STR_SQL = STR_SQL1 & STR_SQL2
 
 'permet de débugger la requete si erreur
 Debug.Print STR_SQL
 
 'exécute la requete
 dba.Execute (STR_SQL)
 
 'ferme la base de données
 dba.Close
 
end sub

si tu veux éxecuter cette fonction depuis un formulaire, par exemple en cliquant sur un bouton

tu creer un bouton dans ton formulaire tu fais un clic droit dessus tu clique sur le premier lien du menu "créer évenement" ou "build event" puis apres tu clique sur "créer code" ou "code builder" la tu va saisir :

Code :

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

1
2
 
Call mon_module.requete_test()

puis en cliquant sur ton bouton il devrait appeler ton module et lancer la fonction.

Alex

[nomade333]

Merci

[Invité]

Bonjour

Si cela te convient penses à cliquer sur

Starec