Erreur d'exécution 3219Résolu/Fermé

Question

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

yg_be · Answer

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)

Erreur d'exécution 3219

1 réponse

Newsletters