SQL et VBA : Requete de selection
Mythrandil
Messages postés
6
Date d'inscription
Statut
Membre
Dernière intervention
-
freto Messages postés 1543 Date d'inscription Statut Membre Dernière intervention -
freto Messages postés 1543 Date d'inscription Statut Membre Dernière intervention -
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 :
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 :
Donc comment puis je créer la fonction :
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
A voir également:
- SQL et VBA : Requete de selection
- Logiciel sql - Télécharger - Bases de données
- Excel compter cellule couleur sans vba - Guide
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Mkdir vba ✓ - Forum VB / VBA
1 réponse
Bonjour
Voili voilou, peut être une erreur apparaitra, c'est donc qu'il manque des '. Redis moi si sa marche ou pas
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
