Delete row MSFlexGrid [Résolu]

Messages postés
16
Date d'inscription
mercredi 21 décembre 2005
Dernière intervention
17 janvier 2010
- - Dernière réponse : esisajiji
Messages postés
15
Date d'inscription
mercredi 1 avril 2009
Dernière intervention
10 avril 2011
- 2 sept. 2010 à 14:10
Bonjour.

Comment puis-je supprimer une ligne de msflexgrid?

Private Sub del_Click()
On Error GoTo err
If (MsgBox("Confirmer  [" & msI.RemoveItem msI.RowSel.Value & "]?", vbYesNo + vbQuestion, "Del") = vbYes) Then
    
    Call Connect
    mobjrec.SQL = "Delete from CLIENTS where IDClient='" & msI.RemoveItem msI.RowSel.Value & "'"
    mobjrec.RSOpen
    Call Deconnect
    msI.RemoveItem msI.RowSel
End If
GoTo fin
err:
    MsgBox "Tu ne puex pas supprimer[" & msI.RemoveItem msI.RowSel.Value & "], deja utilise", vbInformation, "Erreur"
fin:
End Sub


Merci beacoup!
Afficher la suite 

Votre réponse

8 réponses

Meilleure réponse
Messages postés
13368
Date d'inscription
lundi 13 décembre 2004
Dernière intervention
3 février 2018
29
3
Merci
salut,

houla c'est quoi ta requête?
REMOVEITEM ne renvoie pas de STRING
et rowsel renvoie un LONG étant la position, pas la valeur de ton ID

et ID est un numérique?
si l'ID est dans la première colonne :
mobjrec.SQL "Delete from CLIENTS where IDClient " & msI.TextMatrix(msI.RowSel, 0) & ";"


et sous le DECONNECT le remove est correct

[hr]

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 112 internautes nous ont dit merci ce mois-ci

Commenter la réponse de PCPT
Messages postés
16
Date d'inscription
mercredi 21 décembre 2005
Dernière intervention
17 janvier 2010
0
Merci
Salut,

Je donne:

Syntax error Missing operator in querry expresion "IDClient=".

Merci
Commenter la réponse de miomimi
Messages postés
16
Date d'inscription
mercredi 21 décembre 2005
Dernière intervention
17 janvier 2010
0
Merci
Ne pas sélectionner IDClient

Private Sub del_Click()
On Error GoTo err
If CodeClient.Text = "" Then
        MsgBox "Selectez le client!"
    Else
If (MsgBox("Confirmez la Suppression du Client [" & ListC.TextMatrix(ListC.RowSel, 0) & "]?", vbYesNo + vbQuestion, "Suppression") = vbYes) Then    
    Call Connect
    mobjrec.SQL "Delete from CLIENTIS where IDClient" & ListC.TextMatrix(ListC.RowSel, 0) & ";"
    mobjrec.RSOpen
    Call Deconnect
    ListC.RemoveItem ListC.RowSel
End If
End If
GoTo fin
err:
   MsgBox "Tu ne puex pas supprimer[" & ListC.TextMatrix(ListC.RowSel, 0) & "], deja utilise", vbInformation, "Erreur"   
fin:
End Sub


et
Syntax error Missing operator in querry expresion "IDClient=".


Merci
Commenter la réponse de miomimi
Messages postés
13368
Date d'inscription
lundi 13 décembre 2004
Dernière intervention
3 février 2018
29
0
Merci
1) j'ai enlevé les apostrophes en supposant que ID est un numérique, tu n'as pas répondu?... et si c'est un TEXT il faut bien sûr remettre ces apostrophes

2) CLIENTS devient CLIENTIS ??

3) vérifie que le ROWSEL soit toujours valide après le msgbox, au cas où.... (perte de focus, perte de sélection?)
Commenter la réponse de PCPT
Messages postés
16
Date d'inscription
mercredi 21 décembre 2005
Dernière intervention
17 janvier 2010
0
Merci
IDClient est AutoNumber

CLIENTS ne devient pas CLIENTIS ...J'ai écrit mal
IDClient n'est pas visible in msgbox. Affiche:

Confirmez la Suppression du Client []?

rien entre parenthèses

Merci
Commenter la réponse de miomimi
Messages postés
13368
Date d'inscription
lundi 13 décembre 2004
Dernière intervention
3 février 2018
29
0
Merci
donc de quoi tu t'étonnes?
normal d'avoir une erreur SQL si tu essayes de détruire un enregistrement dont l'ID autoincrement est NULL !!

je n'ai pas ta grille sous les yeux et ne sais donc pas dans quelle colonne est ton ID
j'ai bien indiqué :


si l'ID est dans la première colonne :
mobjrec.SQL "Delete from CLIENTS where IDClient " & msI.TextMatrix(msI.RowSel, 0) & ";"


à toi de modifier en fonction des données que tu es le seul à connaître!
Commenter la réponse de PCPT
Messages postés
16
Date d'inscription
mercredi 21 décembre 2005
Dernière intervention
17 janvier 2010
0
Merci
L'ID est dans la première colonne, mais j'obtiens encore l'erreur
J'ai réussi à me donner MsgBox correctement, puis-je obtenir d'erreur

Syntax error Missing operator in querry expression "IDClient=".

Dans le reste tout va bien

Merci
Commenter la réponse de miomimi
Messages postés
15
Date d'inscription
mercredi 1 avril 2009
Dernière intervention
10 avril 2011
0
Merci
salut svp besoin d'aide .
j'affiche tous les patients dans Msflexrid et je veux effacer un seul patient que je le sélctionne moi même :) merci pr votre attention
Commenter la réponse de esisajiji

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.