Transformer une Req SQL en code VBA

Version imprimable

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

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

11/09/2007, 21h43
alexkickstand

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

Alex
11/09/2007, 22h02
nomade333

Bonsoir,
L'ecrire en VBA!
Merci

Code:

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 ''

11/09/2007, 23h02
nomade333

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

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:

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:

1 2 Call mon_module.requete_test()
puis en cliquant sur ton bouton il devrait appeler ton module et lancer la fonction.

Alex

12/09/2007, 01h47
nomade333

Merci
12/09/2007, 03h53
Invité

Bonjour

Si cela te convient penses à cliquer sur :resolu:

Starec