Discussion :

[marfouzsiaka]

bonjour a tous ... Je vous remercie d'avance pour le temps consacré.

J'ai un probleme du genre "type de données incompatible dans l'expression du critere".
la ligne surligné par access est ma requete sql :
DoCmd.RunSQL ("DELETE * FROM Indicateur WHERE " & _
" id_indicateur = '" & mon_indicateur & "' ")

voici mon code

Private Sub Commande15_Click()
Dim Rep As Integer
Dim mon_indicateur As Integer
Rep = MsgBox("Voulez-vous vraiment supprimer l'indicateur ?", vbYesNo + vbQuestion, "Suppression Indicateur")
mon_indicateur = InputBox("Veuillez entrer le numéro de l'indicateur ", "Choix du l'indicateur")
If Rep = vbYes Then

If mon_indicateur = Me.id_indicateur Then
DoCmd.RunSQL ("DELETE * FROM Indicateur WHERE " & _
" id_indicateur = '" & mon_indicateur & "' ")
Else
MsgBox ("Le numero de l'indicateur ne correspond pas à celui selectionné ?")
End If

Else ' '
End If
Me.Refresh
End Sub


Merci de me proposer des solutions si vous en avez...

[madefemere]

Bonjour,

A priori le champ id_indicateur contient des valeurs numériques, donc mettre le paramètre du critère entre ' est inutile.

Cordialement,

[marfouzsiaka]

BONJOUR...Merci pour ta reponse...
sa m'affiche une autre erreur lorsque j'enleve les quotes !

[madefemere]

Bonjour,

Quel message ? en rapport avec le type de données ?
Peux-tu mettre le nouveau code du SQL !

Cordialement,

PS : Mets tes codes dans les balises pour faciliter sa lecture ===> Tu le sélectionnes et appuies sur le bouton #

[marfouzsiaka]

voila lme nouveu code.. j'ai enlever uniquement les ' et sa marche !
Avant j'avais enlever les ' et les " c'est pour cela sa m'a afficher une autre erreur.
voici la nouvelle requete

DoCmd.RunSQL ("DELETE * FROM Indicateur WHERE " & _
" id_indicateur = " & mon_indicateur & " ")"

[marfouzsiaka]

lorsque l'indicateur est supprimer, je veux que la page s'actualise ! (comme lorsqu'on appui sur le bouton actualiser tout ) ; afin que l'utilisateur puisse etre convaincu que l'indicateur a ete bel et bien supprimer..
Merci pour ton aide

[madefemere]

comme cela, ce sera plus propre, tu as des caractères inutiles à la fin :

Code :

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

1
2
DoCmd.RunSQL ("DELETE * FROM Indicateur WHERE " & _
" id_indicateur = " & mon_indicateur & ")"

Pour actualiser tu mets un Me.Requery à la fin de ton code.

Cordialement,

PS : Mets tes codes dans les balises pour faciliter sa lecture ===> Tu le sélectionnes et appuies sur le bouton #

[marfouzsiaka]

sa marche niquel !
par contre pour le # je ne sais pas à quel endroit il faut le faire. j'ai essayé dans mon Vba, sa efface tout le code et sa le remplace par #.
explique moi plus clairement stp

[madefemere]

Quand tu rédiges ton message, dans les boutons en haut, il y a
Pièce jointe 181457

Et n'oublies pas de mettre la discussion en "RESOLU" si c'est bon.
Cordialement,

[marfouzsiaka]

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
Private Sub Commande15_Click()
Dim Rep As Integer
Dim mon_indicateur As Integer
 Rep = MsgBox("Voulez-vous vraiment supprimer l'indicateur ?", vbYesNo + vbQuestion, "Suppression Indicateur")
 
 If Rep = vbYes Then
  mon_indicateur = InputBox("Veuillez entrer le numéro de l'indicateur ", "Choix du l'indicateur")
 If mon_indicateur = Me.id_indicateur Then
DoCmd.RunSQL ("DELETE * FROM Indicateur WHERE " & _
" id_indicateur = " & mon_indicateur & "")
 Else
 MsgBox ("Le numero de l'indicateur ne correspond pas à celui selectionné ?")
 End If
 ElseIf Rep = vbNo Then Me.Refresh
 
 End If
 Me.Requery
End Sub

[madefemere]

Et le premier code ,

[marfouzsiaka]

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
Private Sub Commande15_Click()
Dim Rep As Integer
Dim mon_indicateur As Integer
 Rep = MsgBox("Voulez-vous vraiment supprimer l'indicateur ?", vbYesNo + vbQuestion, "Suppression Indicateur")
 
 If Rep = vbYes Then
  mon_indicateur = InputBox("Veuillez entrer le numéro de l'indicateur ", "Choix du l'indicateur")
 If mon_indicateur = Me.id_indicateur Then
DoCmd.RunSQL ("DELETE * FROM Indicateur WHERE " & _
" id_indicateur = " & mon_indicateur & "")
 Else
 MsgBox ("Le numero de l'indicateur ne correspond pas à celui selectionné ?")
 End If
 ElseIf Rep = vbNo Then Me.Refresh
 
 End If
 Me.Requery
End Sub