SQL et VBA : Requete de selection Fermé

Question

Bonjour,

je débute vraiment en VBA et pour ainsi dire je comprend rien.

Je dois réaliser une fonction paramétrée par une date qui retourne le MoisComptable de celle ci.

Le mois comptable est défini dans une table :
mois	datedebmois	datefinmois
1	01/01/2007	26/01/2007
2	27/01/2007	23/02/2007
3	24/02/2007	30/03/2007
4	31/03/2007	27/04/2007
5	28/04/2007	25/05/2007
6	26/05/2007	29/06/2007
7	30/06/2007	27/07/2007
8	28/07/2007	31/08/2007
9	01/09/2007	28/09/2007
10	29/09/2007	26/10/2007
11	27/10/2007	30/11/2007
12	01/12/2007	31/12/2007
Ca fait des mois qui diffèrent des mois de l'année classique.

En gros je veux donc executer la requete suivante sous VBA :

PARAMETERS param_date DateTime;
SELECTmois
FROM calendrier
WHERE datedebmois<=(param_date) and datefinmois>=(param_date);

Donc comment puis je créer la fonction :
Function MoisComptable(DateParam As Date) As Integer

freto · Answer

Bonjour

Function MoisComptable(DateParam As Date) As Integer
Dim res as String
Dim ret as Integer
res=DLookUp ("[mois]","[Calendrier]","[datedebmois]<=" & DateParam &" and datefinmois>=" & DateParam)
ret=CINT(res)
MoisComptable = ret
End Function



Voili voilou, peut être une erreur apparaitra, c'est donc qu'il manque des '. Redis moi si sa marche ou pas

SQL et VBA : Requete de selection

1 réponse

Discussions similaires