Discussion :

[samlepiratepaddy]

Slt,

J'aimerai faire un truc du genre

Code :

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

1
2
INSERT INTO Table1 ( IdSalarié, JourDeTravail, MatinAprèsMidiSoir, TrancheHoraire )
SELECT 5 AS Expr1, "Lundi" AS Expr2, "Matin" AS Expr3, "08:30:00" AS Expr4;

Mais auquel je puisse rajouter à la fin un "And" pour faire du genre

Code :

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

1
2
3
INSERT INTO Table1 ( IdSalarié, JourDeTravail, MatinAprèsMidiSoir, TrancheHoraire )
SELECT 5 AS Expr1, "Lundi" AS Expr2, "Matin" AS Expr3, "08:30:00" AS Expr4 and Table1 ( IdSalarié, JourDeTravail, MatinAprèsMidiSoir, TrancheHoraire )
SELECT 5 AS Expr1, "Lundi" AS Expr2, "Matin" AS Expr3, "09:00:00" AS Expr4;

Etc... Afin de pouvoir lancer une seule et même requeteAjout avec les critères d'heures qui change !
Mais je n'arrive pas a faire comprendre ça avec l'interface de requete Accèss !
Enfin cette Requete ira en Vba après, et encoder du style

Code :

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

DoCmd.RunRql INSERT INTO Table1 (IdSalarié,Jour...,Matin...,Tranche...) Forms!FormulaireTruc!IdSalarié, Forms!FormulaireTruc!Jour...,Etc..., #08:00:00#;

Et comment faire pour sur cette requete rajouter

#08:30:00#, #09:00:00#, #09:30:00#,etc...

de façon a repeter IdSalarié, Jour, Matin, mais que l'heure qui change !!
Est-ce possible???
Merci d'avance...

[Trini]

Salut Sam,

Pourquoi tu veux pas faire plusieurs requetes qui s'éxécutent à la suite, en ligne de code, ça ne pose aucun problème en VBA ?

@+

[samlepiratepaddy]

Slt Trini
J'y ai pensé mais je me suis dis :
Si c'est possible en une seule pourquoi en faire Wat's milles!!!
C'est tout !!
Ce n'est qu'une redonnance !
Même Id
Même Jour
Même Matin
Pour une série d'heures!!
Mais si c'est pas possible tanpis !
j'les ferai toutes !

[fdraven]

Il suffit de faire un boucle qui liste ta série d'heure et au final ça ne fait qu'une requête.

[samlepiratepaddy]

Heu excuse fdarven
Mais faire une boucle??? moi qui suis nul je ne sais pas faire ça??!!
C'est faire une requete qui retrace ma série d'heure et rajouter le résultat de cette requete a la place de mon #08:00:00# actuel ??
Du style

Code :

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

DoCmd.RunRql INSERT INTO Table1 (IdSalarié,Jour...,Matin...,Tranche...)  Forms!FormulaireTruc!IdSalarié, Forms!FormulaireTruc!Jour...,Etc..., Select R_TrancheHoraire.Horaire ;

C'est ça?

[fdraven]

Tu dis que tu as une série d'heures, donc il suffit de stocker cette série d'heures quelque part table, tableau ... et ensuite de boucler sur cette liste et d'exécuter ta requête d'insert à chaque passage de ta boucle.

[Trini]

Re,

Bon allez , soit, un petit exemple :

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
 
 
Sub MAJ_Table1
 
Dim tHeure(3)   ' 3 heures différentes
Dim I as Byte
 
  ' Les 3 heures....
tHeure(1)="08:30:00"
tHeure(2)="09:30:00"
tHeure(3)="10:30:00"
 
 
For I = 1 to 3
 
  DoCmd.RunRql "INSERT INTO Table1 ( IdSalarié, JourDeTravail,      MatinAprèsMidiSoir, TrancheHoraire ) SELECT 5 AS Expr1, 'Lundi' AS Expr2, 'Matin' AS Expr3, tHeure(I) AS Expr4;"
 
Next

@+

[Trini]

Re,

J'ai fait une petite bourre sur tHeure dans le SQL

Code :

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

1
2
 
  DoCmd.RunSql "INSERT INTO Table1 ( IdSalarié, JourDeTravail,      MatinAprèsMidiSoir, TrancheHoraire ) SELECT 5 AS Expr1, 'Lundi' AS Expr2, 'Matin' AS Expr3, " &  tHeure(I) & " AS Expr4;"

