Discussion :

[gaetan.tranvouez]

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

[AlainTech]

j'ai une erreur

Laquelle???

On doit ENCORE jouer aux devinettes???

[gaetan.tranvouez]

franchement dsl

C'est ENCORE Erreur de compilation
Projet ou bibliothèque introuvable

[gaetan.tranvouez]

je crois connaitre une partie de la réponse, c'est parce que date, Format et Time ne sont pas déclarés, mais justement je ne sais pas en quoi je les déclarent... J

[AlainTech]

Problème de Référence ou...

Redémarre ton PC.

Il se passe de drôles de choses ces jours-ci.

Plein de problèmes résolus "sans rien faire".

[gaetan.tranvouez]

Ba a vrai dire je travail sur un vieu pc, c'est encore un pentium II et c'est avec NT4. Je vous dis ce n'est pas un monstre de guerre...
Donc parfois il se passe des truc trop louches sur ce pc...

[AlainTech]

Si tu as déjà redémarré le PC...

Problème de Référence

[AlainTech]

je crois connaitre une partie de la réponse, c'est parce que date, Format et Time ne sont pas déclarés, mais justement je ne sais pas en quoi je les déclarent... J

Juste pour répondre que les Fonctions intrinsèques ne doivent jamais être déclarées.