Erreur d'exécution 3219
Résolu
basthed
Messages postés
9
Date d'inscription
Statut
Membre
Dernière intervention
-
basthed Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
basthed Messages postés 9 Date d'inscription Statut Membre Dernière intervention -
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
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
- Erreur 0x80070643 - Accueil - Windows
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- Iptv erreur de lecture - Forum TV & Vidéo
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
- Java code erreur 1603 ✓ - Forum Windows
1 réponse
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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:
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)
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";