Discussion :

[lyraaa]

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

[lyraaa]

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 "

[rv26t]

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 :

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

1
2
3
4
5
6
sub MaProcedureInitAccesBdD...
...
' initialisation du querydef
set ...
...
end sub

A+, Hervé.

[lyraaa]

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 :

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

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 )

[rv26t]

Place le set dans la procedure

Code :

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

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.

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

[lyraaa]

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 :

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

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 ?