Discussion :

[Terminator]

Bonjour à tous,

Voila, j'ai un petit souci ds la creation de ma base de données. J'ai des données comme suite:

Code :

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

1
2
3
Dates: du 21/03 au 11/05
          du 16/08 au 13/09
          .......

je peux donc avoir bcp de lignes avec 2 dates: du ... au ....

Comme je ne sais pas comment transformer ca, j'ai mis un champs texte avec 250 caracteres, mais le probleme c'est que ca donne pas bien
J'aimerai avoir 2 collones: col1= DU; col2=AU et donc avoir autant de lignes pour un individus que l'utilisateur souhaite entrer de dates.

Pour prendre un exemple: mettre les dates des voyages d'une personne:
Michel aura par ex 3 voyages prevus du 15/01 au 17/01, du 13/03 au 14/03 et du 18/07 au 24/07.

Voila, si vous avez une idée, n'hésitez pas.

UN TOUT GRAND MERCI

[FreeAccess]

Bonjour,
Peut-être que je n'ai pas bien compris , mais à mon avis une table simple du style:

ID_Personne
Nom_Personne
Date_Début
Date_Fin

Avec ceci, tu devrais réaliser ce que tu veux:

145 DURAND 01/01/2007 12/01/2007
145 DURAND 02/03/2007 08/02/2007
134 MARTIN 01/01/2007 09/01/2007
...
...

En espérant t'aider

[Terminator]

Merci pour ta reponse: )

c'est une tres bonne idées ca

Je vais essayer ca...c'est simple, j'y avais meme pas pensé

[cafeine]

Hello,

ton idée est la bonne sur plan de la conception.

comment scinder un champ ?
avec des Split()

un exemple très sommaire à adapter

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
16
17
18
19
20
Dim Tab() As String
Dim Dat() As String
 
Do While Not objRecordset.EOF
Tab = Split(Replace(objRecordset!LeChamp,"Dates: ",VbNullString), vbcrlf)
For i = 0 to ubound(tab)
   objAutreRecordset.AddNew
   Dat = Split(Trim(Replace(Tab(i),"du ",VbNullString)), " au ")
   For j = 0 to 1
      objAutreRecordset.AddNew
      objAutreRecordset!Champ1 = objRecordset!Champ1
      objAutreRecordset!Champ2 = objRecordset!Champ2
      objAutreRecordset!Champn = objRecordset!Champn
      objAutreRecordset!ChampDebut = Dat(0)
      objAutreRecordset!ChampFin = Dat(1)
      objAutreRecordset.Update
   Next j
next i
objRecordset.MoveNext
Loop

[Terminator]

Merci pour cette reponse.
Mais j'ai une question: est-ce qu'on peut sauvegarder plusieurs dates ds un champs date? sinon je passe par une autre table