Discussion :

[sniper2002]

Bonjour

j'ai crée une table en important des données, la table est composée de 4 chanmps dont un champ pour la date , je souhaite que pour chaque enregistrement obtenir un numero de semaine (5 ème champ) dans la même table.

je suis plus excel que acces, je pense que je dois m'adapter sur des nouvelles logiques.

est ce que c'est simple ou c'est compliqué à developper.

merci pour vos réponses.

[marot_r]

Avant Access 2010 il n'est pas possible de faire des calculs directement dans une table.

La solution classique consiste à faire une requête qui fait les calculs nécessaire et ne garder dans la table de base que des données brutes mais dans ton cas je procéderai ainsi :

1. Chargement des données dans la table
2. Lancement d'une requête de MAJ qui enregistre le résultat du calcul dans un champ de la table.

Sauf si tu change lavaleur contenue dans le champ date qui sert aux calcul de la semaine, dans ce cas là conserve la table et une requête d'interrogation qui fait le calcul.

Pour le calcul : utilise Format avec l'option w qui va te donner un nombre compris entre 1 et 53. Attention le calcul dépent d'un paramêtre qui détermine la 1ere semaine de l'année. Regarde l'aide de format et fait des essais avec un calendrier pour vérifier que c'est bien le numéro qui te convient.

Pour la requête de MAj utilise l'assistant d'Access tu ne devrait pas rencontrer de difficultés majeures.

Si tu besoin de olus d'aide, n'hésite pas à demander.

A+

[sniper2002]

Avant Access 2010 il n'est pas possible de faire des calculs directement dans une table.

La solution classique consiste à faire une requête qui fait les calculs nécessaire et ne garder dans la table de base que des données brutes mais dans ton cas je procéderai ainsi :

1. Chargement des données dans la table
2. Lancement d'une requête de MAJ qui enregistre le résultat du calcul dans un champ de la table.

Sauf si tu change lavaleur contenue dans le champ date qui sert aux calcul de la semaine, dans ce cas là conserve la table et une requête d'interrogation qui fait le calcul.

Pour le calcul : utilise Format avec l'option w qui va te donner un nombre compris entre 1 et 53. Attention le calcul dépent d'un paramêtre qui détermine la 1ere semaine de l'année. Regarde l'aide de format et fait des essais avec un calendrier pour vérifier que c'est bien le numéro qui te convient.

Pour la requête de MAj utilise l'assistant d'Access tu ne devrait pas rencontrer de difficultés majeures.

Si tu besoin de olus d'aide, n'hésite pas à demander.

A+

j'ai bien compris la logique mais j'ai essayé de l'appliquer sans aucun résultat! est ce que tu peux m'aider à travers un exemple (en pièce joint)

je veux voir à quoi resemble cette requête comment elle est parametrée.

merci encore pour ton aide précieuse.
a+

[marot_r]

Ça ressemblerai à

Code :

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

UPDATE NomTable SET NomTaTable.NomTonChampNoSemaine = Format ( NomTaTable.NomTonChampDate, "w", 2, 1);

A+

[rjamin]

Bonjour,

La fonction PartDate permet de faire cette conversion de date en No de semaine. Vous écrivez cette fonction dans la ligne Source contrôle du txtBox qui doit contenir le NoSemaine

Code :

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

=PartDate("ww";[NomChampDate];2;2)

ww c'est le paramètre de la fonction pour avoir le n° de semaine
NomChampDate est remplacé par le nom du txtBox NoSem par exemple
premier 2 pour déterminer que le ludi est le premier jour de la semaine
second 2 pour déterminer que la première semaine de l'année contient au moins quatre jours de la nouvelle année.
L'aide d'access sur DatePart (PartDate dans version française) vous donnera un complément d'infos si nécessaire

[marot_r]

Merci rjamin, je ne suis pas habité à utiliser PartDate.

[f-leb]

Bonjour,

juste pour complément, une fonction à copier dans un 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
Public Function Semaine(LaDate As Variant) As Variant
'---------------------------------------------------------------------------------------
' Procedure : Semaine
' Date : vendredi 21 décembre 2007 13:56
' Auteur : Maxence Hubiche (mhubiche@club-internet.fr - 06.18.61.14.35)
' Objet : Renvoie le numéro de la semaine pour le calendrier français
' Spec : Cette fonctino empèche le débordement en semaine 53, en mettant les jours
' de la semaine 53 en semaine 1
' Retour : Renvoie un Byte (n° de la semaine) ou Null si l'argument n'était pas une
' date
'---------------------------------------------------------------------------------------
'
Dim bytTemp As Byte
If IsDate(LaDate) Then
bytTemp = CByte(DatePart("ww", LaDate, vbMonday, vbFirstFourDays)) Mod 53
If bytTemp = 0 Then bytTemp = 1
Semaine = bytTemp
Else
Semaine = Null
End If
End Function

Code grappillé dans :
http://mhubiche.developpez.com/vba/f...ions/datetime/

Exemple d’utilisation dans une requête :

Code sql :

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

SELECT champ1, champ2, champ3, LaDate, Semaine(LaDate) FROM LaTable;

[sniper2002]

Bonjour,

