Discussion :

[tibogaet]

Bonjour à tous

Je poste cette discussion car à un moment à avoir essayer de faire dans le forum et la FAQ je ne trouve pas mon bonheur.
Dans une table ODBC qui se trouve sur notre serveur entreprise, les dates sont sous la forme de texte comme par exemple la date d'aujourd'hui est inscrite de la façon suivante : 20090810. Quand la date n'est pas renseignée il y ait inscrit 00000000. Dans mon formulaire et dans ma table access il faut que je le transforme en champs date et remettre dans l'ordre. Ca j'ai réussi. Le soucis c'est que quand c'est inscrit "00000000" access mon le transforme en 30/11/1999. Ce qui n'ait pas correct car cette date peut porter à confusion.
Je me suis dis, il suffit tout simplement, dans ma requète de remplacer le texte 00000000 par 19010101 par exemple.
Ma table s'appele [PARC MACHINE] mon champs contenant les valeurs à modifier s'appele DATEI. A savoir que je ne peux pas modifier la table existant.
Dans la requète correspondant au contenu du champs de mon formulaire voici où j'en suis arrivé :

Code :

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

1
2
3
4
SELECT DISTINCT [TYPE MACHINE].TYPMA, [PARC MACHINE].NUMSER, DateSerial(Mid([DATEI],1,4),Mid([DATEI],5,2),Mid([DATEI],7,2)) AS DATEINSTALL, DateSerial(Mid([DATEG],1,4),Mid([DATEG],5,2),Mid([DATEG],7,2)) AS DATEGARANTIE
FROM ([TYPE MACHINE] LEFT JOIN [PARC MACHINE] ON [TYPE MACHINE].IDENT = [PARC MACHINE].TYPMAC) LEFT JOIN CLIENTS ON [PARC MACHINE].PMCLID = CLIENTS.IDENT
WHERE (([PARC MACHINE].PMCLID)=[IDENTCLIENT]))
ORDER BY [TYPE MACHINE].TYPMA, [PARC MACHINE].NUMSER;

J'ai essayer de mettre dans la case critère de ma requète pour le champs DATEI le code suivant :

Code :

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

([PARC MACHINE].DATEI)="UPDATE [PARC MACHINE] SET 19010101 WHERE 00000000 "

Est-ce que quelqu'un peut me dire si je fais fausse route ou pas.
Merci d'avance.

[silverfly]

Bonjour,

Alors, ton UPDATE n'es pas bon :

Code :

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

([PARC MACHINE].DATEI)="UPDATE [PARC MACHINE] SET 19010101 WHERE 00000000 "

il faudrait écrire ceci :

Code :

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

([PARC MACHINE].DATEI)="UPDATE [PARC MACHINE] SET DATEI = '19010101' WHERE DATEI = '00000000' "

Mais cela ne servira à rien car :

A savoir que je ne peux pas modifier la table existante.

ce que tu peux faire, c'est un traitement après ta requête. Tu fais une boucle while qui vérifie pour chaque enregistrement si tu as '00000000', et si oui, cela met '01011900' par exemple

Cela te donnerai quelque chose du genre :

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
21
 
 
  Dim RSQL As String
  Set db = CurrentDb
 
' Affichage des Organismes et Contacts
  RSQL = "TA REQUETE SELECT"
  Set rs = db.OpenRecordset(RSQL)
 
' S'il n'est pas vide on va au premier enregistrement
  If Not rs.EOF Then
      rs.MoveFirst
    ' Tant qu'on est pas arrivé à la fin du recordset
      While Not rs.EOF
       if rs!DATEI = "00000000" Then
        rs!DATEI = "01011900"   ' je ne suis pas sur que l'on puisse faire sa, le mieux serais de mettre ton champs ici
      End If
       'On passe à l'enregistrement suivant
          rs.MoveNext
      Wend
  End If

[f-leb]

bonjour,

une autre solution peut être,

remplacer:

Code sql :

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

...DateSerial(Mid([DATEI],1,4),Mid([DATEI],5,2),Mid([DATEI],7,2)) AS DATEINSTALL

par:

Code sql :

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

...iif([DATEI]="00000000",NULL,DateSerial(Mid([DATEI],1,4),Mid([DATEI],5,2),Mid([DATEI],7,2))) AS DATEINSTALL

[mout1234]

Bonjour,

Petite variante de la proposition de f-leb,
si tu ne veux pas de valeur nulle, tu peux mettre ton 01/01/1901:

Code sql :

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

...iif([DATEI]="00000000",#01011901#,DateSerial(Mid([DATEI],1,4),Mid([DATEI],5,2),Mid([DATEI],7,2))) AS DATEINSTALL

[tibogaet]

Bonjour à tous et merci pour vos réponse.

Silverfly merci pour ta réponse mais je ne l'ai pas essayer. Elle me semblait trop compliquer.
Pour f-leb et mout1234 cette solution fonctionne comme je le veux. Le champs vide me convient parfaitement au lieu d'une date bidon.
Merci encore pour votre aide.