Discussion :

[teen6517]

Bonjour a tous

J'ai absolument nesoin de votre aide

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 :

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

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 :

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

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

[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.

Il te faut la bibliothèque DAO

Code :

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

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 :

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

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/

Cordialement,

[Manhexter]

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.

Il te faut la bibliothèque DAO

Tiens, on parle de moi . 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,

[teen6517]

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

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 :

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

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 :

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

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 :

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

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

[loufab]

D'abord désolé pour Manhexter c'était sur le ton de la plaisanterie () tout le monde fait des erreurs. 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 ?! ).

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 tu peux vérifier en recherchant ce que tu viens de supprimer : requete, DAO findfirst à toi de choisir la manière.
Cordialement,

[Manhexter]

D'abord désolé pour Manhexter c'était sur le ton de la plaisanterie () tout le monde fait des erreurs. 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

[teen6517]

Merci tout le monde