Erreur d'exécution 3219

Résolu/Fermé

basthed Messages postés 10 Date d'inscription jeudi 12 mars 2020 Statut Membre Dernière intervention 31 juillet 2021 - 12 mars 2020 à 10:47
basthed Messages postés 10 Date d'inscription jeudi 12 mars 2020 Statut Membre Dernière intervention 31 juillet 2021 - 12 mars 2020 à 13:34

Bonjour,

Voici le code que j'exécute pour effectuer une modification en base de données

Private Sub Commande31_Click()

Dim strSQL As String
strSQL = ""
Dim dbs As DAO.Database
Dim rs As DAO.Recordset

Set dbs = CurrentDb
strSQL = "UPDATE Transporteurs_t SET Status = 2 WHERE No_Transporteur = 1"
Set rs = dbs.OpenRecordset(strSQL, dbOpenDynaset)

rs.Edit
rs("Status") = Null
rs.Update
rs.Close
Set rs = Nothing
DoCmd.Requery

End Sub

J'obtient une erreur d'exécution 3219 besoin d'aide

A voir également:

Erreur d'exécution 3219
Code erreur s05-05 - Forum Téléviseurs
Erreur d'execution 1004 - Forum Programmation
Iptv erreur de lecture - Forum TV & Vidéo
MACRO : Problème " Erreur d'exécution '1004' " ✓ - Forum Excel
Erreur d'exécution 1004 erreur définie par l'application ou par l'objet ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

yg_be Messages postés 22138 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 28 novembre 2023 1 405
Modifié le 12 mars 2020 à 12:17

bonjour,
quand tu as une erreur, indique toujours sur quelle ligne elle se produit.
peux-tu expliquer ce que tu souhaites faire exactement?
merci d'utiliser les balises de code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
peut-être veux-tu faire ainsi:

DoCmd.RunSQL(strSQL)

basthed Messages postés 10 Date d'inscription jeudi 12 mars 2020 Statut Membre Dernière intervention 31 juillet 2021
12 mars 2020 à 13:34

Bonjour @yg_be l'erreur se trouvais au niveau de :
Set rs = dbs.OpenRecordset(strSQL, dbOpenDynaset)

comme solution
il faut que recodset soit une sélection d'enregistrement et non pas une mise à jour.
strSQL = "SELECT Transporteurs_T.* WHERE No_Transporteur = 1";

Discussions similaires

VBA erreur 1004

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

[Youtube] Une erreur s'est produite

Erreur d'exécution 13 Incompatibilité de type

Discussions similaires

Newsletters