Discussion :

[Jsiorat]

Bonjour à toutes et tous,

problème de conversion de type pour la ligne !

Code :

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

1
2
 
dDateEch = iJourEch & "/" & iMoisEch + 1 & "/" & iAnneeEch

J'ai essayé CDate pour convertir mais l'erreur de conversion est toujours là !
Ou est mon souci ?
merci pour votre aide !

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
34
35
36
37
38
39
40
41
42
43
44
45
 
Public Sub MiseAJourMoisEcheance()
 
  Dim rst0, rst1 As Recordset
  Dim dDateEch As Date
  Dim iJourEch As Integer
  Dim iMoisEch As Integer
  Dim iAnneeEch As Integer
 
  Set rst0 = CurrentDb.OpenRecordset("tEcheancier")
  Set rst1 = CurrentDb.OpenRecordset("t_Parametre")
  ' la mise à jour du mois en cours a-t-elle été faite ? si True, on quitte la procédure
  If rst1.Fields![Parametre_4A] = True Then Exit Sub
 
  With rst0
  .MoveFirst
    While Not .EOF
      .Edit
      dDateEch = .Fields![DateEch]
      iJourEch = Day(dDateEch)
      iMoisEch = Month(dDateEch)
      iAnneeEch = Year(dDateEch)
      ' si dMoisEch=12, dAnneeEch +1
      If iMoisEch = 12 Then
        iAnneeEch = iAnneeEch + 1
        iMoisEch = 1
        dDateEch = iJourEch & "/" & iMoisEch & "/" & iAnneeEch
        .Fields![DateEch] = dDateEch
      Else
        dDateEch = iJourEch & "/" & iMoisEch + 1 & "/" & iAnneeEch
        .Fields![DateEch] = dDateEch
      End If
      .Update
      .MoveNext
    Wend
    rst1.Edit
    rst1.Fields!Parametre_4A = True
    rst1.Update
  End With
 
' Libération de la mémoire
Set rst1 = Nothing
Set rst0 = Nothing
 
End Sub

[hyperion13]

Salut
Et avec cette fonction?

[Jsiorat]

Ah que ... merci !
ça fonctionne en faisant :

Code :

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

1
2
 
dDateEch = DateSerial(iAnneeEch, iMoisEch + 1, iJourEch)

et Access se charge de transformer une date au format US en une date au format FR !

Merci encore !