Discussion :

[willcartley]

Bonjour,

J'utilise une connection ODBC pour extraire des données sur une base Oracle vers une base Access (ou éventuellement quelques données vers Excel).
Dans la base source, il y a des dates qui peuvent être à 01/01/0001 (ne me demandez pas ce que cela signifie ).
Et bien entendu, Access/VBA/Excel ne les acceptent pas.
J'ai pu contourner le problème en mettant toutes les dates sources d'erreur à 01/01/1900 dans Access.
Mais je demande quand même au cas où: Est-il possible (je ne sais pas, peut-être que c'est juste une option à modifier) de faire accepter ces dates par Access et/ou VBA (sans erreur) et/ou Excel?

Ou du moins, que ces dates soient automatiquement arrondis à 01/01/1900 sans mettre des gestions d'erreur partout dans le code?

Merci d'avance!

[Maxence HUBICHE]

sur access, les dates sont valides entre le 1/1/100 et le 31/12/9999
cf : http://mhubiche.developpez.com/vba/f...ions/datetime/

[willcartley]

Merci,
Donc, déjà je peux mettre 01/01/0100 à la place de 01/01/1900 sur mes gestions d'erreurs. Merci

Mais comme je le dis dans mon exemple, il y a des dates qui sont à 01/01/0001 dans la bdd source. => elles sont sources d'erreurs (c'est sûr) donc j'ai toujours pas résolu mon problème!!

En gros, y a t-il un moyen de changer ces valeurs => "1/1/100 à 31/12/9999" en "1/1/1 à 31/12/9999"?

[Maxence HUBICHE]

Si ce ne sont pas des dates, mais du texte, tu mettras ce que tu veux ...

[willcartley]

Malheureusement, ce sont des champs de type date... et pour une autre utilisation, je ne peux changer le type du champ de ma table copie.

Voici un extrait du code avec la petite gestion d'erreur:

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
22
23
24
25
26
27
28
29
30
31
32
33
            If Existe(Nom_Table) Then 'And Existe("ALMR_" & Nom_Table) Then
                If bool Then DoCmd.RunSQL "delete * from [" & Nom_Table & "];"
                Set rs = cn.Execute("SELECT * FROM " & Nom_Table & " WHERE partition_key = '" & DAR & "0000' and (import_source like '%_888%' or import_source like '%_PTF01')")
                Set Rst1 = Application.CurrentDb.OpenRecordset(Nom_Table, dbOpenTable, dbConsistent, dbOptimistic)
                If Not rs.EOF Then
                    While Not rs.EOF
                        Rst1.AddNew
 
                        For i = 0 To rs.Fields.count - 1
                            TempC = rs(i).Name
                            If (Not IsNull(rs(TempC))) Then
                                If Rst1(i).Type = dbDate Then
                                    On Error Resume Next
                                    Rst1(TempC) = rs(TempC)
                                    If Err.Number <> 0 Then
                                        Rst1(TempC) = CDate("01/01/0100")
                                        Err.Clear
                                    End If
                                    On Error GoTo erreur
                                Else
                                    Rst1(TempC) = rs(TempC)
                                End If
                            End If
                        Next i
                        Rst1.Update
                        rs.MoveNext
                    Wend
                End If
                rs.Close
                Rst1.Close
            Else
                MsgBox "La table " & Nom_Table & " n'a pu être mise à jour car elle est introuvable dans la base Access!", vbExclamation, "Erreur"
            End If

Une autre fonction m'envoie des résultats de requêtes vers Excel avec la fonction "CopyFromRecordset", même problème... en plus sur Excel les dates sont elles limitées à 1/1/1900


Le problème de ma solution de contournement, c'est que ce ne seront pas les bonnes valeurs qu'on retrouve dans la table copie (il y a des dates à 1/1/1 ou 1/12/3 ou autres...)

[Maxence HUBICHE]

Forcément.



Tu n'as pas d'autres alternatives que celles-ci :
- Dans Access, une Date est comprise entre le 01/01/100 et le 31/12/9999
- Dans Excel, une date est comprise entre le 01/01/1900 et le 31/12/9999
- Pour passer outre, il faut transformer le champ Date en champ Texte


A choisir.

[willcartley]

Merci pour tes réponses.
Mais vu que je ne peux changer la structure de mes tables à cause d'autres contraintes, je suis donc obligé de laisser comme tel.
J'ai pas de solution .