Bijour

Quand je veux sauvegarder dans ma bdd, j'ai une erreur sur "date" qui se surligne en rouge

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

Private Sub SaveInBdd_Click()
Dim pds As Double
Dim cpnt As Byte
Dim Codep As String
Dim Rapports(2) As String
On Error GoTo lastline
mydate = Date    ****Erreur  sur cette ligne***
mydate = Format(Year(mydate) & "-" & Month(mydate) & "/" & Day(mydate), "yyyy-mm-dd")
mytime = Time
Codep = Code_Produit.Text
For i = 0 To 2
    Rapports(i) = Replace(Text3(i).Text, ",", ".")
Next
var = Mabase.Ecrire(mydate, mytime, Codep, Rapports())
If var = "OK" Then
    StatusBar1.SimpleText = "Ecriture dans la base de données réussie!"
 Else
    StatusBar1.SimpleText = var
End If
Exit Sub
lastline:
StatusBar1.SimpleText = "Erreur dans la mise en forme des données,vérifiez les informations rentrées!)"
End Sub
Merci