Discussion :

[chelmi95]

Bonjour,

J'ai créé un code VB pour trouver un enregistrement dans un requête et supprimer cet enregistrement.

J'ai utilisé la méthode findfirts pour trouver l'enregistrement et Delete pour le supprimer.

Le problème est qu'il me supprimer toujours le PREMIER enregistrement et non celui qu'il a trouvé.

Voici un extrait de mon code

Code :

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

1
2
3
        rst2.FindFirst "[N° Ordre] = '" & Str(C_PK50_Numordre) & "'"
        Debug.Print rst2("assignment")
        rst2.Delete

Si quelqu'un peut m'aider ?

Merci d'avance.

[Pierre Fauconnier]

Bonjour

Il me semblerait plus judicieux d'utiliser Debug.Print sur le champ numéro d'ordre...

Ce champ est-il une clé primaire?
Ce champ est-il bien un champ texte?
Pourquoi convertir la valeur de C_PK50_Numordre en texte?

[NguyenRD]

Salut,

D'apres mes connaissances, avec FindFirst quand il ne trouve aucune valeur correspondante, le cursor se place au 1e record. Et quand il voit Delete, il delete le record ou se trouve le cursor donc le premier.

Une autre solution:

Code :

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

DoCmd.RunSQL "DELETE FROM NomDeLaTable WHERE [N° Ordre] = " & ValeurDuNoOrdreASupprimer

cette instruction Access est simple a utiliser, pas besoin de declarer le recordset, etc.

|Bonne Chance

[Gabout]

Bonjour,

Et pourquoi ne pas créer un recordset avec comme critère WHERE ton numéro d'ordre...

• Si ton recordset est vide : message d'avertissement et sortie
• Sinon : suppression et message éventuellement

A+

[loufab]

Bonjour,

Controle simplement que le findfirst à bien abouti avec la propriété NoMatch.

Cordialement,