Exemple d'une base access !
Fermé
teck03
-
11 mars 2009 à 22:31
teckmicro Messages postés 89 Date d'inscription vendredi 7 mars 2008 Statut Membre Dernière intervention 15 avril 2018 - 16 mars 2009 à 12:44
teckmicro Messages postés 89 Date d'inscription vendredi 7 mars 2008 Statut Membre Dernière intervention 15 avril 2018 - 16 mars 2009 à 12:44
A voir également:
- Exemple d'une base access !
- Url exemple - Guide
- Formules excel de base - Guide
- Sommaire word exemple - Guide
- Tableau word exemple - Guide
- Gigaset ne reconnait plus sa base - Forum telephonie fixe
8 réponses
Le Pingou
Messages postés
12048
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
26 avril 2024
1 427
12 mars 2009 à 17:28
12 mars 2009 à 17:28
Bonjour,
Qu'avez-vous déjà réalisé dans votre base ?
Qu'avez-vous déjà réalisé dans votre base ?
Le Pingou
Messages postés
12048
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
26 avril 2024
1 427
13 mars 2009 à 14:42
13 mars 2009 à 14:42
Bonjour,
Merci pour l’information.
Je suppose que les codes sources que vous avez trouvés réalisent le calcul sur la base des dates début et fin et quelles tiennent compte des jours fériés.
Vous devez créer un formulaire basé sur la table [Table] qui comporte les 2 champs [datedebut] et [datefin] et ajouter un troisième champ indépendant [nbjour] pour recevoir le résultat du code source.
Vous créer une procédure événementielle (Après MAJ) sur champ [datefin] et vous collez votre code dans la macro :
Lorsque vous entrez la date de fin, la macro [nbjour_AfterUpdate] se déclenche et vous retourne le résultat dans le champ [nbjour]
Note: que faites-vous avec le résultat ?
Merci pour l’information.
Je suppose que les codes sources que vous avez trouvés réalisent le calcul sur la base des dates début et fin et quelles tiennent compte des jours fériés.
Vous devez créer un formulaire basé sur la table [Table] qui comporte les 2 champs [datedebut] et [datefin] et ajouter un troisième champ indépendant [nbjour] pour recevoir le résultat du code source.
Vous créer une procédure événementielle (Après MAJ) sur champ [datefin] et vous collez votre code dans la macro :
Private Sub nbjour_AfterUpdate() ' coller ici votre code source Form_Table!nbjour = (Nom de la variable résultat du code source) End Sub
Lorsque vous entrez la date de fin, la macro [nbjour_AfterUpdate] se déclenche et vous retourne le résultat dans le champ [nbjour]
Note: que faites-vous avec le résultat ?
Le Pingou
Messages postés
12048
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
26 avril 2024
1 427
13 mars 2009 à 17:02
13 mars 2009 à 17:02
Bonjour,
Se sera plus simple avec mon exemple : https://www.cjoint.com/?dprcB2ukj2
Se sera plus simple avec mon exemple : https://www.cjoint.com/?dprcB2ukj2
Bonjour !
extra ! merci beacoup !
une petite chose : comme je veux calculer du lundi au samedi , dans le module j'ai rajouter
If (DatePart("w", temp) <> 1) And (DatePart("w", temp) <> 8) Then
DatePart("w", r("feries")) <> 8 And _
8 au lieu de 7 : car comme ca j'ai bien mais 12 jours entre le 09/03/09 au 22/03/09 !
j'espere que c'est la bonne methode !
Merci de votre aide et je comprend mieux le fonctionnement pour ce servir d'un code .
-----------------------------------------------------------------------------------------------------------------------
Pourier vous m'aidé pour ceux-ci ! ( une base sur la gestion de stock )
j'ai commencer , mais ou je bloque c'est pour le decompte de mon stock !
je vous expliquerais ca on details !
Bien si vous ne pouvais pas ,je comprendrais tres bien !
Cordialement ...
Merci !
extra ! merci beacoup !
une petite chose : comme je veux calculer du lundi au samedi , dans le module j'ai rajouter
If (DatePart("w", temp) <> 1) And (DatePart("w", temp) <> 8) Then
DatePart("w", r("feries")) <> 8 And _
8 au lieu de 7 : car comme ca j'ai bien mais 12 jours entre le 09/03/09 au 22/03/09 !
j'espere que c'est la bonne methode !
Merci de votre aide et je comprend mieux le fonctionnement pour ce servir d'un code .
-----------------------------------------------------------------------------------------------------------------------
Pourier vous m'aidé pour ceux-ci ! ( une base sur la gestion de stock )
j'ai commencer , mais ou je bloque c'est pour le decompte de mon stock !
je vous expliquerais ca on details !
Bien si vous ne pouvais pas ,je comprendrais tres bien !
Cordialement ...
Merci !
Le Pingou
Messages postés
12048
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
26 avril 2024
1 427
14 mars 2009 à 11:48
14 mars 2009 à 11:48
Bonjour,
Merci pour l'information.
L'indice du nom du jour de la semaine dépend de se que vous avez défini comme [Option Base] pour le module (si par défaut: dimanche = 1 )
Concernant votre nouvel base se stock, cela dépend de se que vous demanderai et aussi de la version Access utilisé.
Question au passage : concernant la macro pour calcul des jours ouvrés, est-ce qu'il s'agit de mon exemple ou de votre découverte ?
S'il s'agit de votre découverte, je suis intéressé dans recevoir une copie. Merci.
Merci pour l'information.
L'indice du nom du jour de la semaine dépend de se que vous avez défini comme [Option Base] pour le module (si par défaut: dimanche = 1 )
Concernant votre nouvel base se stock, cela dépend de se que vous demanderai et aussi de la version Access utilisé.
Question au passage : concernant la macro pour calcul des jours ouvrés, est-ce qu'il s'agit de mon exemple ou de votre découverte ?
S'il s'agit de votre découverte, je suis intéressé dans recevoir une copie. Merci.
bonjour !
alors pour la macro c'est bien la votre , moi j'ai juste modifier le chiffre 8 au lieu de 7 !
C'est a vous que reviens tout le meriite !
Pour la gestion de stock ! je vous explique : ( c'est pour une assosiation )
Table1 : ordinateur
refordi : Numeroauto
ordinateur : Numerique
Lieu : texte
table2 : maintenance
maintenance : numeroauto
lien-ordi : numérque
peripheriquechanger : texte
désignations : texte
date : date/heure
Heure debut intervention : date/heure
heure fin intervention : date/heure
temp ecouler : numerique
Relations entre c'est deux tables : par refordi et Lien-ordi ( un a plusieurs )
Mon soussi c'est la table maintenance :
Au niveau des peripheriquechanger : j'ai une liste exp : carte mere ,lecteur dvd ,disquette,disque dur ...Ect !
donc le but ! j'ai un stock de 3 carte mere , 5 lecteur de dvd , 2 lecteur disquette ...ect
j'aimerais lorsque je suis dans la table maintenance au niveau peripherique , si j'ai changer une carte mere
quel soit decompté de mon stock automatiquement !
j'espere que je m'explique au mieux ! ( en résumer ca serais une gestion d'ordinateur )
aussi comment calculer un temp passer entre heuredebut et heuredefin !
Je reste a votre ecoute .....
Et sinserement je vous remercie du temp que vous passer pour m'aider !
je vous souhaite un bon week end !
cordialement ! Christophe de vichy
alors pour la macro c'est bien la votre , moi j'ai juste modifier le chiffre 8 au lieu de 7 !
C'est a vous que reviens tout le meriite !
Pour la gestion de stock ! je vous explique : ( c'est pour une assosiation )
Table1 : ordinateur
refordi : Numeroauto
ordinateur : Numerique
Lieu : texte
table2 : maintenance
maintenance : numeroauto
lien-ordi : numérque
peripheriquechanger : texte
désignations : texte
date : date/heure
Heure debut intervention : date/heure
heure fin intervention : date/heure
temp ecouler : numerique
Relations entre c'est deux tables : par refordi et Lien-ordi ( un a plusieurs )
Mon soussi c'est la table maintenance :
Au niveau des peripheriquechanger : j'ai une liste exp : carte mere ,lecteur dvd ,disquette,disque dur ...Ect !
donc le but ! j'ai un stock de 3 carte mere , 5 lecteur de dvd , 2 lecteur disquette ...ect
j'aimerais lorsque je suis dans la table maintenance au niveau peripherique , si j'ai changer une carte mere
quel soit decompté de mon stock automatiquement !
j'espere que je m'explique au mieux ! ( en résumer ca serais une gestion d'ordinateur )
aussi comment calculer un temp passer entre heuredebut et heuredefin !
Je reste a votre ecoute .....
Et sinserement je vous remercie du temp que vous passer pour m'aider !
je vous souhaite un bon week end !
cordialement ! Christophe de vichy
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Le Pingou
Messages postés
12048
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
26 avril 2024
1 427
14 mars 2009 à 15:41
14 mars 2009 à 15:41
Bonjour,
Pour la macro, j'aimerais bien voir se que vous avez trouvé en disant ; Car j'ai trouvais des codes sources qui calcule ce que je vous demande.
Vous n'avez pas répondu sur la version Access ...!
Pour la gestion je vous donnerai une réponse d'ici lundi.
Pour la macro, j'aimerais bien voir se que vous avez trouvé en disant ; Car j'ai trouvais des codes sources qui calcule ce que je vous demande.
Vous n'avez pas répondu sur la version Access ...!
Pour la gestion je vous donnerai une réponse d'ici lundi.
bonsoir !
pour la macro que j'avais trouver sur le site Code Sources ! *
* function nbjourouvrable(datdeb,datfin)
* if datdeb="" or datfin="" then exit function
*
* nbjourtot = DateDiff("d",datdeb,datfin) + 1
*
* for i=1 to nbjourtot
*
* if ferie(datdeb) then
* nbjourtot = nbjourtot - 1
* end if
*
* datdeb=DateAdd("d",1,datdeb)
*
* next
*
* nbjourouvrable=nbjourtot
*
* End function
*
* function ferie(Jour)
* if jour="" then exit function
* Dim JJ,AA
* Dim NbOr, Epacte
* Dim PLune, Paques, Ascension, Pentecote
*
* JJ = Day(Jour)
* mm = Month(Jour)
* AA = Year(Jour)
*
* If JJ = 1 And mm = 1 Then ferie = True: Exit Function '1 Janvier
* If JJ = 1 And mm = 5 Then ferie = True: Exit Function '1 Mai
* If JJ = 8 And mm = 5 Then ferie = True: Exit Function '8 Mai
* If JJ = 14 And mm = 7 Then ferie = True: Exit Function '14 Juillet
* If JJ = 15 And mm = 8 Then ferie = True: Exit Function '15 Août
* If JJ = 1 And mm = 11 Then ferie = True: Exit Function '1 Novembre
* If JJ = 11 And mm = 11 Then ferie = True: Exit Function '11 Novembre
* If JJ = 25 And mm = 12 Then ferie = True: Exit Function '25 Décembre
*
* NbOr = (AA Mod 19) + 1
* Epacte = (11 * NbOr - (3 + Int((2 + Int(AA / 100)) * 3 / 7))) Mod 30
* PLune = CDate("19/04/" & AA) - ((Epacte + 6) Mod 30)
* If Epacte = 24 Then PLune = PLune - 1
* If Epacte = 25 And (AA >= 1900 And AA < 2000) Then PLune = PLune - 1
*
* Paques = PLune - Weekday(PLune) + vbMonday + 7 'Paques
* If JJ = Day(Paques) And mm = Month(Paques) Then ferie=true : Exit Function
*
* Ascension = Paques + 38 'Ascension
* If JJ = Day(Ascension) And mm = Month(Ascension) Then ferie=true : Exit Function
*
* Pentecote = Ascension + 11 'Pentecote
* If JJ = Day(Pentecote) And mm = Month(Pentecote) Then ferie=true : Exit Function
* ferie = False
* Dim numjour
* numjour=weekday(jour,vbmonday) 'fixe à 6 et 7 la valeur du samedi & dimanche
* if numjour=6 or numjour=7 then ferie=true : Exit function
* End function
J'espere que ca repondras a votre question !
Pour la version : Access 2003 !
Merci a vous !
teck03
pour la macro que j'avais trouver sur le site Code Sources ! *
* function nbjourouvrable(datdeb,datfin)
* if datdeb="" or datfin="" then exit function
*
* nbjourtot = DateDiff("d",datdeb,datfin) + 1
*
* for i=1 to nbjourtot
*
* if ferie(datdeb) then
* nbjourtot = nbjourtot - 1
* end if
*
* datdeb=DateAdd("d",1,datdeb)
*
* next
*
* nbjourouvrable=nbjourtot
*
* End function
*
* function ferie(Jour)
* if jour="" then exit function
* Dim JJ,AA
* Dim NbOr, Epacte
* Dim PLune, Paques, Ascension, Pentecote
*
* JJ = Day(Jour)
* mm = Month(Jour)
* AA = Year(Jour)
*
* If JJ = 1 And mm = 1 Then ferie = True: Exit Function '1 Janvier
* If JJ = 1 And mm = 5 Then ferie = True: Exit Function '1 Mai
* If JJ = 8 And mm = 5 Then ferie = True: Exit Function '8 Mai
* If JJ = 14 And mm = 7 Then ferie = True: Exit Function '14 Juillet
* If JJ = 15 And mm = 8 Then ferie = True: Exit Function '15 Août
* If JJ = 1 And mm = 11 Then ferie = True: Exit Function '1 Novembre
* If JJ = 11 And mm = 11 Then ferie = True: Exit Function '11 Novembre
* If JJ = 25 And mm = 12 Then ferie = True: Exit Function '25 Décembre
*
* NbOr = (AA Mod 19) + 1
* Epacte = (11 * NbOr - (3 + Int((2 + Int(AA / 100)) * 3 / 7))) Mod 30
* PLune = CDate("19/04/" & AA) - ((Epacte + 6) Mod 30)
* If Epacte = 24 Then PLune = PLune - 1
* If Epacte = 25 And (AA >= 1900 And AA < 2000) Then PLune = PLune - 1
*
* Paques = PLune - Weekday(PLune) + vbMonday + 7 'Paques
* If JJ = Day(Paques) And mm = Month(Paques) Then ferie=true : Exit Function
*
* Ascension = Paques + 38 'Ascension
* If JJ = Day(Ascension) And mm = Month(Ascension) Then ferie=true : Exit Function
*
* Pentecote = Ascension + 11 'Pentecote
* If JJ = Day(Pentecote) And mm = Month(Pentecote) Then ferie=true : Exit Function
* ferie = False
* Dim numjour
* numjour=weekday(jour,vbmonday) 'fixe à 6 et 7 la valeur du samedi & dimanche
* if numjour=6 or numjour=7 then ferie=true : Exit function
* End function
J'espere que ca repondras a votre question !
Pour la version : Access 2003 !
Merci a vous !
teck03
Le Pingou
Messages postés
12048
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
26 avril 2024
1 427
14 mars 2009 à 23:39
14 mars 2009 à 23:39
Bonjour,
Merci, c'est super.
Pour la version, je prends note que c'est 2003 alors que je pensais à 2007 car mon exemple est une version 2007.
A lundi pour la réponse.
Bon dimanche.
Merci, c'est super.
Pour la version, je prends note que c'est 2003 alors que je pensais à 2007 car mon exemple est une version 2007.
A lundi pour la réponse.
Bon dimanche.
Le Pingou
Messages postés
12048
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
26 avril 2024
1 427
15 mars 2009 à 23:06
15 mars 2009 à 23:06
Bonjour teck03,
J’ai étudié votre demande et je pense que serait une bonne application pour Excel, car le nombre des différentes données est faible. Quand pensez-vous ?
Pour la version sur Access 2003 je vous prie de consulter le document : https://www.cjoint.com/?drxhGjjjJI
J’ai étudié votre demande et je pense que serait une bonne application pour Excel, car le nombre des différentes données est faible. Quand pensez-vous ?
Pour la version sur Access 2003 je vous prie de consulter le document : https://www.cjoint.com/?drxhGjjjJI
teckmicro
Messages postés
89
Date d'inscription
vendredi 7 mars 2008
Statut
Membre
Dernière intervention
15 avril 2018
16 mars 2009 à 01:20
16 mars 2009 à 01:20
Bonsoir , un peu tard ! mais je voulais vous dire que vous avez Bien travaille !
Oui c'est sur que excel pourais faire ca tres bien ! mais j'adore access !
Il y a tellement de possibilite ,et ca me rappel ( La programmation Basic ) c'est vieux je sais .
Sauf que l'a c'est 10 foix mieux et plus simpa pour la conception .
En ce moment meme je travaille dessus ! mais les heures passe vite ...
Pour vous dire sur l'associations , car suite a ce projet .
Que ce n'est pas pour une entreprise , car je n'oserais pas vous demander tout ces renseignements
a titre gratuit .
C'est plus dans un cadre personnel !
Sinserement .Meme si c'est par Email !
Ps : Comment faite vous pour envoyer un document ! Par ce forum
bonne semaine a vous !
Merci !
Je vous enverrais mes travaux ! par la suite !
Teck03
Oui c'est sur que excel pourais faire ca tres bien ! mais j'adore access !
Il y a tellement de possibilite ,et ca me rappel ( La programmation Basic ) c'est vieux je sais .
Sauf que l'a c'est 10 foix mieux et plus simpa pour la conception .
En ce moment meme je travaille dessus ! mais les heures passe vite ...
Pour vous dire sur l'associations , car suite a ce projet .
Que ce n'est pas pour une entreprise , car je n'oserais pas vous demander tout ces renseignements
a titre gratuit .
C'est plus dans un cadre personnel !
Sinserement .Meme si c'est par Email !
Ps : Comment faite vous pour envoyer un document ! Par ce forum
bonne semaine a vous !
Merci !
Je vous enverrais mes travaux ! par la suite !
Teck03
Le Pingou
Messages postés
12048
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
26 avril 2024
1 427
16 mars 2009 à 08:59
16 mars 2009 à 08:59
Bonjour teckmicro,
Merci pour le message.
Il n'est pas possible d'envoyer un document par le forum, passer par www.cjoint.com ou www.cijoint.fr .
Eh bien, si confidentiel, il y a le MP voir profil.
Bonne semaine.
Merci pour le message.
Il n'est pas possible d'envoyer un document par le forum, passer par www.cjoint.com ou www.cijoint.fr .
Eh bien, si confidentiel, il y a le MP voir profil.
Bonne semaine.
teckmicro
Messages postés
89
Date d'inscription
vendredi 7 mars 2008
Statut
Membre
Dernière intervention
15 avril 2018
16 mars 2009 à 12:44
16 mars 2009 à 12:44
bonjour !
Serais t'il possible de vous envoyer un message priveé !
merci
Bonne journee
Ps : car je voulais vous envoyez un fichier par Cijoint.fr ! ( mais ca reste Non privée )
Cordialement
Serais t'il possible de vous envoyer un message priveé !
merci
Bonne journee
Ps : car je voulais vous envoyez un fichier par Cijoint.fr ! ( mais ca reste Non privée )
Cordialement
13 mars 2009 à 00:17
une table du nom : Table
refdate = numeroauto
datedebut = date/heure
datefin = date/heure
ensuite une autre table su nom : Ferié ( liste des jours du calendrier 2009 )
refferié
Jour : date/heure
Formulaire : ?
apres je suis bloqué :
-----------------------------------------------------------------------------------------------
Pour moi ( jour ouvrable du lundi au samedi inclus
J'espere que mon explication seras compréhensible !
Je reste a votre ecoute !
Et merci beaucoup du temp que vous passé pour Moi !