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