Discussion :

[snoopy69]

Re les gens ...

Voici le code que j'ai pris dans la FAQ en l'ayant modifier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub execrequete()
 
Dim db As DAO.Database
    Set nom_bd = DBEngine.OpenDatabase("C:\Documents and Settings\julie.mahon\Bureau\Gestion_des_mouvement_de_matiere_test.mdb")
    ' Exécution de la requête
    db.Execute "Update TB_ALLIAGES Set nom_alliage = '222'"
    Debug.Print "Records Affected = " & db.RecordsAffected
    db.Close
End Sub

Dans ce code j'ai modifié la requête UPDATE et le nom du prog.

Ce code ne marche pas ... voici l'erreur que j'ai :

Erreur d'exécution '91':
Variable ou objet ou variable bloc With non définie.

Savez vous où ce situe l'erreur dans ce programme ???

Merci de vos réponses ... et à tout bientôt ...

Snoop's

[Lou Pitchoun]

Salut,
Essaie en déclarant nom_bd correctement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set nom_bd As DAO.Database

[snoopy69]

ahhh j'ai vu ce que j'ai fait faux ... voici le bon code ...

Erreur d'inatention ...

Merci pour ton aide ... c'est super cool ...

voici le code que j'ai modifié et qui fonctionne ... !!!

Sub execrequete()

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim db As DAO.Database
    Set db = DBEngine.OpenDatabase("C:\Documents and Settings\julie.mahon\Bureau\Gestion_des_mouvement_de_matiere_test.mdb")
    ' Exécution de la requête
    db.Execute "Update TB_ALLIAGES Set nom_alliage = '222'"
    Debug.Print "Records Affected = " & db.RecordsAffected
    db.Close
End Sub

En fait j'avais tout mélangé, j'ai nommé une "variable" d'un nom et j'ai voulu l'utiliser avec un autre nom ...

Merci de me l'avoir fait remarqué ----

A tout bientôt ...

+++
++
+