Discussion :

[atlantideD]

SVP, Besoin aide sur les fonctions


J'ai désespérement d'obtenir de l'aide sur les fonctions.

Je voudrais savoir comment exécuter ou insérer une fonction dans une requete???

La fonction est la suivante :
Public Function PremierJourSemaine(ByVal numSemaine As Byte, ByVal annee As Integer) As Date

Dim d As Date
Dim numS As Integer

' premier jour de l'année
d = DateSerial(annee, 1, 1)

' numéro de la semaine du 1er janvier
numS = DatePart("ww", d, vbMonday, vbFirstFourDays)

' si le 1er janvier fait partie de la dernière semaine de l'année précédente
' alors passe à la semaine suivante (la première de la nouvelle année)
If numS <> 1 Then d = DateAdd("d", 7, d)

' calcule le premier jour de la première semaine de l'année
d = DateAdd("d", 1 - Weekday(d, vbMonday), d)

' ajoute (numSemaine-1) semaines
PremierJourSemaine = DateAdd("ww", numSemaine - 1, d)

End Function

Ou faut il que j'insere cette fonction, SVP ???


atlantideD
Voir le profil public
Envoyer un message privé à atlantideD
Trouver plus de messages par atlantideD
Ajouter atlantideD à votre liste d'amis




Bonjour,

Dans ta requête tu as un champ date portant le nom évocateur de date.
Dans un nouveau champ tu inscrits:


Code :
MaRechercheremierJourSemaine([date])
Cordialement.

Ps:Au préalable dans un module tu inscrits la fonction



oui j'ai un module où j'ai copié collé la fonction précédente...
Mais comment insérer dans la requete ce module??



Il faudrait qu'en fonction de la semaine actuelle, il m'affiche la date du lundi de cette semaine actuelle.
J'ai donc créé un champ [Auj] qui m'affiche le num de la semaine actuelle

Auj: Format(Date();"ee")

Et après j'essaye d'appliquer ta formule :

MaRechercheremierJourSemaine([Auj])

Et ca ne marche pas. J'ai un message d'erreur qui me met :
"Fonction utilisée avec un nombre d'arguments incorrect dans l'expression 'premierJourSemaine([Auj])'

Ou est l erreur??

[timoth]

C'est quoi se post, tu tires ca d'ou???

Quelle est ta question exactement?
Ou faut-il mettre la fonction? Tu créés un "module" et tu la copies dedans. Ainsi tu peux l'utiliser dans ton code VB et tes requetes.

S'il y a une erreur, c'est que tu oublies de lui donner une information:

Code :

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

Public Function PremierJourSemaine(ByVal numSemaine As Byte, ByVal annee As Integer) As Date

Il faut écrire:

Code :

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

PremierJourSemaine("numero de semaine","année")

Si tu écris

Code :

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

MaRechercheremierJourSemaine([Auj])

il lui manque l'année!

Essaye de structurer tes posts, on est pas la pour un jeu de piste ! Et pense aux balises codes (le bouton # a droite) entre ton code VB. Merci

[atlantideD]

merci pour la réponse, malgré mon charabia dans mon message, je le reconnais.

Quand tu me dis :


"Il faut écrire:

Code :
PremierJourSemaine("numero de semaine","année") "

Ca veut dire que je dois avoir un champ : "n° de semaine" et un autre champ "année" ??

encore merci

[timoth]

oui, par exemple:

Code :

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

PremierJourSemaine(5,2007)

[atlantideD]

Excuse moi, mais je ne vois pas trop sous quelle forme je dois mettre le n° de semaine et l'année.
Cela doit correspondre à des champs??

Champ "numéro de semaine"
Champ "année" ??

MERCI

[atlantideD]

je pense avoir trouvé.
Merci