Modifier les données access

Signaler
Messages postés
16
Date d'inscription
mercredi 11 mars 2009
Statut
Membre
Dernière intervention
24 mai 2009
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Bonjour,
j ai créé un bouton cmdChg pour modifier les données dans une base de données access. voila le code :
(
Private Sub cmdChg_Click()
    ' Déclaration des variables
    Dim strTable, strSQL As String
    Dim intCode As Integer
    Dim strNom As String
    ' Correction des chaines avec apostrophes éventuels
    ' Note : les apostrophes, dans les requêtes SQL, peuvent provoquer des erreurs
    strNom = Replace(strNom, "'", "''")
    '----------------------------------------------------------------------
        strTable = "Adresses"
        '======================================================================
        ' MODIFIE LES DONNEES DANS LA TABLE
        '----------------------------------------------------------------------
        ' Requête SQL de modification ( modulable selon les valeurs saisies ou pas )
        strSQL = "UPDATE " & strTable & " SET "
        strSQL = strSQL & "Nom='" & strNom & "'"
        If Trim(txtCP.Text) <> "" Then strSQL = strSQL & ",CP='" & Trim(txtCP.Text) & "'"
        strSQL = strSQL & ",mDate='" & strDate & "'"
        strSQL = strSQL & " WHERE [Code]=" & intCode & " "
        ' Exécute la requête d'ajout des données dans la table
        db.Execute (strSQL)
        ' On ré-initialise la liste déroulante
        ReadCboDatas
End Sub
)
Mais une fois que j 'exécute, le programme s'arrete à la ligne   db.execute (strSQL) an affichant le message suivant :
erreur d'execution 91
variable objet ou variable code With non défini
je veux avoir vos réponces et merci d'avance.

3 réponses

Messages postés
2813
Date d'inscription
mardi 15 avril 2003
Statut
Membre
Dernière intervention
2 juin 2020
38
Bonsoir,

Ton problème vient surement du faite que ta variable 'db' n'est pas initialisé et à comme valeur Nothing (Null).

Initialise la avec le code approprié (db = New [...]) et tout devrait rentrer dans l'ordre.
Messages postés
16
Date d'inscription
mercredi 11 mars 2009
Statut
Membre
Dernière intervention
24 mai 2009

Bonsoir,
je pense que c est pas ca l'erreur parce que ca fonctionne dans un autre programme sans faire ce que vous venez de dire.db est défini comme ca (db as database).
j aime bien avoir votre avis
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47
salut,
db as new database (comme l'indique

[../auteur/MAYZZ/85589.aspx Mayzz]

)

de plus db doit être connecté
enfin tu gagnerais en rapidité et surtout en fiabilité en passant par ADO (et non DAO comme çà semble être le cas actuellement)
quelques exemples simples disponibles sur www.codyx.org
++

<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp