Discussion :

[Abed_H]

Bonjour
Dans une table d'un fichier Dbase(DBF) j’ai un champ date nommé DatFact de type texte qui se présente comme suite 20041012 (2004 pour l’année,10 pour le mois et le 12 pour le jour)
en vba dans une requête(Recordset) je voudrais récupéré ce champ au format date 12/10/2004
J’ai essayé avec rst.Open "select StrReverse(DatFact) from matable" et ça n’a pas marchait.
Comment faire pour contourner ce problème.

Merci.

Abed_H

[nsanabi]

Extraire les différentes parties de ta date que tu concatènera ensuite

Code :

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

1
2
3
 
select right(datfact,2) & "/" & mid(datfact,5,2) & "/" & left(datfact,4) as datefacture
from ...

je ne suis pas sûr si la fonction SUBSTRING est prise en charge par dbase ou Access tu peut l'essayer sinon

[micniv]

crée une fonction publique
qui prend le string en argument
qui te retourne une date
dans laquelle
tu extrais l'année, le mois et le jour
et tu utilises la fonction dateSerial() (voir F1)

[Abed_H]

merci à vous deux
Bonne journée

[micniv]

Si tu es parvenu à ton résultat, merci de cliquer Résolu

[Abed_H]

Re,
micniv j'ai testé ta proposition et ça n'a pas marché peux-tu corrigé l'erreur
un message apparait disant :Erreur d’exécution ‘-2147217865 (80040e37)
File ‘covdate.prg’ does not exist
voici ma requête

Code :

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

1
2
oRst.Open "Select Factures.NumAb,Abonne.RaiSoc,covdate(Factures.DatFact),Factures.Monttc From Factures Inner Join Abonne " & _
                "On Factures.NumAb=Abonne.NumAb Where  Factures.Paiement='T' Order By 1", strConn, adOpenKeyset, adLockOptimistic

voici la fonction personnalisée

Code :

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

1
2
3
4
5
6
Public Function covdate(dd)
a = Right(dd, 2)
b = Mid(dd, 5, 2)
c = Left(dd, 4)
covdate = DateSerial(c, b, a)
End Function

merci encore une fois

Abed_H

[nsanabi]

je ne pense pas qu'il te soit possible de créer une fonction VBA et de l'appeler dans une requête SQL.

je suppose que quand micniv a parlé de créer une fonction il a pensé à l'appeler après récupération des données issues de l'exécution de ta première requête.

en attendant sa confirmation, qu'est ce qui se passe quand tu exécute une requête semblable à celle que j'ai proposé plutôt?