[VBA Excel] Projet - derniere étape

Bonjour

Ce post, sera mon dernier. J'en profite au passage pour remercie Hervé ( entre autre :p ) , sans qui je n'aurai pas pas pu avancer.

Bref, voila, je dois rendre le projet, sous forme de .exe
Même s'il n'est pas parfait, il doit permettre une recherche ainsi qu'un ajout de client / entreprise / courtier, corrects.

Le probleme, c'est que la je n'ai absolument plus personne pour me " corriger " et je fais donc appel a votre savoir en matiere de programmation =)

J'aimerais juste qu'on me dise mes erreurs, bref, ce qui m'empeche de le compiler afin de le rendre fonctionnel.

Il y a aussi une erreur de " nom ambigue " sur " l'adresse " de la recherche courtier, que je ne sais pas comment résoudre.

Enfin, pour finir, j'aimerais savoir comment je dois m'y prendre pour afficher mes resultats de requêtes, dans mes labels, et non dans une page excel.

( on avait tenté de me l'expliqué mais je ne suis pas sur d'avoir saisie aprés avoir testé )

Pour voir mon programme, il suffit de decompresser le .rar que j'ai mis en piece jointe.

Merci d'avance

Bonjour


j'ai réussi a regler mon probleme pour le nom ambigue, mais j'ai toujours grandement besoin de vos avis / corrections :(

merci d'avance

ps : par exemple j'ai une erreur sur le Set Querydef : seul des commentaires peuvent apparaitre aprés un End Sub ou End propertie "

Bonjour Lyraaa,

Peux-tu montrer le bout de code avec le problème du querydef.
Il faut qu'il soit dans une procedure ou une fonction

Code:

---

1 2 3 4 5 6

sub MaProcedureInitAccesBdD... ... ' initialisation du querydef set ... ... end sub

---

A+, Hervé.

Salut Hervé

Ah, visiblement je vais aller relire tes explications sur le Query, car visiblement, je n'ai pas tout compris. J'avais marqué ca perso :

Code:

---

1 2 3 4 5 6 7

Set BDD = New ADODB.Connection BDD.provider = "Microsoft.jet.oledb.4.0" BDD.ConnectionString = BDD_HDD End Sub   Set qdfRequete = BDD.CreateQueryDef("")

---

dans le module de connexion.

Pour mon fichier, oui il y a un .mdb ( les champs + table sous Access ) et un fichier .xls ( fichier Excel, le code est sous VBA ( donc clik droit, afficher le code )

Place le set dans la procedure

Code:

---

1 2 3 4 5 6 7

Set BDD = New ADODB.Connection BDD.provider = "Microsoft.jet.oledb.4.0" BDD.ConnectionString = BDD_HDD ' init du querydef Set qdfRequete = BDD.CreateQueryDef("")   End Sub

---

Je n'avais explicitement écrit de procédure, mais j'avais simplement indiqué ou le placer. Cela dépend comment tu as structuré ton code.

Citation:

---

un fichier .xls ( fichier Excel, le code est sous VBA ( donc clik droit, afficher le code )

---

Je ne peux pas, je n'ai pas Excel.
A+ , hervé.

Ah oui en effet sans Excel, cela risque d'être dur

Sinon j'ai eneffet mis le query def au bonne endroit, mais la même erreur se reproduit avec ce qui est en rouge :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Set BDD = New ADODB.Connection BDD.provider = "Microsoft.jet.oledb.4.0" BDD.ConnectionString = BDD_HDD Set qdfRequete = BDD.CreateQueryDef("") End Sub BDD.Open Set rstLigneTable = New ADODB.Recordset rstLigneTable.Open (sRequete), BDD Sub RequeteAction(ByVal sRequete As String) qdfRequete.Sql = sRequete 'la requete à effectuer qdfRequete.Execute 'execute la requete End Sub

---

je dois mettre la partie rouge avec le Set Query def ?

Oui
Edit : place ton "BDD.Open" au dessus de set ...querydef.

ca aussi ?

Set rstLigneTable = New ADODB.Recordset
rstLigneTable.Open (sRequete), BDD


merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

... Set BDD = New ADODB.Connection BDD.provider = "Microsoft.jet.oledb.4.0" BDD.ConnectionString = BDD_HDD   BDD.Open   Set rstLigneTable = New ADODB.Recordset rstLigneTable.Open (sRequete), BDD   Set qdfRequete = BDD.CreateQueryDef("")   End Sub     Sub RequeteAction(ByVal sRequete As String) qdfRequete.Sql = sRequete 'la requete à effectuer qdfRequete.Execute 'execute la requete End Sub

---

Le "QueryDef" est ainsi avec ta partie initialisation.
Mais bon je ne connais pas trop la syntaxe sous Excel, il faudra essayer.
Pour la partie d'initialisation je ne pourrai malheureusement pas te donner un exemple. Je ne connais que directement avec vb.

Quelqu'un pourra peut être mieux te renseigner sur cette partie.
J'essaye de regarder si je trouve quelque chose.

A+, Hervé

Merci hervé !!!

Bon bonne nouvelle : la recherche est fonctionelle ! ca marche ! nikel !

Bon la nouvelle un peu moins bonne, c'est pour l'enregistrement ><

J'ai replacé comme tu m'a dis le query.
Mais, il me fait une erreur de type " erreur de syntaxe ( opérateur absent ) ou alors cette erreur : Modification non effectuées risque de doublon dans le champ Index, clé principal, ou relation, interdisant les doublons. Modifiez les données..."

et ce sur : rstReq.Open (sRequete), BDD

dans mon module de connexion

une idée ?

Bonjour,
Dans quelle table ?

Citation:

---

Modification non effectuées risque de doublon dans le champ Index, clé principal, ou relation, interdisant les doublons.

---

La clé identifiant l'enregistrement de la table doit être unique.
Par exemple le client N° 5 existe, si tu fait un insert avec le num_client à 5 => erreur

Citation:

---

" erreur de syntaxe ( opérateur absent )

---

comment est defini "rstReq.Open"
Peux-tu montrer un peu plus?
Regarde le contenu de ta requête.
Cela peut se produire quand l'utilisateur saisie une phrase contenant une apostrophe ('). Cette apostrophe se retrouve au milieu de ta requête et perturbe tout.
Il faut doubler l'apostrophe. avec une fonction

Code:

---

replace(varChaineDeCaratere, "'","''")

---

tu peux le faire au moment de la construction de la chaîne de requête.

A+ , Hervé.

Merci Hervé, je te forunis totu ce que tu a demandé ce soir ( oui car la je suis au taff afin de montrer l'avancement du projet, je n'ai donc quasiment pas le temps de le modifier )

Donc ce soir, je te donne le code que tu as demandé, et j'essaye les différentes solutions proposées.

edit :ah ca remarche, j'ai rien dis