Forums self-access.com

Calcul du temps écoulé entre 2 dates

kalmard — Wed, 16 May 2012 17:56:47 +0200

Bonjour à tous,

voici mon problème; j'ai affaire à des champs de dates de type
jj/mm/aaaa HH:MM:SS (ex: 28/04/2012 11:29:50) mon but est de créer une fonction (qu'on va nommer Tecoule ) qui calcule le temps écoulé entre 2 dates debut et fin en tenant compte du calendrier(c'est-à-dire uniquement sur la période travaillée) et des heures de services( 9h00- 15h00).
Le résultat devra s'exprimer en HH:MM:SS par exemple s'il s'est écoulé entre debut et fin 2 jours et 10minutes alors Tecoule doit être égale à 48:00:10
Pour les jours non travaillés Tecoule doit être vide ("").

Après avoir cherché sans rien trouver je viens faire appel aux experts vba.

Merci d'avance pour votre aide.

Cordialement

[AC07] Re: Transferspreadsheet - Excel vers Access

DJCroissant — Tue, 15 May 2012 19:49:22 +0200

Ah d'accord! Je vois!

Merci beaucoup!

[AC07] Re: Transferspreadsheet - Excel vers Access

DenisS — Tue, 15 May 2012 19:48:05 +0200

J'ai la tête un peu ailleurs, moi...

Ce n'est pas la fonction qui n'est plus utilisée, c'est moi qui n'ai plus utilisé cette fonction depuis longtemps. La faute à l'ellipse ;)

[AC07] Re: Transferspreadsheet - Excel vers Access

DenisS — Tue, 15 May 2012 17:02:18 +0200

Oui, je pensais à DoCmd.TransferSpreadsheet.

En plus, y'a une fôte de phrape : je voulais dire plage et non place... :)

