PROB SUPPRESSION

Question

J'ai un formulaire de saisie.


Il enregistre des donn&#233;es relatives &#224; des r&#233;ceptions. Pour les saisir je rentre le num&#233;ro de r&#233;ceptions qui est un champ num&#233;rique et ce num&#233;ro correspond &#224; la cl&#233; primaire de la table. Je voudrais &#224; partir de ce num&#233;ro supprimer un enregistrement de la table.
J'ai un bouton supprimer.
Voici son code :


Private Sub SUPPRIM_Click()


Dim dbws As Object  
Dim db As DAO.Database  
Dim dtreq As DAO.Recordset  
Dim req  As String 


Set dtreq = CurrentDb.OpenRecordset("RECEPTION")


If MsgBox("Voulez-vous supprimer l'enregistrement ?", vbYesNo) = vbYes Then


req = "DELETE [RECEPTION_CODE], [RECEPTION_DATE], [RECEPTION_QTE],  " _
& " FROM [RECEPTION] " _
& " WHERE [RECEPTION_CODE] = " & Chr(34) & [CODE_RECEPTION] & Chr(34)


dtreq.Delete


MsgBox ("Suppression OK !")


'Mise &#224; blanc du formulaire FICHE CLIENTS
CODE_RECEPTION = ""
DATE_RECEPTION = ""
QTE_RECEPTION = ""

dtreq.Close


Else
    Exit Sub


End If

End Sub

Help svp.

Merci beaucoup

VicoLaChips2 · Answer

Bonsoir ;)
D&#233;j&#224; si tu n'as pas d'erreur par rapport &#224; ce que je viens de lire c'est ....plut&#244;t surprenant. Enfin, si le champ de r&#233;ception est bien un champ num&#233;rique !! ? chr(34) ?? Ensuite...
C'est quoi ces noms ?? 


Et : "DELETE * FROM RECEPTION WHERE [RECEPTION_CODE] = MonNumero" &#231;a marche pas ?


Sachant que MonNumero est peut &#234;tre pas un num&#233;ro ?


Ahhh quel num&#233;ro !!


Vic 


PS: MSACCESS = Capitaine crochet !!

PROB SUPPRESSION

1 réponse

Discussions similaires