MSHFLEXGRID , ADODC1 , ACCESS et Format Date

Bonjour ,

J'ai une base Access avec une colonne au format DATE JJ/MM/YYYY.


Dans un mSHflexgrid je traite cette table pour recuperer plusieurs lignes ,mais dans la colonne DateDuControle , les dates sont au format MM/JJ/YYYY ,

Code:

---

1 2 3 4 5

Private Sub colonne() With MSHFlexGrid1 For I = 0 To .Rows - 1 .TextMatrix(I, 2) = Format(.TextMatrix(I, 2), "DD/MM/YYYY") ' test format End If

---

Je n'arrive pas à avoir le bon format Date dans mon MSHFlexgrid ,

Pouvez vous m'aider ,

Yann

Peut-être en créant une fonction qui transforme la date au format souhaité (A tester sous VBScript)

Code:

---

1 2 3 4 5 6 7 8 9

Dim DT DT = "12/28/2022" Function Format_FR(strTxt) Format_FR = Mid(strTxt,4,2) & "/" & Left(strTxt, 2) & "/" & Right(strTxt, 4) End Function MsgBox Format_FR(DT) 'ou encore un peu plus court : Function Format_FR(strTxt) Format_FR = Mid(strTxt,4,3) & Left(strTxt, 3) & Right(strTxt, 4) End Function

---

Ensuite, tu l'incorpores au code.
Par exemple :

Code:

---

1 2 3 4 5

With MSHFlexGrid1 For I = 0 To .Rows - 1 DateLue =.TextMatrix(I, 2) .TextMatrix(I, 2)= Format_FR(DateLue) '....suite du code..............

---