Discussion :

[Jefty]

Bonsoir,

J'ai essayer de faire beaucoup de syntaxe, aucune fonctionne, j'ai toujours une erreur.

Exemple:

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
 
Private Sub cmdFinStat_Click()
Dim Reponse As Long
Dim DateFin As Date
Dim NumStatF As Long
 
NumStatF = cboStatistique.Column(0)
DateFin = Now
 
Call MsgBox("Etes vous sur de vouloir cloturé cette statistique?", vbYesNo)
    If Reponse = vbNo Then
        Cancel = True
    Else
        CurrentDb.Execute "UPDATE [Statistique] " _
         & " SET [DateFinStat] = 'DateFin' " _
         & " WHERE [NumStat] = 'NumStatF'"
    End If
End Sub

Ici ça me retourne type de donnée incompatible.

Sinon j'ai essayer ça, j'avais pas d'erreur, mais pas de mise à jours non plus:

Code :

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

1
2
3
4
5
Else
        CurrentDb.Execute "UPDATE [Statistique] " _
         & " SET [DateFinStat] = 'DateFin' " _
         & " WHERE [NumStat] =" & NumStatF
End If

Comprend pas.
Merci d'avance.

[FreeAccess]

Bonjour,

La devrait te mettre sur la bonne voie...

Type de données incompatible......

[Jefty]

Je viens d'essayer, ça marche parfaitement.
Merci bien, désolé de pas avoir chercher au bon endroit.