Sinon, si tu es lié au format Excel, la seule alternative serait de lier le fichier comme table (ou de l'importer dans une table temporaire), puis de copier les enregistrements de cette table vers la table définitive.

Si tu fais ça en VBA, à l'aide d'un Recordset et d'une boucle, tu peux contrôler les conversions à effectuer.

[AC07] Re: Transferspreadsheet - Excel vers Access

DJCroissant — Tue, 15 May 2012 16:44:30 +0200

DeniS,

Lorsque tu dis que ce n'est plus utilisé depuis longtemps cette fonction, tu parles du Docmd.transferspreadsheet?

Si oui, quelle fonction pourrais-je utiliser à la place?

Merci!

Julien

Re: Countif (Access)

DenisS — Tue, 15 May 2012 16:27:36 +0200

(tu)

Re: Countif (Access)

fabio87 — Tue, 15 May 2012 14:10:19 +0200

Tout simplement parfait. Bien qu'ayant du mal à comprendre le " Count(Table1.Employe) " car j'étais persuadé que le count se faisait en fait sur le nombre de jours.

Merci beaucoup.

Re: Countif (Access)

DenisS — Tue, 15 May 2012 13:24:35 +0200

Voici un exemple de requête AC qui devrait pouvoir t'aider :

Langage: SQL
TRANSFORM Count(Table1.Employe) AS CompteDeEmploye
SELECT Table1.Employe
FROM Table1
GROUP BY Table1.Employe
PIVOT Table1.Jour IN ("Lundi","Mardi","Mercredi","Jeudi","Vendredi","Samedi","Dimanche");

Effectivement, tu ne peux pas la créer à l'aide de l'assistant, car celui-ci demande plus de deux colonnes pour fonctionner correctement...

Si tu veux pouvoir l'utiliser dans un formulaire, il faut spécifier toutes les valeurs de colonnes possibles dans la clause PIVOT (donc tous les jours de la semaine ici). De cette manière, les colonnes apparaîtront toujours dans cet ordre, qu'elles contiennent une valeur ou non.

Re: Countif (Access)

fabio87 — Tue, 15 May 2012 12:09:41 +0200

Par exemple, en tenant du cas cité, j'ai un champ dans mon formulaire qui doit reprendre le nombre de mercredi où a travaillé chaque employé. J’insère donc la requête suivante dans la propriété donnée du champ mais elle n’est pas validée pour cause de mauvaise syntaxe

=Select Count (*) FROM R_Report_EJ WHERE [JOUR] = “Jeudi”

*Sachant qu’un regroupement a été préalablement effectué par employé sur l’état, dc pas besoin du tri employé
*R_Report_EJ est la requête source du sous formulaire. Elle contient deux champs (colonnes) : JOUR et EMPLOYES
*AC=??

Merci pour la disponibilité.

Re: Countif (Access)

DenisS — Tue, 15 May 2012 11:53:37 +0200

Si les noms de colonnes sont fixes et connus, il n'y a pas de problème pour utiliser une AC dans un formulaire ou un état. Il faut simplement lister tous les noms de colonnes dans les propriétés de la requêtes.

Comme il s'agit ici d'un compte, tu devrais avoir toutes les données utiles (compte sur employés).

Re: Countif (Access)

fabio87 — Tue, 15 May 2012 11:47:25 +0200

Oui, en fait

- j'ai tout d'abord essayé de faire un TCD sur ma requête. J'obtiens le résultat escompté sauf que je ne sais pas si c'est possible d'utiliser(afficher) les sous totaux issus du TCD dans mon sous formulaire(inséré lui même dans un état).

-Avec une analyse croisée, il me semble qu'il faut minimum trois ensemble de données. Or dans ce cas, je n'en ai que deux (jours et employés).

Merci

[AC07] Re: Transferspreadsheet - Excel vers Access

DenisS — Tue, 15 May 2012 09:56:22 +0200

Je ne pense pas que ce soit dû à un emise à jour Office, mais le fonctionnement me paraît assez logique, dans la mesure où Access va déterminer automatiquement le type du champ de la talbe.

Dès qu'il rencontre une valeur qui n'est pas numérique (le '-' et le '+' étant numériques), il bascule sur un champ Texte.

Il se semble qu'on peut préciser la place à importer (plus utilisé depuis longtemps, cette fonction :)). Il faudrait commencer à la seconde ligne, pour éviter les lignes de titre.

Re: Countif (Access)

DenisS — Tue, 15 May 2012 09:41:18 +0200

As-tu essayé avec une analyse croisée ?

[AC97] Re: Recherche et suppression

DenisS — Tue, 15 May 2012 09:39:38 +0200

Pour savoir si une chaîne figure dans une autre, sans en connaître la position exacte, tu peux utiliser :

Langage: Visual Basic
LeChamp Like "*AB*"

[AC07] Re: Clé primaire personnalisée

DenisS — Tue, 15 May 2012 09:36:15 +0200

Voilà, tu peux t'inspirer de ceci. Désolé pour le délai...
[cjoint.com]

[AC03] Re: Probleme doublons!!!

JeffB — Tue, 15 May 2012 09:04:59 +0200

Y a peut-être plus simple mais avec des champs date et heure séparés je travaillerai en 3 requêtes.

La première avec ta table et un champs date. Tu choisis de regrouper et tu fais le minimum au lieu de regroupement par défaut.

La seconde pareil sur le champs heures mais avec ta table, ta R1 et une liaison entre Mindedate et le champs date de ta table.

La dernière avec ta table et tes 2 requêtes; les liaisons entre mindedate et mindeheure vers les champs correspondants de ta table.

Ca te donnera le ou les résultats de ta requête. Si j'ai bien compris et expliqué ;-)

[AC97] Recherche et suppression

Vicky L\'heureux — Mon, 14 May 2012 21:57:50 +0200

Bonjour,

j'aimerais faire une validation lors d'une suppression.
Lorsque je supprime une ligne d'enregistrement d'un formulaire, j'aimerais que dans le champ Equipes soit vérifié si l'équipe AB est saisie dans le champ. Si oui, affiche un message avisant qu'il s'agit de l'équipe AB.
Le problème est que dans le champ équipe, AB peut apparaitre à différente position dans le champ. Par exemple ABCDEFGHIJKL ou CDEFAB etc... Comment faire pour vérifier si AB se retrouve à l'intérieur de ce champ.

Merci pour votre préscieuse aide.

[AC07] Transferspreadsheet - Excel vers Access

DJCroissant — Mon, 14 May 2012 20:03:27 +0200

Bonjour,

J'ai un questionnement par rapport à la ligne Docmd.transferspreadsheet. J'ai simplifié au maximum le problème.

Dans ma bd, j'ai une table, avec un champ qui est de type Texte, 255 caractères.

d'autre part, j'ai un fichier xlsx d'une colonne.

Si dans la première colonne de mon fichier xlsx, sur les 3 premières lignes, j'ai ceci:

100
- (dans le fichier, c'est un 0 en format comptabilité)
250

j'obtiens ceci dans ma table Access après l'importation via docmd.transferspreadsheet, soit ce à quoi je m'attends:

100
0
250

Par contre, si, dans mon fichier xlsx, j'ai ceci dans ma colonne (J'ajoute une entête dans le fichier):

AAA
100
-
250

voici ce que j'obtiens dans ma table Access

AAA
100
-
250

Le "-" est maintenant considéré comme du texte pur et dur, et je ne peux plus m'en débarrasser.

Je ne sais pas s'il y a eu une mise à jour d'Office par rapport à ça, mais ça, ça fonctionnait à merveille et me donnait un "0" dans ma table Acess. Maintenant, j'ai un méchant "-" avec lequel négocier.

On dirait qu'Access se dit: si la première valeur est un chiffre, je considère le reste comme des chiffres, sinon, c'est du texte, et ce, même si le type de champ demeure Texte.

Voici la ligne de code que j'utilise

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "Table1", "D:\Temp\Classeur1.xlsx", False

Avez-vous déjà rencontré ce problème? Qu'est-ce qui a changé?

Merci!

Julien

Countif (Access)

fabio87 — Mon, 14 May 2012 11:12:03 +0200

Bonjour,

J'ai une table avec deux champs : Employés et jours. Je voudrais faire une requête me permettant de décompter, pour chaque jour, le nombre de fois qu'a travaillé chaque employé. En somme, voici ma table :

A --- Vendredi
B-----Vendredi
C-----Mardi
A-----Lundi
B-----Lundi
C-----Vendrdi
A-----Mardi
C-----Lundi
B-----Vendredi
B-----Mardi
A----Lundi

Je voudrais donc obtenir ce résultat
Employés--- Lundi----Mardi----Vendredi
----A---------2-------1---------1----
----B---------1-------1---------2----
----C---------1-------1---------1----

C'est un peu l'équivalent d'un countif sous excel mais je n'arrive pas à imbriquer les fonctions nécessaires.

Merci en avance pour l'aide

[AC03] Probleme doublons!!!

sunnmestre — Sun, 13 May 2012 19:20:00 +0200

Bonjour à toutes et à tous,
Ancien utilisateur d'access qui reprend (avec beaucoup de mal) ACCESS, je suis confronté à un probleme de doublons:

J'ai une table dont les données sont importées d'Excel qui se compose de la maniere suivante:
N°document |Zone | Date création | Heure création.

Le probleme est le suivant:

Il peut y avoir des doublons au niveau de "N°document" dans ce cas il me faut prendre uniquement le doublons dont la valeur "Date création"ET"Heure creation sont les plus anciens et supprimer les autres.....????!!!!

Ex:
Doc111 | zone a |12/04/2012 | 10:00
Doc111 | zone a |12/04/2012 | 11:00
Doc111 | zone a |10/04/2012 | 08:00

Resultat souhaité:
Doc111 | zone a |10/04/2012 | 08:00

Comment faire, j'ai utilisé toutes le possibilité dans ce qui me reste de connaissance access sans succes....

HELP ME!!!!

Merci d'avance à l'âme charitable qui m'aidera à trouver la solution!!

Re: Gestion besoin prod mois à venir

little_kevin — Fri, 11 May 2012 16:00:30 +0200

En fait j'ai rajouter à ma requête un champ clé:
vraifaux(mois(date()>= [ID_mois]forcement 1 à 12;[ID_mois]+ mon delai;[ID_mois]+ mon delai+12). Ma clé suis les mois en court et j'ai toujours un nombre croissant sur les 12 mois à venir

Puis mon critère sur ce même champ, entre mois(date()>+ mon delai et mois(date()>+ mon delai *2

ainsi j'ai toujours le bon créneau, même à n+1, sans utiliser l'année.

Re: Probleme modification requete sous conditons en vba

jcajca — Fri, 11 May 2012 14:12:04 +0200

L'element est bien selectionné, mais le probleme était qu'au moment d'integrer le texte SQL dans la requete, le "where" n'etait pas pris en compte.

Je me suis rendu compte que le probleme venait du fait que ma liste était basé sur une autre requete. Je l'ai basé sur une table et maintenant ca marche.

J'ai pas trop compris la difference, mais bon, tant pis ... :)

Merci pour vos messages en tout cas :)

Re: Probleme modification requete sous conditons en vba

DenisS — Fri, 11 May 2012 14:02:31 +0200

C'est bien une liste, et non une liste déroulante (combobox) ?

Sinon, tu peux aussi utiliser Me.Liste.ItemsSelected.Count pour savoir si au moins un élément est sélectionné.

Re: Probleme modification requete sous conditons en vba

JeffB — Fri, 11 May 2012 13:32:22 +0200

Ou plutôt simplement un problème de doublement des guillemets ?

[url=http://grenier.self-access.com/?post/2007/09/03/Apostrophes-dans-une-requete][/url]

Re: Probleme modification requete sous conditons en vba

JeffB — Fri, 11 May 2012 13:19:34 +0200

Que te donnes un msgbox i dans tes 2 case ?

Es tu certain que le i change bien de valeur ?

Probleme modification requete sous conditons en vba

jcajca — Fri, 11 May 2012 09:55:02 +0200

Bonjour tout le monde,

voici mon probleme : j'ai ecris un code VBA qui modifie le SQL d'une requete en appuyant sur le bouton d'un formulaire. Le "texte" du SQL doit changer en fonction de certaines conditions (ligne selectionnée dans une liste déroulante du meme formulaire)

Voici le code:

Private Sub Befehl4_Click()

Dim CodeSQL As String
Dim CodeSQl2 As String
Dim i As Integer

DoCmd.Close acQuery, "Grafik"
i = 0

Do Until Me!Liste.Selected(i) = True
i = i + 1

Loop

Select Case i

Case Is <> 0

CodeSQL = "Select LOP_Logistik.[Grund der Erfassung], LOP_Logistik.Projekt FROM LOP_Logistik where LOP_Logistik.Projekt ='" & Me!Liste.Column(1, i) & "'"

Case Is = 0

CodeSQL = "Select LOP_Logistik.[Grund der Erfassung], LOP_Logistik.Projekt FROM LOP_Logistik"

End Select

CurrentDb.QueryDefs("Grafik".SQL = CodeSQL
DoCmd.OpenQuery "Grafik", acViewPivotChart

End Sub

Le probleme, c'est que seul le cas i = 0 marche. Pour l'autre cas, le filtre WHERE de la requete est vide (J'obtiens dans la requete SELECT... FROM... WHERE LOP_Logistik.Projekt = ""

Auriez-vous une idée ?

Merci et bonne journée !

[AC07] Probleme modification requete sous conditions en VBA

jcajca — Fri, 11 May 2012 09:52:55 +0200

Bonjour tout le monde,

voici mon probleme : j'ai ecris un code VBA qui modifie le SQL d'une requete en appuyant sur le bouton d'un formulaire. Le "texte" du SQL doit changer en fonction de certaines conditions (ligne selectionnée dans une liste déroulante du meme formulaire)

Voici le code:

Private Sub Befehl4_Click()

Dim CodeSQL As String
Dim CodeSQl2 As String
Dim i As Integer

DoCmd.Close acQuery, "Grafik"
i = 0

Do Until Me!Liste.Selected(i) = True
i = i + 1

Loop

Select Case i

Case Is <> 0

CodeSQL = "Select LOP_Logistik.[Grund der Erfassung], LOP_Logistik.Projekt FROM LOP_Logistik where LOP_Logistik.Projekt ='" & Me!Liste.Column(1, i) & "'"

Case Is = 0

CodeSQL = "Select LOP_Logistik.[Grund der Erfassung], LOP_Logistik.Projekt FROM LOP_Logistik"

End Select

CurrentDb.QueryDefs("Grafik").SQL = CodeSQL
DoCmd.OpenQuery "Grafik", acViewPivotChart

End Sub

Le probleme, c'est que seul le cas i = 0 marche. Pour l'autre cas, le filtre WHERE de la requete est vide (J'obtiens dans la requete SELECT... FROM... WHERE LOP_Logistik.Projekt = "")

Auriez-vous une idée ?

Merci et bonne journée !

[AC07] Re: Clé primaire personnalisée

Guy Cassat — Thu, 10 May 2012 14:11:19 +0200

Bonjour
Merci pour les renseignements, mais le Vba connait pas trop.
Alors peux tu m'aider a resoudre le probleme par le code?
Je te remercie

[AC07] Re: Nombre de champs limité dans une requête ?

DenisS — Thu, 10 May 2012 13:17:14 +0200

:)(tu)

[AC07] Re: Nombre de champs limité dans une requête ?

JeffB — Thu, 10 May 2012 13:12:19 +0200

C'est con hein ;-)

Merci ! Je n'avais pas ouvert les 2 yeux ...