C'est ça de faire plusieurs trucs en même temps ....

@+

[samlepiratepaddy]

Re,
Bon étant donné qu'il ya une valeur répétitive dans ce truc et qui va l'etre de façon récurrente j'ai cru bon de créer une table (T_Horaire) qui retrace chaque jour de la semaine et l'ensemble des horaires pour chaque jour !
Ce qui donne en gros:

Jour;Horaire
Lundi;08:00:00
Lundi;08:30:00
Etc..
Mardi;08:00:00
Mardi;08:30:00
Etc..
Mercredi;08:00:00
Mercredi;08:30:00
ETc...
Etc...

Ensuite pour chaque nouveau commercial, je voudrai simplement ajouter a une table que j'ai Appelé T_SalariéTrancheHeure tous les enregistrements de la table T_Horaire a la table T_SalariéTrancheHeure
Comme ça j'ai pour chaque Salarié l'ensemble des tranches !
J'ai écris ceci en code

Code :

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

DoCmd.RunSQL "INSERT INTO T_SalariéTrancheHeure (JourTravaillé,TrancheHeureTravaillé,IdSalarié)Select T_Horaire.Jour,T_Horaire.Horaire,Forms!F_Fonction!NumSalarié From T_Horaire;"

Mais il ne trouve pas le

Forms!F_Fonction.NumSalarié

Est-ce que cela vient du fait que F_Fonction est un sous form !!??
Pourtant il est bien intitulé comme ça dans le form principal???

[Trini]

Re,

Ecrit déjà plutôt cela :

Code :

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

1
2
 
DoCmd.RunSQL "INSERT INTO T_SalariéTrancheHeure (JourTravaillé,TrancheHeureTravaillé,IdSalarié)Select T_Horaire.Jour,T_Horaire.Horaire, " & Forms!F_Fonction!NumSalarié & " From T_Horaire;"

Mais si le DoCmd se trouve dans le formulaire principal et que NumSalarié est dans un sous-formulaire, là c'est plus bon !
- Peut-tu m'indiquer le nom du controle contenant le sous-formulaire (pas le nom du sous-formualire) ?
- NumSalarie est-il bien dans le sous formulaire ?
- Le DoCmd est éxécuté dans le Formulaire principal ou dans le SousFrm ?

A de suite,

[samlepiratepaddy]

Bien

Peut-tu m'indiquer le nom du controle contenant le sous-formulaire (pas le nom du sous-formualire) ?

F_Fonction verification faite avec l'ordre de tabulation !

- NumSalarie est-il bien dans le sous formulaire ?

OUI

Le DoCmd est éxécuté dans le Formulaire principal ou dans le SousFrm ?

Dans le sous formulaire car je dois aussi désactivité le bonton si la liste déroulante "Service" n'a pas la valeur "Commercial" et cette liste est dans le sous form !
Et j'ai suivi un autre post auquel tu répond la soluce suivante

Private Sub Form_Error(DataErr As Integer, Response As Integer)

if DataErr = <code de l'erreur> then Response=AcDataErrContinue

End Sub

Pour enlever le code d'erreur suite a l'ajout sur des enregsitrements en doublons !!
Moi ma table T_SalariéTrancheHeure comporte trois champs:
IdSalarié
JourTravaillé
TrancheHoraireTravaillé
Les trois en clef primaire ! Et rien d'autre ! Ce code pourrai etre utile non? qu'en pense tu???
Il est possible d'en faire une adaptation sur le DoCmd. ci dessus??

[Trini]

Re,

Pour la gestion d'erreur en cas de doublons, ça doit marcher aussi pour ton cas.

Aloooors pour ce qui est du champ dans le sous-formulaire

Code :

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

1
2
 
 Me!NumSalarié

Cela devrait suffir !

Salut,

[samlepiratepaddy]

ben

Code :

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

DoCmd.RunSQL "INSERT INTO T_SalariéTrancheHeure (JourTravaillé,TrancheHeureTravaillé,IdSalarié)Select T_Horaire.Jour,T_Horaire.Horaire, Me.NumSalarié From T_Horaire ;"

Toujours la demande de critère ...

Code :

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

