Discussion :

[sardaucar]

Bonjour à tous !


Je vous expose mon soucis afin de voir si l'un de vous aurait une solution :

Je dispose d'une table contrat liée en relation un à plusieurs à une table horaire.

Dans ma table contrat j'ai deux champs début contrat et fin contrat.

Je souhaiterais savoir s'il est possible qu'après la sélection des dates de début et fin de contrat les lignes correspondantes se créent automatiquement dans la table horaire ?

Par exemple :

Création d'un contrat n°12 du 1 janvier 2013 au 4 janvier 2013. Après la validation de ces dates dans le formulaire adéquat, les lignes suivantes se créent:

ID_horaires_ID_contrat_______Jour_Travail
1____________12____________01/01/2013
2____________12____________02/01/2013
3____________12____________03/01/2013
4____________12____________04/01/2013


Merci d'avance pour toutes vos réponses !

[star]

Oui
Sur l'évènement de validation du formulaire, tu récupères les dates début et fin.
Ensuite, dans une boucle tu génères les enregistrements dans la table horaire avec l'instruction :

dbs.Execute "INSERT INTO horaire ..."

.

[jimbolion]

Tu devrais avoir ceci !

Mais vérifie avant que les dates n'ont pas étés préalablement injectées dans ta base !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Commande10_Click()
    DtDeb = Me.Date_Debut
    DtFin = Me.Date_Fin
    Num_Contrat = Me.numerocontrat
    '
    For Boucle = 0 To DateDiff("d", DtDeb, DtFin)
        MaDate = DtDeb + Boucle
        DoCmd.SetWarnings False
        DoCmd.RunSQL ("INSERT INTO horaires ( Num_Contrat, Date_contrat ) SELECT " & Num_Contrat & " AS Num_Contrat, #" & Format(MaDate, "m/d/yyyy") & " # AS Date_contrat;")
        DoCmd.SetWarnings True
    Next
End Sub

@ Bientot

[sardaucar]

Tu devrais avoir ceci !

Mais vérifie avant que les dates n'ont pas étés préalablement injectées dans ta base !

Si les dates sont les mêmes mais pour des contrats différents et/ou des personnes différentes, cela marche ?
Si c'est le fait qu'une date ne peut être crée automatiquement si l'enregistrement contenant un id contrat et id personne équivalent et une date équivalente existe déjà, ça me va !

Question subsidiaire : me sera-t-il toujours possible après de créer un enregistrement manuellement contenant une même date pour une même personne et un même contrat ?

[jimbolion]

En réponse à ta question cela marchera si tu n'as pas prévu de contraintes dans ta table (clé unique). Dans ce cas effectivement tu pourras avoir plusieurs enregistrements redondants. Dans le message c'est pour çà que je t'ai dit de vérifier que les enregistrements n'ont pas déjà étés injectés.

Dans l'exemple précédent, Star et moi même t'avons donné une piste sur la création de date en fonction d'une plage !

A toi de modifier la requête pour insérer la personne_id et effectuer les contrôles nécessaires !

Je te laisse regarder çà et reviens vers moi si tu as besoin !

Bon courage