La fonction PartDate permet de faire cette conversion de date en No de semaine. Vous écrivez cette fonction dans la ligne Source contrôle du txtBox qui doit contenir le NoSemaine

Code :

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

=PartDate("ww";[NomChampDate];2;2)

ww c'est le paramètre de la fonction pour avoir le n° de semaine
NomChampDate est remplacé par le nom du txtBox NoSem par exemple
premier 2 pour déterminer que le ludi est le premier jour de la semaine
second 2 pour déterminer que la première semaine de l'année contient au moins quatre jours de la nouvelle année.
L'aide d'access sur DatePart (PartDate dans version française) vous donnera un complément d'infos si nécessaire

Bonjour merci pour vos réponses,

je suis débutant sur ce logiciel, donc je n'ai pas pu exploiter vos solutions.
donc je vous joins en exemple ce que je veux obtenir comme résultat.
dans la table test

Je veux obtenir pour tout enregistrement du champ DATE un N° de Semaine.

merci encore pour vos réponses si techniques

[rjamin]

Re,

Ce n'est pas possible de faire cela directement dans la table, vous devez faire cela par l'intermédiaire d'un formulaire ou d'une requête. Créez un formulaire basé sur votre table à l'aide de l'assistant d'access et dans la propriété Source contrôle du txtBox NoSemaine mettez la formule DatePart telle qu'indiqué auparavant.

A moins que vous n'ayez Access 2010 où là paraît-il iles possible de faire des calculs directement dans les tables.

PS: Ne pas utiliser de mot clé pour les noms des champs. Vous prenez Date pour la colonne Date prenez plutôt Date_Achat ou Date_Vente ou autrechose mais pas date tout seul. Même remarque pour Nom prendre plutot Nom_Client ou Nom_Membre etc. Ce n'e sont que des conseils pas des obligations mais...

[sniper2002]

Re,

Ce n'est pas possible de faire cela directement dans la table, vous devez faire cela par l'intermédiaire d'un formulaire ou d'une requête. Créez un formulaire basé sur votre table à l'aide de l'assistant d'access et dans la propriété Source contrôle du txtBox NoSemaine mettez la formule DatePart telle qu'indiqué auparavant.

A moins que vous n'ayez Access 2010 où là paraît-il iles possible de faire des calculs directement dans les tables.

PS: Ne pas utiliser de mot clé pour les noms des champs. Vous prenez Date pour la colonne Date prenez plutôt Date_Achat ou Date_Vente ou autrechose mais pas date tout seul. Même remarque pour Nom prendre plutot Nom_Client ou Nom_Membre etc. Ce n'e sont que des conseils pas des obligations mais...

avec tous ce qui a été proposé je n'ai pas réussi, quelqu'un peut réaliser sa solution dans cette pièce jointe
merci bcp

[rjamin]

Bonjour,

Ci joint l'application de la formule.

Le calculn'est pas enregistré dans la table, car en principe on enregistre pas ce qui peut être calculé dans une table de base de données, mais il y a moyen de le faire.

[sniper2002]

le fichier joint est lecture seule, je ne vois aucune modif !! peux etre c un probleme d'enregistrement?

[LE VIEUX]

Bonjour,
ci-joint en retour ta base modifiée
1) Modif nom des champs : pas de champ avec des noms réservés (Date) où comportant des espaces.
2) 2 manières proposées la première avec test_1 avec une requête – c’est la manière classique en évitant de mettre a jour la table.
La deuxième avec un formulaire qui après le mise a jour du champ Date_J met le n° de semaine dans l’autre champ – voir l’évènement après mise a jour du champ Date_J.

[sniper2002]

Bonjour,
ci-joint en retour ta base modifiée
1) Modif nom des champs : pas de champ avec des noms réservés (Date) où comportant des espaces.
2) 2 manières proposées la première avec test_1 avec une requête – c’est la manière classique en évitant de mettre a jour la table.
La deuxième avec un formulaire qui après le mise a jour du champ Date_J met le n° de semaine dans l’autre champ – voir l’évènement après mise a jour du champ Date_J.

merci pour la réponse

juste une question :

Code :

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

Me.Num_Semaine = DatePart("ww", Me.Date_J, vbMonday, vbFirstFourDays)

Me ? c'est quoi ? parceque ça bugg sur ma BD

par quoi je peux le remplacer

merci pour ta réponse

[LE VIEUX]

Bonjour,
en VBA le mot clé Me. désigne l'objet dont le code est en cours d'exécution
en l’occurrence dans le code donné il représente l’objet formulaire en cours d’exécution dans son module.
Je ne me souviens pas à partir de quelle version ce mot clé est supporté, essayes de le supprimer s’il n’y a que « Me. » qui pose problème cela devrait marcher si ton code est bien dans le module du formulaire.
a plus.

[sniper2002]

merci j'ai réussi finalement a obtenir ce que je veux, merci à tous pour votre aide 'Spécials remerciements à Mr Le Vieux' j'ai opté pour la 1ère solution. c'est plus simple.

je profite pour relancer une question similaire mais cella porte sur le mois, comment obtenir le mois d'une date (quelle fonction) ?

merci bcp

[rjamin]

Bonjour,

Si la date est dans Date_J

Code :

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

Mois([Date_J])

donne lemois de cette date.