Probleme de SQL au milieu de mon code VBA

Bonjour a tous

J'ai absolument nesoin de votre aide :oops:

Je suis entrain de déveloper une petite aplication en VBA depuis access deriere les boutons de commande d'un formulaire

Mon probleme est que je n'arrive pas a exécuter de requete SQL dans mon code car apres avoir déclaré

Code:

---

1 2 3 4

Dim sql As String Dim num As Integer Dim qd As QueryDef

---

a la compilation il bloque sur la ligne

Code:

---

1 2	Dim qd As QueryDef

---

et me renvoy le message d'erreure suivant :
Erreur de compilation
Type défini par l'utilisateur non défini

Quand j'utilise l'aide F1 sur cette ligne, il me sort Mot clé Introuvable

Je suis avec Access 2000, je ne c'est pas quel librarie je doit utiliser
Certain me parle de Microsoft Excel 11.0 Object Library et dotre de Microsoft Access 11.0 Object Library

Dans tous les cas je n'est ni l'une ni l'autre

est-il possible de rajouter manuellement ces librairie??
sinon exist-il un autre moyen de procédé?

Je ne peut pas travailler avec des requete statique car dans le formulaire, je recupaire la clef primaire des élément a suprimer ainssi que le nom de la table ou se trouve la ligne a suprimer

Merci de votre aide

Bonjour,

Ceux qui te parlent de
"Microsoft Excel 11.0 Object Library et Microsoft Access 11.0 Object Library"
Sont de sombres idiots incompétents. :aie:

Il te faut la bibliothèque DAO

Code:

---

Microsoft DAO 3.xx Object library

---

En savoir plus !
http://support.microsoft.com/kb/197110/fr

Les rajouter :
VBE menu outils/références...

Note que tu passer par du SQL via VBA sans pour autant utiliser l'objet Query.

Code:

---

1 2 3 4

sql = "SELECT ....." docmd.runSQl sql 'ou currentdb.execute sql

---

Il y a un tuto là dessus. Après 3 secondes de recherche http://ledzeppii.developpez.com/instrsqlvb/ :roll:

Cordialement,

Citation:

---

Envoyé par loufab

Bonjour,

Ceux qui te parlent de
"Microsoft Excel 11.0 Object Library et Microsoft Access 11.0 Object Library"
Sont de sombres idiots incompétents. :aie:

Il te faut la bibliothèque DAO

---

Tiens, on parle de moi :aie:. Autant pour moi, je penseais que l'objet QueryDef faisait parti des bibliothèques Access et j'avoue ne pas avoir vérifié l'explorateur d'objet. Mea culpa.

Cordialement,

Manhexter se n'est pas grave le prinsipal c'est que le probleme soit résolue ^^ :D

Par contre loufab désoler pour ton tuto mais c'est surement pas de lui que tu a sortie les ligne de code suivante :

Code:

---

1 2 3 4

DoCmd.RunSQL sql 'ou CurrentDb.Execute sql

---

j'ai quand meme trouver dans se tuto quelque explication qui me seront utile pour la suite des opération donc merci quand meme


Pour en revenir a ton code apres quelque test j'ai trouvais un code qui permé de lutiliser sans probleme

Code:

---

1 2 3 4 5 6 7 8 9

Dim sql As String Dim num As Integer     num = Me!saisie1 sql = "DELETE from tableproscrie where numpersonne = " & num & ";"   DoCmd.RunSQL sql

---

ou

Code:

---

1 2 3 4 5 6 7 8 9

Dim sql As String Dim num As Integer     num = Me!saisie1 sql = "DELETE from tableproscrie where numpersonne = " & num & ";"   CurrentDb.Execute sql

---

Il faut savoir qu'il y a une légere différence entre les deux, dans le premier, avant que la ligne soit suprimé, le trombonne assistent te prévien que tu va suprimer 1 ou plusieur ligne et te demande confirmation
dans le cas numero 2, il ne se passe rien, rien ne te dit si la requette c'est exécuter corectement ou non

Je prefaire ne pas utilisé lassistent car sinon beacoup de clic inutil pour lutilisateur

Mais j'aimeré beaucoup savoir s'il est possible de vérifier si la requete s'est bien executer ou mal et de metre une zonne de texte qui ne soit pas de saisie mais celement d'affichage pour faire aparetre une petite phrase qui dit que la requette s'est bien executer

Merci

D'abord désolé pour Manhexter c'était sur le ton de la plaisanterie (:aie:) tout le monde fait des erreurs. :zoubi: Je tenais en m'en excusé si je t'ai froissé.

Pour Teen : Non évidement le petit exemple ne provient pas du tuto il provient directement de mon cerveau (mince j'en ai un ?! :aie:).

Si ça ne marche pas il va te le faire savoir (remontée d'une erreur). Tu peux le forcer à remonter une erreur (valable pour les moteurs externes -non jet-) en utilisant un dbfailonerror dans le execute (voir F1 pour la syntaxe exacte) et trapper l'erreur au moyen d'un On error.

Après si vraiment tu es parano :aie: tu peux vérifier en recherchant ce que tu viens de supprimer : requete, DAO findfirst à toi de choisir la manière.
Cordialement,

Citation:

---

Envoyé par loufab

D'abord désolé pour Manhexter c'était sur le ton de la plaisanterie (:aie:) tout le monde fait des erreurs. :zoubi: Je tenais en m'en excusé si je t'ai froissé.

---

Et c'est bien comme plaisanterie que je l'ai pris, pas de soucis :ccool:

Merci tout le monde