Discussion :

[lajaume]

Bonjour,

Je souhaite votre aide pour la modélisation de ma BD Access.

Clients(IDCLIENT,nomClient,...)
Obligations(IDOBLIG, nomObligation)
DateObligation(#IDOBLIG,DATECH)
Clients_obligations(#IDCLIENT,#IDOBLIG)


J'ai un client qui a une liste d'obligations.
J'ai une obligation qui a une liste de dates.

Pour chaque client on a une liste d'obligations qui ont elles même une liste de dates.

Je voudrai pouvoir enregistrer dans une attribut de type date, a quelle date a été fait une date d'une obligation pour un client, mais je ne sais pas trop où ajouter cet attribut.

exemple:
Un client C a comme obligation la TVA. La TVA a comme liste date : 21/01,21/02,21/03,..,21/12.
Je voudrai pouvoir enregistrer que le client C qui a l'obligation TVA a réaliser l'obligation TVA en date du 21/02 le 19/02.

Merci.

[ClaudeLELOUP]

Bonjour,

Dans ton modèle, tu dois ajouter des tables de liaison.

Vois ce tutoriel pour assimiler la méthode : http://claudeleloup.developpez.com/t...us-formulaire/

[lajaume]

J'ai quelque chose de comme ça, mais cela me pose problème car on a de la redondance de données.
Ce qui est dans OBLIGATIONS_CLIENTS je dois le recopier dans DATES_OBLIGATIONS_CLIENTS.

[ClaudeLELOUP]

J'ai besoin d'un délai de réflexion.

Je te reviens dans peu de temps.

[ClaudeLELOUP]

Donne-moi deux autres obligations avec les échéances qui correspondent

[lajaume]

Obligation : IS
Echéances de IS : 15/06/2017, 15/09/2017

Obligation : Saisie
Echéances de Saisie: 31/01/2017,28/02/2017,31/03/2017,..,31/12/2017

[lajaume]

Que penses tude ça ?
Ce qui me dérange un peu ici c'est d'une part qu'un client n'a réellement une liste d obligations mais une liste de dates.

Et que la table DATE doit avoir un autre identifiant que la date elle meme.
Merci

[ClaudeLELOUP]

Laisse-moi un peu de temps, je travaille sur une proposition.

[ClaudeLELOUP]

Un premier jet

Le modèle

Un formulaire père/fils pour définir les obligations et leurs échéances

Un formulaire père/fils/petit-fils pour la situation de chaque client

Code associé au formulaire fClients

Code :

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

1
2
3
4
5
6
7
8
9
Option Compare Database
Option Explicit
 
Private Sub Form_Load()
  'Mettre les échéances à jour
  DoCmd.SetWarnings False
  DoCmd.OpenQuery "rCreaEchClients"
  DoCmd.SetWarnings True
End Sub

La requête exécutée (automatiquement) à l’ouverture de fClients

Pas de risque de doublons car

Regarde si cela se rapproche de ce que tu veux faire.

Si oui, fais signe si besoin d'explications complémentaires.

Pour le formulaire père/fils/petit-fils... : http://claudeleloup.developpez.com/t...aternelle/#LII

[lajaume]

Merci de tout ce travail que tu as fais.

Je vais me pencher sur ce travail vendredi, je te tiens au courant.

Merci d'avance.

[lajaume]

Re,

J'ai regardé un peu ce que tu m'a envoyé, je ne comprends ce que tu as fais pour éviter les doublons sur la table tClientsObligations ?

Merci

[ClaudeLELOUP]

Regarde l'index « Unicite » de la table.

Si tu essaies d'ajouter une combinaison Client/Obligation, elle sera rejetée => chaque fois que tu vas ouvrir le formulaire et que tu n'as pas encore renouvelé les dates d'échéance ou qu'il n'y a pas de nouveaux clients, la requête rCreaEchClients va tenter d'ajouter des combinaisons qui existent déjà : celles-ci seront rejetées (ça ne mange pas de pain !).

Clair maintenant ?

[lajaume]

Merci!

Est ce que tu penses que si la requête rCreaEchClients est exécuté après MAJ de la table tClientsObligations (tel un trigger) cela peut être mieux ? ou cela peut il poser des problèmes ?

[ClaudeLELOUP]

C'est se compliquer la vie.

Tu devrais aussi penser à l'exécuter chaque fois que tu ajoutes un nouveau client, voire une nouvelle obligation à un client actuel.

Bref, c'est tout un système qu'il faut mettre en place ! De toi à moi, ce qui n'existe pas ne tombe jamais en panne ! Tant pis si ta machine doit tourner quelques nanosecondes pour faire quelque chose qui, souvent, ne servira à rien.

[lajaume]

Merci pour ton aide j'avance bien.

J'ai une autre question qui n'est pas sur la modélisation mais sur l'exploitation des données.

J'aurais peut être du faire un autre sujet?

Ma base (en simplifiée):
Clients(IDClient,nom,fkIDcollab)
Collab(IDcollab, nomCollab, prenomCollab)

Je voudrais avoir dans un formulaire une zone de liste multi-sélection avec la liste des collaborateurs.

Lorsque l'utilisateur n'a sélectionné aucun collaborateur, on affiche aucun client, lorsque un collaborateur est sélectionné, on affiche tous ces clients lorsque deux collaborateurs sont sélectionnées, on affiche tous leurs clients.
Avec les sous formulaires je ne sais pas comment transmettre deux paramètres ou plus en fonction du nombre de collab sélectionné.

Dois je faire autrement ?

Merci.

[ClaudeLELOUP]

J'aurais peut être du faire une autre sujet?

Oui, par exemple dans la partie IHM.

Et explique mieux, par exemple en donnant un exemple concret.

P.-S. Clique sur Résolu pour cette discussion-ci.

[lajaume]

Bonjour,
J'ai une nouvelle question sur la structure de la BD,
admettons que je modifie une date dans tObligationsEcheances, la requete d'ajout va insérer une nouvelle echéanceClient au lieu de mettre à jour la date dans l'écheanceClient. J'aurais donc toujours l'ancienne date dans tEcheancesClients

Comment faire pour solutionner cela car je ne trouve pas de solution ?

Merci d'avance.

[ClaudeLELOUP]

Bonjour lajaume,

Il « suffit » d’ajouter ce code dans l’événement Sur suppression de sfEcheance :

Code vba :

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

1
2
3
4
5
6
7
8
9
10
Option Compare Database
Option Explicit
 
Private Sub Form_Delete(Cancel As Integer)
  DoCmd.SetWarnings False
  DoCmd.RunSQL "DELETE * FROM tEcheancesClients " _
                  & "WHERE tObligationsFK=" & [tObligationsFK] _
                  & " AND Echeance=#" & Format(Me.Echeance, "mm/dd/yyyy") & "#;"
  DoCmd.SetWarnings True
End Sub

En clair, c’est une requête qui supprime les enregistrements de cette date, pour cette obligation dans la table tEcheanceClients.

[lajaume]

Merci, je regarde.