Discussion :

[Arnox]

Bonjour,

Dans le cadre de mon activité et sous AC2003, je dois créer une base de données regroupant des informations stratigraphiques. Le but dans ce cas est d’identifier l’interaction des couches entre elles (qui est au dessus de qui et inversement). Comme vous pourrez le voir sur l’image jointe, j’ai des cas d’entrées multiples dans mes futurs champs « Sur » et « Sous » et même des égalités partielles (cf. 1.15).
J’aurai à rendre possible ce genre d’enregistrement depuis mon formulaire :

N° us : 1.11 Sur : 1.12 Sous : 1.10
1.16



J’ai cru comprendre que je devrai « dupliquer » ma table US qui deviendra une US_1 et lier les deux par une table de Jonction comprenant des champs Sur et Sous. A partir de là je ne vois hélas plus. Requêtes ? modules ? par SQL ?

Tbl_Us ---- Jonc_Sur_Sous ---- Tbl_US_1

Votre aide me serait précieuse.

Merci d’avance,

Arnox

[PipoWIL]

Bonjour,

Avoir deux données dans un même champ complique le problème.
Vous est-il possible de séparer ces données ?
Est-il imaginable d'avoir quelque chose comme ceci ?
Pièce jointe 150209

[fredjvet]

Bonjour,

Si tu n'as que deux cas de valeur haut et bas, tu peux peut être faire des champs Sous1, Sous2...

Si tu en as plus à rentrer, tu pourrais faire une table Sous et une table Sur qui serait reliée à ta table principale décrivant l'objet.
Tu pourrais alors la remplir avec un formulaire classique et deux sous formulaire en mode tableur. Reste ton "Zone 1" à pas oublier.

Après si c'est plus rare, tu peux peut-être faire des manipulations de chaines de caractère pour te ressortir ce que tu veux au bon endroit au bon moment, en rentrant tes infos dans le même champs.

Ce serait bien que tu nous décrivent un peu plus ce que tu veux faire de tout ça.

Tu arrives sur un terrain tu sondes et tu énumères les différentes couches que tu croisent dans une carotte ? Tu veux en faire quoi exactement de cette donnée relevée ?

[Arnox]

Bonjour et merci pour vos réponses,

@ PipoWill : Je ne peux hélas pas créer de nouvelles entrées de cette façon. Chacun Us (unité stratigraphique) correspond à un enregistrement de terrain, relevé papier prise de vue et donnée géographique. De plus les formats de numéros US vont beaucoup varier d’un rapport de fouille à l’autre : 1XX, 1.X, comme ici etc.

@fredjvet : L’exemple fourni ne comporte que deux entrées mais je vais être amené à en gérer bien plus (8 à 10 entrées, parfois plus). D’où l’importance du lien relationnel Sur/Sous pour pouvoir s’y retrouver.

Je dois en fait élaborer une BDD dans laquelle j’intégrerai les données issues de rapports de fouilles (passés ou à venir). Avant de les intégrer à un SIG (en passant par un export excel).

Chaque site comprend des sondages dans lesquels on relève des logs de la stratigraphie (superposition des US entre autre).

Une de mes collègues m’a laissé entrevoir la solution que j’ai tenté de décrire plus haut.

De ce que j’ai pu voir sur la fenêtre de relations : on a une Table
« FicheUS » et sa copie «FicheUS_1 »
ainsi qu’une table de jonction « Jonc_AntéPost » comportant les champs
PostérieureA
AntérieureA

J’ai pu identifier également, 2 requêtes :
Rec_Anté

SELECT DISTINCT Jonc_AntéPost.AntérieureA AS US, RecupPost(AntérieureA) AS Sous
FROM Jonc_AntéPost;

Rec_Post

SELECT DISTINCT Jonc_AntéPost.PostérieureA AS US, RecupAnté(PostérieureA) AS Sur
FROM Jonc_AntéPost;

Ainsi que 2 modules :
RegroupAnté :

Public Function RecupAnté(AntérieureA As String) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les projet du partcipant
'chr(34) correspond a des guillemets pour encadrer le texte
SQL = "SELECT PostérieureA FROM Jonc_AntéPost WHERE AntérieureA=" & AntérieureA
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrement
While Not res.EOF
RecupAnté = RecupAnté & res.Fields(0).Value & ";"
res.MoveNext
Wend
'Enleve le dernier ;
'libere la mémoire
Set res = Nothing
End Function

RegroupPost :

Public Function RecupPost(PostérieureA As String) As String
Dim res As DAO.Recordset
Dim SQL As String
'Selectionne les projet du partcipant
'chr(34) correspond a des guillemets pour encadrer le texte
SQL = "SELECT AntérieureA FROM Jonc_AntéPost WHERE PostérieureA=" & PostérieureA
Set res = CurrentDb.OpenRecordset(SQL)
'Concatene les différents enregistrement
While Not res.EOF
RecupPost = RecupPost & res.Fields(0).Value & ";"
res.MoveNext
Wend
'Enleve le dernier ;
'libere la mémoire
Set res = Nothing
End Function

De manière pratique la zone du formulaire de l’US relative à la strati est ainsi :


Cela semblait fonctionner dans l’ensemble. J’ai tenté de reproduire la chose mais j’avoue être novice en SQL.

[Arnox]

Petit complément à mon explication alambiquée :Je cherche à réaliser une relation Plusieurs à Plusieurs sur la même table (ici la table Us).

[Arnox]

J'ai finalement réussi à résoudre mon problème.

Notamment en appliquant le process de concaténation trouver sur le site.
http://access.developpez.com/sources/?page=Requete

Merci encore pour vos réponses et à bientôt,

Arnox