[AC-2007] erreur sur formulaire de MAJ [Résolu]

[virtual_bug]

Bonjour,

Je débute sous access, et je cherche à créer un formulaire de modification des données présentes dans ma table ARTICLE. Le code associé à mon bouton de modification est :

Code :

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
 
Private Sub Commande17_Click()
        Dim SQL As String
 
       Dim cde As Integer
            cde = Me!CODE_ARTICLE
        Dim prix As Single
            prix = Me!PRIX_ARTICLE
        Dim stock As Integer
            stock = Me!STOCK_ARTICLE
        Dim design As String
            design = Me!NOM_ARTICLE
        Dim stock_s As Integer
            stock_s = Me!STOCK_SECURITE_ARTICLE
        Dim etat As Boolean
            etat = Me!ETAT_ARTICLE
        Dim cat As Integer
            stock_s = Me!NUMERO_CATEGORIE
        Dim four As Integer
            four = Me!CODE_FOURNISSEUR
 
 
        SQL = "UPDATE ARTICLE SET ARTICLE.PRIX_ARTICLE = '" & prix & "',  ARTICLE.STOCK_ARTICLE='" & stock & "',  ARTICLE.NOM_ARTICLE='" & design & "',  ARTICLE.STOCK_SECURITE_ARTICLE='" & stock_s & "',  ARTICLE.ETAT_ARTICLE='" & etat & "',  ARTICLE.NUMERO_CATEGORIE='" & cat & "',  ARTICLE.CODE_FOURNISSEUR= '" & four & "' "
        SQL = SQL & "WHERE ARTICLE.CODE_ARTICLE = '" & cde & "';"
 
    Dim intReponse As Integer
    intReponse = MsgBox("Voulez vous vraiment modifier l'article en cours ?", vbQuestion + vbYesNo, "Annuler la saisie")
    If intReponse = vbYes Then
        DoCmd.RunSQL (SQL)
    End If
End Sub

Cependant je suis gratifié du message d'erreur suivant : "Erreur d'exécution 3464, type de données incompatibles dans l'expression du critère". Je crois comprendre que le WHERE pose problème, cependant mes types ne semblent pas incohérents :/ Auriez vous une idée ? D'avance merci !

[Francesco34]

Bonjour,

Commence par ajouter la ligne "debug.print SQL" avant d'exécuter ta requête, cela te permettra de vérifier que ta variable SQL est bien celle que tu attends.

[virtual_bug]

Bonjour, et merci pour ta réponse. J'ai ajouté la ligne que tu m'as suggéré, mais cela ne change absolument rien, à aucun moment ma requête ne s'affiche.

Code :

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
Private Sub Commande17_Click()
        Dim SQL As String
 
        Dim cde As Integer
            cde = Me!CODE_ARTICLE
        Dim prix As Single
            prix = Me!PRIX_ARTICLE
        Dim stock As Integer
            stock = Me!STOCK_ARTICLE
        Dim design As String
            design = Me!NOM_ARTICLE
        Dim stock_s As Integer
            stock_s = Me!STOCK_SECURITE_ARTICLE
        Dim etat As Boolean
            etat = Me!ETAT_ARTICLE
        Dim cat As Integer
            stock_s = Me!NUMERO_CATEGORIE
        Dim four As Integer
            four = Me!CODE_FOURNISSEUR
 
 
        SQL = "UPDATE ARTICLE SET ARTICLE.PRIX_ARTICLE = '" & prix & "',  ARTICLE.STOCK_ARTICLE='" & stock & "',  ARTICLE.NOM_ARTICLE='" & design & "',  ARTICLE.STOCK_SECURITE_ARTICLE='" & stock_s & "',  ARTICLE.ETAT_ARTICLE='" & etat & "',  ARTICLE.NUMERO_CATEGORIE='" & cat & "',  ARTICLE.CODE_FOURNISSEUR= '" & four & "' "
        SQL = SQL & "WHERE ARTICLE.CODE_ARTICLE = '" & cde & "';"
    Debug.Print SQL
    'Dim intReponse As Integer
   ' intReponse = MsgBox("Voulez vous vraiment modifier l'article en cours ?", vbQuestion + vbYesNo, "Annuler la saisie")
    'If intReponse = vbYes Then
    '    Debug.Print SQL
    '    DoCmd.RunSQL (SQL)
   ' End If
End Sub

Aurais je oublié quelque chose ?

[Francesco34]

Quand tu es dans VBA, tu dois avoir une fenêtre nommée exécution en bas de l'écran; c'est dans cette fenêtre que s'affichera la requête. Si jamais tu n'as pas cette fenêtre, tu peux l'afficher depuis le menu "Affichage" ou tout simplement en faisant "gtrl + G".

[virtual_bug]

j'obtiens la requête suivante, qui me semble tout a fait correcte :

Code :

UPDATE ARTICLE SET ARTICLE.PRIX_ARTICLE = '13',  ARTICLE.STOCK_ARTICLE='10',  ARTICLE.NOM_ARTICLE='désignation article 2',  ARTICLE.STOCK_SECURITE_ARTICLE='3',  ARTICLE.ETAT_ARTICLE='Faux',  ARTICLE.NUMERO_CATEGORIE='0',  ARTICLE.CODE_FOURNISSEUR= '1' WHERE ARTICLE.CODE_ARTICLE = '2';

Le seul petit doute que j'ai concerne ETAT_ARTICLE='Faux', dans ma table c'est un booléen oui/non, mais ça me semble tout de même assez cohérent.

[Francesco34]

Tu as le doute au bon endroit. La présence de guillemets autour de FAUX signifie qu'il s'agit d'un type string et non d'un type booléen; d'où l'erreur que tu rencontres.
En enlevant ces guillemets, tu devrais rencontrer un autre problème, VBA accepte true ou false mais pas vrai ou faux. Pour contourner cela, il faut déclarer ta variable en integer et elle prendra alors la valeur 0 ou -1.

[virtual_bug]

J'ai effectué les modifs comme indiqué, j'obtiens la requête suivante :

Code :

UPDATE ARTICLE SET ARTICLE.PRIX_ARTICLE = '18',  ARTICLE.STOCK_ARTICLE='10',  ARTICLE.NOM_ARTICLE='désignation article 2',  ARTICLE.STOCK_SECURITE_ARTICLE='3',  ARTICLE.ETAT_ARTICLE=0,  ARTICLE.NUMERO_CATEGORIE='0',  ARTICLE.CODE_FOURNISSEUR= '1' WHERE ARTICLE.CODE_ARTICLE = '2';

Cependant, je suis gratifié du même message d'erreur

Dois je retirer les guillemets pour tous les types numériques ?

[virtual_bug]

C'était bien ça. Merci !

[Francesco34]

En effet, ce que je disais pour les guillemets au sujet des booléens vaut aussi pour les entiers.

[virtual_bug]

Bon, c'est reparti, maintenant j'obtiens que Access n'a pas mis a jour un enregistrement suite à une violation de clé
Comment puis-je faire une violation de clé alors que je me contente de mettre à jour la ligne en question ?

[Francesco34]

Quelle est la structure de ta table ARTICLE ?

[virtual_bug]

Ci joint une capture d'écran de ma table

sans titre3.jpg

[Francesco34]

Et quelles sont les intégrités référentielles entre cette table et les tables liées ?
Est-il prévu que les champs numero_categorie et code_fournisseur soit modifiés ?

[virtual_bug]

Je me suis débrouillé autrement, et je n'ai plus ce problème à présent. Merci de ton aide en tout cas. (je poste cependant un autre sujet concernant un autre problème).