Problème Format DATES VBA Excel/Access

Version imprimable

2 pièce(s) jointe(s)

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:

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 : :ptdr:

Pièce jointe 607945

Pièce jointe 607946

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

Bonjour,
Voilà un petit exemple

Code:

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

04/11/2021, 07h50
wilfryjules

1 pièce(s) jointe(s)

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 !!

Pièce jointe 608008
04/11/2021, 11h42
Thumb down

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

Code:

" AND E.DateEnt=#" & format(sdate,"YYYY-MM-DD") & "#"
04/11/2021, 12h15
wilfryjules

Merci mais ce ne sont pas des tirets les séparateurs, mais des "/".
04/11/2021, 12h32
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". :ptdr:

:resolu:
04/11/2021, 12h35
Thumb down

Citation:

Envoyé par wilfryjules

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

Le format international s'écrit toujours YYYY-MM-DD
04/11/2021, 13h26
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........