DoCmd.RunSQL "INSERT INTO T_SalariéTrancheHeure (JourTravaillé,TrancheHeureTravaillé,IdSalarié)Select T_Horaire.Jour,T_Horaire.Horaire, " & Forms!F_Fonction!NumSalarié & " From T_Horaire;"

aussi
Et j'ai essayé aussi dans le form principal même résultat ..

Code :

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

DoCmd.RunSQL "INSERT INTO T_SalariéTrancheHeure (JourTravaillé,TrancheHeureTravaillé,IdSalarié)Select T_Horaire.Jour,T_Horaire.Horaire, Forms!F_Fonction!NumSalarié  From T_Horaire;"

Pourtant je me suis inspiré d'une SQL INSERT que j'ai faite qui marche super bien qui fait référence a deux champs dans le form et c'est écris pareil !!??

[samlepiratepaddy]

Ben si y en a qui comprenne??? Moi PAS !
Voilà

Code :

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

DoCmd.RunSQL "INSERT INTO T_SalariéTrancheHeure (JourTravaillé,TrancheHeureTravaillé,IdSalarié)Select T_Horaire.Jour,T_Horaire.Horaire, forms!F_Salarié!IdSalarié  From T_Horaire;"

ça ça marche quand le bouton est dans le form principal
et ça

Code :

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

DoCmd.RunSQL "INSERT INTO T_SalariéTrancheHeure (JourTravaillé,TrancheHeureTravaillé,IdSalarié)Select T_Horaire.Jour,T_Horaire.Horaire,forms!F_Fonction!NumSalarié From T_Horaire;"

ça marche pas quand le bouton est dans le sous form ???
PS:IdSalarié dans le sous form s'appelle NumSalarié !!
doit y avoir un truc du genre

form!F-Salarié!forms!F_Fonction!NumSalarié

pas beau ça
Mais sinon je vois pas ce qui cloche :
et p'y j'aime po po comprendre

[Trini]

Re,

Avec les '&' sur Me!numSalarié dans le SQL comme

Code :

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

1
2
 
DoCmd.RunSQL "INSERT INTO T_SalariéTrancheHeure (JourTravaillé,TrancheHeureTravaillé,IdSalarié)Select T_Horaire.Jour,T_Horaire.Horaire, " & Me!NumSalarié & " From T_Horaire;"

T'as essayé ?
Dans le sous formulaire, OK !

@+

[samlepiratepaddy]

TROP FORT TRINI
Impec !
Du bonheur !
Je désactive et réactive mon bouton ! Super !
Mais quand à

Code :

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

if DataErr = <code de l'erreur> then Response=AcDataErrContinue

Je n'arrive pas a récupérer le N° de l'erreur qui spécifie les doublons !
si je fais NON je recupère "2501" qui est l'erreur du RunSQL pas executé !
Mais l'erreur des doublons ...
Même si je force l'execution de la requete !
Bien sur rien ne s'ajoute (heureusement car a chaque click 162 enregistrements!!)
dommage !! a moins que c'est ce N° qu'il faut mettre ???
Remarque le bouton est désactivé et n'est acitivé que sur MAJ de ma liste donc je pourrai inclure la procédure d'ajout sur AfertMaj selon mon critère et cela devrai le faire !

Merci encore Trini de ta patience avec un boulet comme moi !!

[Trini]

Re,

Un autre truc aussi, emploies plutôt

Code :

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

1
2
 
Currentdb.execute ""INSERT INTO........" , DbFailOnERror

que

Code :

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

1
2
 
Docmd.runsql ....

Qaund tu utilises Docmd.runsql, Access n'indique pas l'erreur par un Msgbox, y passe sans faire la mise à jour, tranquille
Sinon l'erreur pour doublon c'est 3022.

Si moi je suis patient, toi tu n'as pas l'air d'en manquer non plus

Salut,

[samlepiratepaddy]

A la seule différence que moi c'est parce que je rame !!!
Merci pour ton astuce !!
J'vais me le garder dans un coin !!! 8)
Moi, ça fait deux mois que j'ecris des codes !!
Avant je sais même pas que ça existait
T'imagine comment j'galère !!!
Surtout quand je vois des KADORS comme vous!!
Mais j'apprend, je suis perceverent !!!
Maso peut-etre mais j'aime ça !
Aller bonne nuit et merci encore !!!