Discussion :

[Philippe PONS]

Bonjour,


je ne lis pas tout, mais ta requête n'est pas bonne.
Essaie ceci:

Code :

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

SQL1 = "UPDATE Cellule SET Cellule.DateDebutEtat = #" & zdtdepuis.Text & "# WHERE (((Cellule.CelluleID)=27));"

Telle que tu l'as écrite, zdtdepuis.Text n'est pas vu comme un contrôle zone de texte,mais comme une simple chaine de caractères.

Cordialement,

[h1karu]

le code exacte

Code :

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

1
2
3
4
5
6
Private Sub cmdAnomalie_Click()
zdtDepuis = Now()
Dim SQL1 As String
SQL1 = "UPDATE Cellule SET Cellule.DateDebutEtat = [Formulaires]![FrmCellule]![zdtDepuis] WHERE (((Cellule.CelluleID)=27));"
DoCmd.RunSQL SQL1
End Sub

il suffit de préciser ou ce trouve zdtDepuis

pourquoi ça fonctionne sur NomEtage franchement je ne sais pas mais tant cas faire précise le aussi pour celui ci

et corrige dans la même sub

Code :

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

1
2
3
4
'Mise à jour dans la table Cellule de l'état
Dim SQL As String
SQL = "UPDATE Cellule SET Cellule.Etat = 3 WHERE (((Cellule.CelluleID)=27));"
DoCmd.RunSQL SQL

soit avec les corrections + 2 petites lignes qui éviterons de validé a chaque fois :

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
Private Sub cmdAnomalie_Click()
 
DoCmd.SetWarnings False 'pour éviter, provisoirement les avertissements système
 
zdtDepuis = Now()
Dim SQL1 As String
SQL1 = "UPDATE Cellule SET Cellule.DateDebutEtat = [Formulaires]![FrmCellule]![zdtDepuis] WHERE (((Cellule.CelluleID)=27));"
DoCmd.RunSQL SQL1
 
    Dim Red As Long, Yellow As Long, Green As Long
 
    Red = RGB(255, 0, 0)
    Yellow = RGB(255, 255, 0)
    Green = RGB(0, 255, 0)
 
    shpCelluleU1.BackColor = Red
    lblU1bis.ForeColor = Red
    Étiquette1.Visible = True
    Texte1.Visible = True
    Étiquette1Bis.Visible = True
    Texte1Bis.Visible = True
    Étiquette1BisBis.Visible = True
    Texte1BisBis.Visible = True
    Modifiable_1.Visible = False
    DepuisMaint1.Visible = False
    DepuisVide1.Visible = False
    DepuisBord1.Visible = True
    MailU1_1.Visible = True
    MailU1_2.Visible = True
    MailU1_3.Visible = True
 
    'Mise à jour dans la table Cellule de l'état 
    Dim SQL As String
    SQL = "UPDATE Cellule SET Cellule.Etat = 3 WHERE (((Cellule.CelluleID)=27));"
    DoCmd.RunSQL SQL
 
DoCmd.SetWarnings True 'pour rétablir les avertissements système
 
End Sub

Bon courage pour la suite
Manu.

[guillome29]

Bonjour,


je ne lis pas tout, mais ta requête n'est pas bonne.
Essaie ceci:

Code :

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

SQL1 = "UPDATE Cellule SET Cellule.DateDebutEtat = #" & zdtdepuis.Text & "# WHERE (((Cellule.CelluleID)=27));"

Telle que tu l'as écrite, zdtdepuis.Text n'est pas vu comme un contrôle zone de texte,mais comme une simple chaine de caractères.

Cordialement,

Avec cette solution, j'ai une erreur d'exécution '2185' (cf pièce jointe)

soit avec les corrections + 2 petites lignes qui éviterons de validé a chaque fois :

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
Private Sub cmdAnomalie_Click()
 
DoCmd.SetWarnings False 'pour éviter, provisoirement les avertissements système
 
zdtDepuis = Now()
Dim SQL1 As String
SQL1 = "UPDATE Cellule SET Cellule.DateDebutEtat = [Formulaires]![FrmCellule]![zdtDepuis] WHERE (((Cellule.CelluleID)=27));"
DoCmd.RunSQL SQL1
 
    Dim Red As Long, Yellow As Long, Green As Long
 
    Red = RGB(255, 0, 0)
    Yellow = RGB(255, 255, 0)
    Green = RGB(0, 255, 0)
 
    shpCelluleU1.BackColor = Red
    lblU1bis.ForeColor = Red
    Étiquette1.Visible = True
    Texte1.Visible = True
    Étiquette1Bis.Visible = True
    Texte1Bis.Visible = True
    Étiquette1BisBis.Visible = True
    Texte1BisBis.Visible = True
    Modifiable_1.Visible = False
    DepuisMaint1.Visible = False
    DepuisVide1.Visible = False
    DepuisBord1.Visible = True
    MailU1_1.Visible = True
    MailU1_2.Visible = True
    MailU1_3.Visible = True
 
    'Mise à jour dans la table Cellule de l'état 
    Dim SQL As String
    SQL = "UPDATE Cellule SET Cellule.Etat = 3 WHERE (((Cellule.CelluleID)=27));"
    DoCmd.RunSQL SQL
 
DoCmd.SetWarnings True 'pour rétablir les avertissements système
 
End Sub

Bon courage pour la suite
Manu.

Bonjour Manu,

Merci, ce code fonctionne à merveille.

[RESOLU] !