Modifier les données access

qmohamed Messages postés 16 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 24 mai 2009 - 23 mai 2009 à 20:29
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 24 mai 2009 à 10:15
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

Mayzz Messages postés 2813 Date d'inscription mardi 15 avril 2003 Statut Membre Dernière intervention 2 juin 2020 28
23 mai 2009 à 21:57
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.
0
qmohamed Messages postés 16 Date d'inscription mercredi 11 mars 2009 Statut Membre Dernière intervention 24 mai 2009
24 mai 2009 à 00:01
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
0
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
24 mai 2009 à 10:15
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 
0
Rejoignez-nous