Discussion :

[ash_rmy]

Bonjour, j'ai un soucis de compilation de ce code sql avec la requête UPDATE -

N'arrivant pas à exécuter une requête INSERT car trop complexe je me suis rabattu sur la requête UPDATE pour faciliter ce que je veux faire.

je voudrais que lorsque je clique sur le bouton associé à cmdash que access me mette 1 si la liste [de mon formulaire en mode saisi] a le nom inde - me mette 2 si la liste a le nom cachemire - me mette 3 si la liste a le nom pakistan et 4 si la liste a le nom bangladesh.

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
Private Sub cmdash_Click()
 
Dim SQL5 As String
 
If Inde = Me.mdfPays Then
SQL5 = "UPDATE ARTICLE SET ID_PAYS = 1 WHERE ARTICLE.CODE_ARTICLE= (SELECT COUNT(*) FROM ARTICLE) "
SQL5 = SQL5 & ";"
DoCmd.RunSQL SQL5
End If
 
If Cachemire = Me.mdfPays Then
SQL5 = "UPDATE ARTICLE SET ID_PAYS = '2' WHERE ARTICLE.CODE_ARTICLE= (SELECT COUNT(*) FROM ARTICLE) "
SQL5 = SQL5 & ";"
DoCmd.RunSQL SQL5
End If
 
If Pakistan = Me.mdfPays Then
SQL5 = "UPDATE ARTICLE SET ID_PAYS = '3' WHERE ARTICLE.CODE_ARTICLE= (SELECT COUNT(*) FROM ARTICLE) "
SQL5 = SQL5 & ";"
DoCmd.RunSQL SQL5
End If
 
If Bangladesh = Me.mdfPays Then
SQL5 = "UPDATE ARTICLE SET ID_PAYS = '4' WHERE ARTICLE.CODE_ARTICLE= (SELECT COUNT(*) FROM ARTICLE) "
SQL5 = SQL5 & ";"
DoCmd.RunSQL SQL5
End If
 
End Sub

merci de votre aide.

ash.

[ash_rmy]

c'est bon j'ai trouvé en fait j'avais oublié les guillemets

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
SQL5 = ""

If "Inde" = Me.mdfPays Then
SQL5 = "UPDATE ARTICLE SET ID_PAYS = 1 WHERE ARTICLE.CODE_ARTICLE= (SELECT COUNT(*) FROM ARTICLE) "
SQL5 = SQL5 & ";"
DoCmd.RunSQL SQL5
End If

If "Cachemire" = Me.mdfPays Then
SQL5 = "UPDATE ARTICLE SET ID_PAYS = '2' WHERE ARTICLE.CODE_ARTICLE= (SELECT COUNT(*) FROM ARTICLE) "
SQL5 = SQL5 & ";"
DoCmd.RunSQL SQL5
End If

If "Pakistan" = Me.mdfPays Then
SQL5 = "UPDATE ARTICLE SET ID_PAYS = '3' WHERE ARTICLE.CODE_ARTICLE= (SELECT COUNT(*) FROM ARTICLE) "
SQL5 = SQL5 & ";"
DoCmd.RunSQL SQL5
End If

If "Bangladesh" = Me.mdfPays Then
SQL5 = "UPDATE ARTICLE SET ID_PAYS = '4' WHERE ARTICLE.CODE_ARTICLE= (SELECT COUNT(*) FROM ARTICLE) "
SQL5 = SQL5 & ";"
DoCmd.RunSQL SQL5
End If

[ash_rmy]

J'ai un autre problème en fait avec la requête Update

je veux que access m'actualise ma table ARTICLE et plus particulièrement le champ relatif à des dates [au dernier de ses enregistrements].

Code :

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

1
2
3
4
5
6
7
Private Sub cmdash_Click()
dim SQL6 as String
SQL6 = ""
SQL6 = "UPDATE ARTICLE SET ID_DATE = '(SELECT ID_DATE FROM TABLE_DATE WHERE DATTE = '" & Me.mdfDate & "')' WHERE ARTICLE.CODE_ARTICLE= (SELECT COUNT(*) FROM ARTICLE) "
SQL6 = SQL6 & ";"
DoCmd.RunSQL SQL6
End Sub

est ce que le compilateur n'aime pas lorsqu il y a des clauses WHERE ?

merci de votre aide,

ash.

[Mahefasoa]

Salut ahs,

Je me permets de rectifier un peu ton code:

• par convention, on écrit

  Code :

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

  Me.Contrôle = valeur

  et non

  Code :

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

  valeur = Me.Contrôle

• au lieu de faire un test alternatif répétitif, vaux mieux utiliser un Select Case

Ainsi, le code proposé dans tes deux premiers posts sera transformé comme ceci:

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
Private Sub cmdash_Click()

   Dim SQL5 As String, IdPays As Byte

   Select Case Me.mdfPays
      Case "Inde"
         IdPays = 1
      Case "Cachemire"
         IdPays = 2
      Case "Pakistan"
         IdPays = 3
      Case "Bangladesh"
         IdPays = 4
   End Select
 
   SQL5 = "UPDATE ARTICLE SET ID_PAYS = '" & IdPays & "' WHERE ARTICLE.CODE_ARTICLE=(SELECT COUNT(*) FROM ARTICLE) "
   SQL5 = SQL5 & ";"
   DoCmd.RunSQL SQL5

End Sub

Enfin pour le code de ton dernier post, remplace le par ceci

Code :

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

1
2
3
4
5
6
7
 
Private Sub cmdash_Click()
   Dim SQL6 as String
   SQL6 = "UPDATE ARTICLE SET ID_DATE = '" & nz(DLookUp("[ID_DATE]", "TABLE_DATE", "[DATTE] = '" & Me.mdfDate & "'"),0) & "' WHERE ARTICLE.CODE_ARTICLE=" & nz(DCount("[CODE_ARTICLE]", "ARTICLE"),0)
   SQL6 = SQL6 & ";"
   DoCmd.RunSQL SQL6
End Sub

Mais ... il y a des choses bizarres: pourquoi forcer la conversion en string des champs ID_DATE (qui devrait être de type LONG) et DATTE (qui devrait être de type ... DATE/TIME)?
Les types LONG ne contiennent pas de délimiteur alors que les types DATE/TIME ont # comme délimiteur.
Si on respecte la convention, ton code se transformera comme suit:

Code :

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

1
2
3
4
5
6
7
 
Private Sub cmdash_Click()
   Dim SQL6 as String
   SQL6 = "UPDATE ARTICLE SET ID_DATE = " & nz(DLookUp("[ID_DATE]", "TABLE_DATE", "[DATTE] = #" & Format(Me.mdfDate, "mm/dd/yyyy") & "#"),0) & " WHERE ARTICLE.CODE_ARTICLE=" & nz(DCount("[CODE_ARTICLE]", "ARTICLE"),0)
   SQL6 = SQL6 & ";"
   DoCmd.RunSQL SQL6
End Sub

La fonction nz est utilisée pour prévoir une valeur nulle provenant des fonction DLookUp et DCount.

Bon courage et @+

[ash_rmy]

je te remercie de ton aide Mahefasoa - tout marche à la perfection.