Discussion :

[wilfryjules]

Bonjour à tous,

Je peine depuis hier avec le formatage des dates. En effet, j'ai commencé un projet dans une société avec Office en Français, seulement sur mon pc perso j'ai Office en Anglais.
J'ai donc créé une fonction dans un module pour obtenir automatiquement le bon format:

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
 
Global gDtCode As String
 
 
Public Sub SetTimeFormat()
    With Application
        Select Case .International(xlDateOrder)
            ' Anglais
            Case 0   'mdy
              '  MsgBox Format("15/12/2021", "mm/d/yyyy")
                gDtCode = "mm/d/yyyy"
            ' Français
            Case 1  'dmy
                gDtCode = "dd/mm/yyyy"
            ' Mongole
            Case 2 'ymd
                gDtCode = "yyyy/mm/dd"
        End Select
 
    End With
End Sub

Jusque là tout fonctionne correctement.

Seulement voici le soucis, je n'arrive pas à récupérer une ligne dans la base Access alors que lors du débuggage tout à l'air de matcher :






C'est bien la date qui pose problème !!!! Pourtant elle est fournie avec le format existant en Base !!!

[Thumb down]

Bonjour,
Voilà un petit exemple

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
test()
Debug.Print TrouveTypeSql("")
Debug.Print TrouveTypeSql("toto")
Debug.Print TrouveTypeSql(Date)
Debug.Print TrouveTypeSql(Now)
Debug.Print TrouveTypeSql(10.5)
 
SQL= "INSERT INTO Files (Path, File, DateLastModified) VALUES (" & TrouveTypeSql(strFilePath) & "," & TrouveTypeSql(strFileName) & "," & TrouveTypeSql(dtDateLastModified) & ")"
Debug.Print SQL
cnn.Execute  SQL
End Sub
 
 
Function TrouveTypeSql(V)
TrouveTypeSql = Trim("" & V)
If Trim("" & TrouveTypeSql) = "" Then TrouveTypeSql = "Null": Exit Function
If IsDate(TrouveTypeSql) = True And InStr(TrouveTypeSql, "/") <> 0 And InStr(TrouveTypeSql, ":") <> 0 Then TrouveTypeSql = "#" & Format(TrouveTypeSql, "yyyy-mm-dd hh:mm") & "#": Exit Function
If IsDate(TrouveTypeSql) = True And InStr(TrouveTypeSql, "/") <> 0 Then TrouveTypeSql = "#" & Format(TrouveTypeSql, "yyyy-mm-dd") & "#": Exit Function
If IsNumeric(Replace(TrouveTypeSql, ".", ",")) = True Then TrouveTypeSql = Replace(TrouveTypeSql, ",", "."): Exit Function
TrouveTypeSql = "'" & Replace(TrouveTypeSql, "'", "''") & "'"
End Function

[wilfryjules]

Merci pour ton message, mais je ne vois pas du tout où tu veux en venir.
Peux-tu me dire plutôt ce qui cloche la dedans : Sachant que tous les paramètres correspondent à une ligne de la base de données !!

[Thumb down]

Bonjour,
Je corrigerai bien ton code mais je suis pas très à l'aise avec Photoshop !

Code :

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

" AND E.DateEnt=#" & format(sdate,"YYYY-MM-DD") & "#"

[wilfryjules]

Merci mais ce ne sont pas des tirets les séparateurs, mais des "/".

[wilfryjules]

J'ai résolu mon problème!

Le soucis venait de la base de données: j'avais omis de mettre le champ DateEnt en type "Short Date".

[wilfryjules]

Bon alors en réalité le soucis vient aussi d'une absence de temporisation. En effet, j'insère d'abord une nouvelle ligne dans une table, et ensuite je veux récupérer l'identifiant de la nouvelle ligne ajoutée. Mais cela nécessite de mettre un delay entre les deux actions, sinon la base de données n'a pas le temps de se raffraichir, et donc ça ne récupère rien.

J'avais donc deux problèmes en série, d'où la difficulté....... et encore je veux pas m'avancer trop vite........

[Thumb down]

Merci mais ce ne sont pas des tirets les séparateurs, mais des "/".

Le format international s'écrit toujours YYYY-MM-DD