Attention : Un index unique sur une date est fortement déconseillé (utilise alors la fonction datepart afin de t'indiquer un entier contenant le nombre de jours écoulés dans ta table) !

[sardaucar]

Wahou, incroyable cette commande ! Elle me créé les lignes comme je le souhaitait, et un simple me.requery après le next m'affiche directement les lignes !

Bref solution parfaite, je recommande .


Juste une dernière question : est-il possible d'interdire la création automatique de lignes existant déjà ? (même contrat, même personne et même jour) sans pour autant l'interdire manuellement ?

[jimbolion]

Bien sûr que c'est possible et c'est même là tout l'intérêt de notre métier !
2 solutions :

1. effectuer les contrôles en amont (vérifier que tes valeurs ne sont pas déjà injectées dans ta base : utilises une requete sql de type select avec un recordcount ou un dcount)

2. Gérer les contraintes au niveau de ton index (index unique basé sur contrat_id, personne_id et date) ! Dans ce cas l'injection ne fonctionnera pas parce qu'elle ne respecte pas la contrainte (on peut même gérer les transactions du type commit et rollback mais là c'est plus complexe)

Si tu devais utiliser la 2eme solution (la meilleure à mon goût), évite d'utiliser un champ de type date dans un index composite (=basé sur plusieurs champs). Dans ce cas transforme ta date en entier et intègre le comme champ de ta table !

JimboLion

[jimbolion]

petite précision à la relecture de ton message

Pour répondre à ta question précédente, si tu souhaites interdire en auto et le permettre manuellement il ne te reste que la solution Numéro 1 puisque c'est toi qui gère la vérif au niveau du code (tu mets le contrôle ou tu souhaites) !

Mais à mon goût çà me semble idiot d'avoir 2 entrées identique !! (sauf si tu estimes qu'il en est autrement....)

jimbolion

[sardaucar]

Tu as clairement raison . Ce qui me pousse à vouloir pouvoir en créer manuellement c'est qu'une personne va pouvoir travailler à deux endroits différents le même jour, my bad je n'avais pas précisé ce détail ! Je peux donc créer un index idhodaire id. contrat jourtravaillé ET affectation, la en effet c'est judicieux !

Par contre je checherais comment faire avec une requête sélect et me permettrait de revenir vers toi si je ne trouve pas.

Du coup, une nouvelle question me vient a l'esprit : si je fais clic droit sur un enregistrement et nouvel enregistrement, est il possible qu'il se mette à la suite de ma ligne sélectionnée ou bien sera-t-il automatiquement crée à la fin de mes lignes ?


Quoi qu'il en soit merci énormément pour tes réponses plus que précieuses,


Cordialement,

Sardaucar

[jimbolion]

Sardaucar bonjour,

Ok avec plus d'explications je comprends mieux et tu as trouvé toi même la solution en insérant dans ta table la localisation (ou affectation) !

Pour le select tu peux revenir vers moi quand tu veux !

En ce qui concerne l'insertion en fin de ligne tu as plusieurs solutions :

1. appliquer un filtre
2. actualiser un contrôle sur un sous formulaire après chaque entrée et issue d'une requête !

personnellement la première solution me semble plus simple çà mettre en oeuvre. Je ne sais pas comment est organisé ton formulaire !

N'hésites pas si nécessaire !

Jimbolion

[sardaucar]

Bonjour ! Je reviens vers toi pour te faire part de mes avancées !

le me.requery à la fin de la commande actualise certes le formulaire mais ne se place du coup se replace sur le premier enregistrement et plus sur celui sur lequel je travaillais (dans le cas où j'ai plus d'un enregistrement), ce qui est fort fâcheux, je ne sais pas comment faire pour actualiser sans enlever le positionnement actuel.

Pour l'insertion d'une ligne à la suite d'une autre, j'ai peur que ce ne soit pas possible avec access, en effet je ne peux pas créer de ligne directement en dessous de l'enregistrement actuel, ou du moins je n'ai pas vu de solution sur internet (une actualisation sur l'ajout de la ligne ne marche pas puisque à la création le champs date n'est pas encore renseigné).

[jimbolion]

Bonjour,

Effectivement en effectuant un me.requery l'enregistrement se repositionne toujours sur le premier enregistrement !

Essaye la technique du refresh ou repaint !

Sinon, avant insertion tu conserves ton Id et tu fais après ton requery un docmd.findrecord (ou tu repasses l'id précedemment conservé)

N'oublie pas echo false et echo true afin d'éviter le scintillement !

J'ai une autre technique mais je la conserve si tu n'y arrives pas !

@++

[sardaucar]

Bonjour,

Effectivement en effectuant un me.requery l'enregistrement se repositionne toujours sur le premier enregistrement !

Essaye la technique du refresh ou repaint !

Sinon, avant insertion tu conserves ton Id et tu fais après ton requery un docmd.findrecord (ou tu repasses l'id précedemment conservé)

N'oublie pas echo false et echo true afin d'éviter le scintillement !

@++

Tu dois me prêter des compétences que je n'ai pas

Le .Refresh marche à merveille !

Je ne sais pas comment on conserve une donnée et encore moins comment on la repasse !

Echo false et true se mets au début et à la fin de la sub ?

Merci encore de l'aide apportée

[kh.lakehal]

Bonjour à tous,

Actuellement j'aide un ami à construire une base de données access pour gérer planning crèche, et je fais remonter ce topic car il répond à mon problème .... mais je bloque quand j'essaye de modifier la requete citée en haut.

J'ai une table Contrat avec un IDcontrat, date début, date fin et le nom enfant (valeur numérique avec la requête : SELECT IDEnfant, [Nom complet] FROM [Enfants(étendu)] ORDER BY [Nom complet]

Je souhaiterais ajouter ces infos dans la table Planning; voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Commande723_Click()
    DtDeb = Me.DateDébut
    DtFin = Me.DateFin
    Num_Contrat = Me.IDContrat
    Nom_Enfant = Me.Enfant
    '
    For Boucle = 0 To DateDiff("d", DtDeb, DtFin)
        MaDate = DtDeb + Boucle
        DoCmd.SetWarnings False
        DoCmd.RunSQL ("INSERT INTO Planning ( IDContrat, Enfant, Jour ) SELECT " & Num_Contrat & " AS Num_Contrat, #" & Nom_Enfant & " AS Nom_Enfant, #" & Format(MaDate, "m/d/yyyy") & " AS Jour;")
        DoCmd.SetWarnings True
    Next
    Me.Refresh
End Sub

j'ai un message d'erreur : Erreur de syntaxe dans la date dans l'expression, et je bloque un peu ?

ensuite, j'aimerais appliquer la méthode suivante pour interdire des doublon :

1. effectuer les contrôles en amont (vérifier que tes valeurs ne sont pas déjà injectées dans ta base : utilises une requete sql de type select avec un recordcount ou un dcount)

mais la aussi, je bloque ...

si quelqu'un peut m'aider ...

d'avance merci

[loufab]

Bonjour,
L'erreur est là :

Code :

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

...#" & Format(MaDate, "m/d/yyyy") & " AS Jour;")

tu ouvres la balises mais tu ne la fermes pas.

[kh.lakehal]

Bonjour,
L'erreur est là :

Code :

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

...#" & Format(MaDate, "m/d/yyyy") & " AS Jour;")

tu ouvres la balises mais tu ne la fermes pas.

Bonjour,
merci, j'avais pas vu ce détail, et du coup ça marche très bien ...

j'ai une question qui m'est venu à l'esprit en regardant de près le code d'origine du semainier, s'il y'a des jours fériés, ou un week end, comment éviter les enregistrement automatique ? ou les supprimer a la fin ?

[kh.lakehal]

Bonjour,
merci, j'avais pas vu ce détail, et du coup ça marche très bien ...

j'ai une question qui m'est venu à l'esprit en regardant de près le code d'origine du semainier, s'il y'a des jours fériés, ou un week end, comment éviter les enregistrement automatique ? ou les supprimer a la fin ?

Finalement, j'ai résolu le problème.

merci de votre aide.

[kh.lakehal]

Tu devrais avoir ceci !

Mais vérifie avant que les dates n'ont pas étés préalablement injectées dans ta base !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Commande10_Click()
    DtDeb = Me.Date_Debut
    DtFin = Me.Date_Fin
    Num_Contrat = Me.numerocontrat
    '
    For Boucle = 0 To DateDiff("d", DtDeb, DtFin)
        MaDate = DtDeb + Boucle
        DoCmd.SetWarnings False
        DoCmd.RunSQL ("INSERT INTO horaires ( Num_Contrat, Date_contrat ) SELECT " & Num_Contrat & " AS Num_Contrat, #" & Format(MaDate, "m/d/yyyy") & " # AS Date_contrat;")
        DoCmd.SetWarnings True
    Next
End Sub

@ Bientot

Bonjour,

Si je souhaite utiliser ce code en spécifiant uniquement une journée ou deux dans la semaine, et qui se répète la semaine suivante jusqu’à la fin, quel est la meilleur façon de faire ...

dans mon formulaire, les jours de la semaine sont des cases à cocher, nommé : Jour1;Jour2;Jour3;Jour4;Jour5

d'avance merci ...

[User]

Bonsoir,

Il faudray utiliser la fonction WeekDay( MaDate,2) qui permet de tester si la date tombe sur le jour1 (lundi) , le jour2 (mardi), etc...

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
Private Sub Commande10_Click()
    DtDeb = Me.Date_Debut
    DtFin = Me.Date_Fin
    Num_Contrat = Me.numerocontrat
    '
    For Boucle = 0 To DateDiff("d", DtDeb, DtFin)
        MaDate = DtDeb + Boucle
        j=WeekDay( MaDate,2)
        If Me("Jour" & j).Value=true Then
           DoCmd.SetWarnings False
           DoCmd.RunSQL ("INSERT INTO horaires ( Num_Contrat, Date_contrat ) SELECT " & Num_Contrat & " AS Num_Contrat, #" & Format(MaDate, "m/d/yyyy") & " # AS Date_contrat;")
           DoCmd.SetWarnings True
       end if
    Next
End Sub

Cdlt,

[kh.lakehal]

C'est parfait .... merci merci