Exemple d'une base access !
teck03
-
teckmicro Messages postés 89 Date d'inscription Statut Membre Dernière intervention -
teckmicro Messages postés 89 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Merci beaucoup de prendre du temps pour moi !
Si quelqu'un pouvait m'envoyer par email ( ordinateur03@hotmail.fr ) un exemple de base access :
J'aimerais calculer le nombre de jours entre deux : du lundi au samedi .
donc sur 7 jours , la possibilité d'enlever les jours fériés , soit en les saisissant dans une table !
Je débute dans access .
Car j'ai trouvais des codes sources qui calcule ce que je vous demande mais je n'arrive pas a l'insérer dans ma base , ( d'où le pourquoi d'un exemple a m'envoyer pour mieux comprendre ) .
Je reste a votre écoute et heureux d'avoir beaucoup d'exemple .
Merci a vous tous de votre aide !
Cordialement ...
Merci beaucoup de prendre du temps pour moi !
Si quelqu'un pouvait m'envoyer par email ( ordinateur03@hotmail.fr ) un exemple de base access :
J'aimerais calculer le nombre de jours entre deux : du lundi au samedi .
donc sur 7 jours , la possibilité d'enlever les jours fériés , soit en les saisissant dans une table !
Je débute dans access .
Car j'ai trouvais des codes sources qui calcule ce que je vous demande mais je n'arrive pas a l'insérer dans ma base , ( d'où le pourquoi d'un exemple a m'envoyer pour mieux comprendre ) .
Je reste a votre écoute et heureux d'avoir beaucoup d'exemple .
Merci a vous tous de votre aide !
Cordialement ...
Configuration: Windows XP Firefox 3.0.7
8 réponses
-
Bonjour,
Qu'avez-vous déjà réalisé dans votre base ?-
bonsoir,
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 !
-
-
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 :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 ?
-
Bonjour,
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 !
-
-
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.-
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
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
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.
-
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
-
-
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. -
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
-
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
-
-
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.
