Discussion :

[Pierre Dumas]

Bonjour

J'ai bien fait des recherches sur DVP ou le Net, mais je n'ai pas trouvé mon bonheur. Il faut dire que j'ai un peu de mal à l'expliquer.

Tout d'abord, voici mes relations :



Grâce à un formulaire, je sais ajouter dans la TPlanning autant de lignes pour UNE personne dans la TPersonnes qu'il y a de dates entre des dates choisies dans mon formulaire, de jours de semaine choisis et de modèle d'heures de début et de fin.

Mais je vais avoir des dizaines de personnes.
Je cherche donc à ajouter plusieurs personnes en même temps (suivant les mêmes dates, même site, même modèle d'heures).

Je voudrais pour ce faire, pouvoir sélectionner les personnes (issues de la TPersonnes) qui m'intéressent dans mon formulaire et les ajouter dans la TPlanning.

Je ne vois pas comment arriver à les sélectionner dans un formulaire pour ensuite leur appliquer le traitement désiré.

Je passe peut-être à côté d'une solution évidente, mais là, je ne la trouve pas.

Pour information : les tables sont toutes liées et il s'agit d'un environnement multi-utilisateurs.

Merci d'avance à qui pourra m'apporter la lumière.

Bonne soirée

Pierre Dumas

[hyperion13]

Salut
Une solution (VBA) parmi tant d'autres avec lstbox, combobox, txtbox indépendants.

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 btnAjout_Click()
If Me.lstPersonnes.ItemsSelected.Count > 0 _
    And Not IsNull(Me.cboSites) _
    And Not IsNull(Me.txtDatedeb) _
    And Not IsNull(Me.txtHeuredeb) _
    And Not IsNull(Me.txtHeurefin) Then
 
    For i = 0 To Me.lstPersonnes.ListCount - 1
        If Me.lstPersonnes.Selected(i) = True Then
            CurrentDb.Execute "INSERT INTO TPlanning (idPersonnes_fk, idSites_fk, datedeb, heuredeb, heurefin)" _
                & " VALUES(" & Me.lstPersonnes.ItemData(i) & ", " & cboSites.Column(0) & ", #" & Me.txtDatedeb & "#, #" & Me.txtHeuredeb & "#, #" & Me.txtHeurefin & "#)", dbFailOnError
        End If
    Next i
End If
End Sub

[Pierre Dumas]

Merci hyperion13

Cette solution est intéressante et elle a le mérite de pouvoir ainsi permettre de remplir aussi la table TPlanningDetails.

Est-ce qu'il pourrait y avoir une solution sans VBA à base de requête(s) ?

Bonne journée

Pierre Dumas

[User]

Bonjour,

Vous dites :

Mais je vais avoir des dizaines de personnes.
Je cherche donc à ajouter plusieurs personnes en même temps (suivant les mêmes dates, même site, même modèle d'heures).

Si je comprends bien les dates/heures/sites se répètent ?

Personnellement, pour éviter de répéter à chaque fois la date, le site, et l'heure de début et de fin pour chacune des personnes,
j'aurais tendance à placer les données de date/heure/site dans une seule table planning :

TPlanning(IdPlanning, IdSite, DateDeb, HeureDeb, HeureFin)

Et les identifiants des personnes dans une autre table :

TPlanningPersonne(IdPlanning, IdPersonne, ...)

Ou dans la table TDetailPlanning, mais en fait j'ignore ce qu'elle contient déjà .

C'est une idée..

Cdlt

[Pierre Dumas]

Merci User de faire des propositions

Mais il ne me semble pas que ce soit possible. En effet, même si plusieurs personnes peuvent être sur le même site le même jour aux mêmes horaires, ce n'est pas le cas pour tous.

Il peut y en avoir une dizaine sur un même créneau, et 3 qui arrivent une demi-heure plus tôt, et 2 encore un demi-heure plus tôt. Puis 5 1 heure plus tard, puis une dizaine 1 encore plus tard.,Plus tous les "électrons libres".

C'est pour cette raison que je suis intéressé par le fait de sélectionner plusieurs personnes en même temps pour leur appliquer le même horaire.

La TPlanning permet de donner les dates, horaires et sites de chaque personne.
La TplanningDetail permet d'expliciter ce que feront chacune des personnes dans ces horaires.

En espérant avoir éclairci les relations.

Bonne journée et merci encore des propositions

Pierre Dumas

[User]

Dans ce cas j'essaierai plutôt ce modèle:

TPlanning(IdPlanning, IdSite, DateDeb)

Et les identifiants des personnes et les horaires dans la table détail :

TPlanningDetail(idPlanningdet, idPlanning, idPersonne, heuredeb, heurefin, note,...)

[Pierre Dumas]

Merci beaucoup à hyperion13 et à User pour cette discussion.

Cela m'a bien aidé. J'ai inséré dans la boucle des valeurs de la liste une macro appelant une requête paramétrée. C'est nickel.

Belle journée à chacun

Pierre Dumas