Discussion :

[marfouzsiaka]

Bonjour a tous
Je voudrais supprimer les enregistrement de ma table indicateur dont le numero de l'indicateur va etre entré par l'utilisateur.
j'ai ajouter une condition : si le numéro de l'indicateur entré correspond à l'indicateur qu'il voulais supprimer au départ, l'action de suppression va s'exécuter , sinon rien ne se passe.
Mais à l'exécution sa me met l'erreur : une action ExécuteSQL necessite un argument consistant en une instruction SQL
Merci pour vos commentaires

PS: je suis nul en vba, je ne sais pas si le code est bon... A l'aide svp !!!

Private Sub Commande15_Click()

Dim Rep As Integer
Rep = MsgBox("Voulez-vous vraiment supprimer l'indicateur ?", vbYesNo + vbQuestion, "Suppression Indicateur")
If Rep = vbYes Then

DoCmd.RunSQL "Select id_indicateur As id_supp FROM Indicateur WHERE id_indicateur = [entrez à nouveau le numéro de l'indicateur] ;"
If id_indicateur = Me.id_indicateur Then
DoCmd.RunSQL "Delete* FROM Indicateur WHERE id_indicateur = id_supp ;"
Else
End If

Else ' '
End If
Me.Refresh

End Sub

[PipoWIL]

As-tu un espace entre ton "DELETE" et ton étoile ?

[marfouzsiaka]

oui j'ai de l'espace entre mon delete et mon etoile . la ligne de l'erreur que me renvoi access est la ligne du : DoCmd.RunSQL "Select id_indicateur As id_supp FROM Indicateur WHERE id_indicateur = [entrez à nouveau le numéro de l'indicateur] ;"

[PipoWIL]

Pour verifier ta commande SQL, voici ce que tu peux faire :
Tu sélectionnes (Ctrl- C ) ton statement SQL Select id_indicateur As .....
Dans Access, tu crées une nouvelle requète. Tu ne choisis pas de table mais tu va directement dans la vue SQL
Access te montrera une fenêtre vide avec seulement Select; en haut à gauche.
à la place de ce Select, tu fais un paste (Ctrl - V ) de ton Statement SQL
Passe en mode Design (l'icône avec l'équère) pour voir comment Access compose ta requête.
à ce stade, Access pourrait te donner un message d'erreur parce que la syntaxe SQL de Access n'est pas tout à fait la même que la syntaxe SQL officielle.
Les 3 principales differences sont :
Access doit terminer avec un point virgule en fin de statement. SQL (VBA) ne l'exige pas.
Access impose les critères entre double guillemets ("). SQL impose l'apostophe simple.
Access utilise les formats de dates de tes Windows locales. SQL impose le format américain mois/jour/année

Quand tu es dans la vue Design de Access, c'est beaucoup facile de composer la requète.
Une fois que tu as ce que tu veux, passe de nouveau en mode SQL pour voir le statement SQL de ta requète. Copie tout et fais un copier-coller dans ton code VBA.
N'oublie pas que ton code VBA devra avoir des ' à la place des ".

[PipoWIL]

Correection :

Ton statement SQL est un simple SELECT.
Dans VBA, tu effectueras des requètes d'ACTION : ajout, suppression, creation de tables....

Ton 1er statement SQL sert à simplement voir ou selectionner les lignes de ta table mais en VBA cela n'a pas de sens.


Donc pour faire simple,
Tu fais directement ceci :
[CODE]dim strSQL as String

strSQL = "DELETE indicateur.id_indicateur " & _
"FROM indicateur " & _
"WHERE (((indicateur.id_indicateur)=[quel indicateur voulez-vous supprimer]))"
currentdb.execute strSQL[CODE]

[marfouzsiaka]

merci pour tes reponses !
[code] remplace quoi déja ??
ou je le met exactement comme tu l'as mis ??
[CODE]dim strSQL as String....

[marfouzsiaka]

[CODE]dim strSQL as String et currentdb.execute strSQL[CODE] sont en rouge . et lorsque je compile, sa me met erreur de syntaxe

[PipoWIL]

Les [CODE] sont les balises du site Developpez.com. Cela ne devrait pas apparaitre mais sans doute fait une mauvaise manoeuvre.

Code :

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

1
2
3
4
5
6
dim strSQL as String
 
 strSQL = "DELETE indicateur.id_indicateur " & _
 "FROM indicateur " & _
 "WHERE (((indicateur.id_indicateur)=[quel indicateur voulez-vous supprimer]))"
 currentdb.execute strSQL

[PipoWIL]

Au fait, je suppose que tu connais la signification de & _

En VBA, si tu veux écrire une longue instruction, tu peux l'écrire sur plusieurs lignes avec le caractère _

Par exemple :

Code :

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

dblTotal = Prix * Quantite * (1 + pctTVA)

peut aussi s'écrire comme ceci :

Code :

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

1
2
dblTotal = Prix * Quantite * _ 
(1 + pctTVA)

Comme mon instruction sert à composer une longue chaîne de caractères, je la coupe en deux ou trois chaînes de caractères que je concatène avec le &
Au lieu de ceci

Code :

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

strSQL = "Blah blah " & "blahblah" & " BLAH"

j'écris sur 3 lignes

Code :

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

1
2
3
strSQL = "Blah blah " & _
"blahblah" & _
" BLAH"

[marfouzsiaka]

tout d'abord je te remercie pour ton aide...
j'ai mis le nouveau code et j'ai ajouter la condition en gras.
on a oublier la condition que l'indicateur qu'il voulais supprimer au départ doit correspondre à celui qu'il va entrer lorsqu'il va repondre à <<quel indicateur voulez vous supprimer>>
donc jai ajouter la ligne en gras : mais sa bloque
"FROM Indicateur " & _
"WHERE (((Indicateur.id_indicateur)=[quel indicateur voulez-vous supprimer]))"
If indicateur.id_indicateur = Me.id_indicateur Then

CurrentDb.Execute strSQL
Else
End If