Discussion :

[wolftoto]

bonjour,

je voudrais avoir ton avis concernant la base suivante

voici mes tables
tblPatient
ClefPatient
NIPPatient (numero donnee a chaque patient)
nom, prenom, date de naissance,....

tblOrdonnance
ClefOrdonnance
ClePatient (numerique)
Date Ordonnance(date/heure)
Medecin(texte,zone liste deroulante, liste de valeur)
Prestataire(texte,zone liste deroulante, liste de valeur)

avec une relation entre ces deux tables sur ClefPatient avec les 3 cases de cocher.

tblMachine
ClefMachine(numero auto)
Designation machine(texte) => je donne le modele de machine donc pour le moment trois lignes

tblModeventilation
ClefModeVentilation(numero auto)
Mode (texte) => je donne les differents mode exemple Astral Vac, ......Trilogy Vac pour le moment j'ai deja 20 lignes
=>de 1 a 7 pour l'astral
-Astral Vac, Astral Vaci, Astral Ai, Astral Vpac, Astral St, Astral Paci, Astral Cpap
=> de 8 a 20 pour la trilogy

tblReglage
ClefReglage (numeroauto)
Reglage (zone texte) => j'ai rentrer déjà 20 lignes de réglage rien que pour le mode Astral Vac ( exemple Vt, Fr, Ti, etc....)

tblMachineModeVentilation
ClefMachineModeVentilation (numero auto)
ClefMachine (zone liste derooulante, table/requete=> tblMachine)
ClefModeVentilation (zone liste derooulante, table/requete=> tblModeVentilation)
ClefReglage (zone liste derooulante, table/requete=> tblReglage)

tblOrdonnanceMachine
ClefOrdonnanceMachine (numeroauto)
ClefDateOrdonnance (Date/heure)
ClefOrdonnance (Numerique, zone texte)
ClefPatient (Numerique, zone texte)
ClefMachine (Numerique, zone liste deroulante, table/requete, selecte [tblMachine.....)
ClefModeVentilation (numerique, zone liste deroulante, table/requete, tblModeVentilation)
ClefReglage (numerique, zone liste deroulante, tblReglages
ValeurReglage (zone texte) je rentre ma valeur de reglage


j'ai mis comme tu me indique sur le formulaire la page de code
il y a des lignes en rouge "dim rReglage as dao.recordset("tblMachineModeReglage", dbOpenSnapShot) 'Ouvre la table pour lecture seulement

critere="[ClefDateOrdonnance]=" & prmClefDateOrdonnance _
& " and [ClefPatient]=" & prmClefPatient _
& " and [ClefMachine]=" & prmClefMachine _
& " and [ClefModeVentilation]=" & prmClefModeVentilation _
& " and ([ClefReglage]=" & rReglage![ClefReglage] or [ClefReaglge] is null)"

je ne sais pas pourquoi

J'ai fait un formulaire Patient (saisir les données patients)un sous formulaire ordonnance (je saisis la date, le nom du docteur et le nom du prestataire) et son formulaires Ordonnance machine (je saisis la machine, son mode, son réglage et sa valeur ( cette dernière ligne est a répéter pour chaque réglages)).
Je vais prévoir pour ce formulaire un bouton retour accueil et je vais prévoir un bouton pour imprimer une ordonnance du patient suivant la date ou dois figurer les identités patient plus le nom de la machine, son mode, ses réglages et valeur.

je vais ensuite prévoir une page accueil, une page liste patient avec une zone recherche suivant certain critère.
Bref il me reste du taf mais tu ma déjà pas mal données un coup merci encore

[marot_r]

Excuse moi, j'ai oublié une partie des instructions.

Code :

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

dim rReglage as dao.recordset: set rReglage=db.OpenRecordset("tblMachineModeReglage", dbOpenSnapShot) 'Ouvre la table pour lecture seulement

Personnellement je ne recommande pas l'utilisation de champs multivalués (en réalité une table dans un champ).
Je préfères faire une table dédiée à part.

Le seul avantage que je vois au champs multivalués c'est l'interface de sélection.

Sinon, cela me semble tel que je l'aurais fait moi-même.

A+

[wolftoto]

merci encore pour ton coup de main qui m'a franchement bien aider

je note résolu