Discussion :

[mat75019]

Bonjour je souhaiterais créer une requete création de table qui me transforme du texte en date, le format est AMJ (exemple : 20030419).
J'utilise le fonction CDate conseillée par la faq mais ca marche pas...
voici l'expression utilisée :

Champ5t: CDate ( [imp0603bis]![Champ5] )

Merci d'avance a vous !

[mat75019]

Personne n'as de pistes...
Please help me !!!!!

[Rcanada]

Tu devrais déjà tester si ton format est convertible en date avec la fonction "isDate", car normalement la fonction Cdate convertit la date selon tes propres parametres régionaux de dates.

[Rcanada]

Fais un test du type if ( isdate(objet_a_covertir) ) then msgbox "c bon".Si la msgbox s'affiche, alors le pb ne vient pas du format.

[mat75019]

excuse moi je n'ai pas trés bien compris ! Le format de la date est en texte dans la date, ca c'est sur. Je le veu en date...
Pourquoi le probleme ne viendrait pas du format sachant que c'est du texte... ?????
Désolé je ne suis pas expert...
Merci beaucoup de m'aider !

[mat75019]

Et en faite ton code pour tester le format je le met ou (un module ?) Je le lance comment...
Désolé...

[Rcanada]

En fait, lorsque tu utilise CDate sur du texte, il faut que VBA puisse reconnaitre que c'est bien une date, c'est à dire que le texte est par exemple du type jour_mois_année (ou qlq chose dans ce genre). Ainsi, je pensais que peut etre ta date n'était pas au bon format. C'est pour cela qu'il suffit de tester avec le code suivant que le format est correct :

Code :

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

1
2
3
4
 
if (isDate( [imp0603bis]![Champ5] ) then
  msgbox "coucou"
end if

Si ACCESS reconnait bien une date, alors il va t'afficher la msgbox, sinon c'est que ta date n'est pas au bon format.
(j'espere que j'ai bien compris ta question ...)

[Rcanada]

J'ai testé avec un formulaire tt bête, un bouton et qui déclenche apres un click le code

Code :

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

1
2
3
4
if (isDate( "20030419") then
  msgbox "coucou"
end if

Conclusion : ce n'est pas au bon format.

[illight]

COmment ça se fait faudrait utiliser la fonction format avant alors

[Rcanada]

Et pkoi tu ne met pas ton champs texte [champs5] au format date directement dans ce cas ?

[mat75019]

J'ai tapé

Code :

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

1
2
3
4
5
6
7
 
Dim imp0603bis As Object
Dim champ5 As Object
 
If IsDate(imp0603bis!Champ5) Then
  MsgBox "coucou"
End If

J'ai alors un message d'erreur :
erreur d'execution 91 variable objet ou variable de bloc With non definie

Par ailleur le format est AMJ (par exemple 20030630)
Merci de ton aide !

[Rcanada]

Crée un formulaire tout simple, met un bouton dessus, et dans l'évenement "onClick" de ce bouton, colle le code suivant :

Code :

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

1
2
3
4
5
6
 
If (IsDate("20030630")) Then
    MsgBox "ça marche!!"
Else
    MsgBox "ça marche pas"
End If

[mat75019]

si je change de format dans la table ca efface les enregistrements du champs ! c'est la premiere chose que j'ai essayé
en claire, mon probleme est est-ce qu'il y a moyen, avec une requete, de passer un champs d'une table d'un format texte avec des date dedans( de la forme 20030630), au format date ?

[mat75019]

oui la msgbox affiche ca marche pas... Mais ou ca me mene ca ? quelle est la solution pour avoir un format date a partir de mon champ texte ?
Merci beaucoup de ton aide !

[Arkham46]

slt,

à peu de chose près :

Code :

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

1
2
 
DateSerial(left(imp0603bis!Champ5;4);mid(imp0603bis!Champ5;5;2);right(imp0603bis!Champ5;2))

[Rcanada]

Voici une solution :
Crée trois variable du type string : annee, mois et jour
Ensuite extrait chacune des parties de la date et stocke les dans les variables correspondantes : annee = mid([champs5],1,4)
jour = mid([champs5],7,2)
mois = mid([champs5],5,2)

et ensuite tu concatène tt ça dans une autre chaine dans le bon ordre, en rajoutant des "/" ou ce que tu veux.

PS : pour les mid, je ne suis pas sur pour le 2e parametre qui indique à partir de quelle position on extrait(il faut peut etre retirer 1).

[mat75019]

Merci beaucoup ca marche ! (J'ai utilisé la solution d'Arkham)
Je suis impressionné
Encore merci RCanada et Arkham !