Discussion :

[Lou Pitchoun]

Salut à tous..

J'ai une requete paramétré (1 en l'occurence..) et un formulaire avec liste déroulante.
Voici le SQL de la requete:

Code :

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

1
2
3
4
5
SELECT Contrat.[N°Contrat], Commune.[N°Commune], Commune.Nom_commune, Contrat.Type_contrat, Commune.Adresse_commune, Commune.CP_commune, Commune.Ville_commune, Max(Contrat.Date_début_contrat) AS [Date de début], Max(Contrat.Date_fin_contrat) AS [Date de fin], Courrier.Appel_AQ, Courrier.Date_appel_AQ, Courrier.Année_courrier, District.District, District.Civilité, District.Nom_Responsable, District.Adresse_district, District.Comp_Adr_district, District.CP_district, District.Ville_district, District.[N°téléphone_district], [Année_courrier]-1 AS [Année_N-1]
FROM (District INNER JOIN Sous_district ON District.[N°District] = Sous_district.[N°District]) INNER JOIN ((Commune INNER JOIN Contrat ON Commune.[N°Commune] = Contrat.[N°Commune]) INNER JOIN Courrier ON Contrat.[N°Contrat] = Courrier.[N°Contrat]) ON Sous_district.[N°Sous_district] = Commune.[N°Sous_district]
GROUP BY Contrat.[N°Contrat], Commune.[N°Commune], Commune.Nom_commune, Contrat.Type_contrat, Commune.Adresse_commune, Commune.CP_commune, Commune.Ville_commune, Courrier.Appel_AQ, Courrier.Date_appel_AQ, Courrier.Année_courrier, District.District, District.Civilité, District.Nom_Responsable, District.Adresse_district, District.Comp_Adr_district, District.CP_district, District.Ville_district, District.[N°téléphone_district], [Année_courrier]-1, Commune.[N°Commune]
HAVING (((Contrat.[N°Contrat])=[Formulaires]![Edition AQ]![Contrats]) AND ((Max(Contrat.Date_fin_contrat))<>"01/01/" & (Year(Date()))) AND ((Courrier.Appel_AQ)=-1) AND ((Courrier.Année_courrier)=Year(Date())))
ORDER BY Commune.Nom_commune;

Quand je sélectionne l'enregistrement dans le formulaire à l'aide de la liste déroulante Contrats et que j'éxecute la requete : aucun problème.
Là ou ça marche pas c'est quand j'exécute la requete à partir du formulaire:

Code :

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

1
2
3
4
5
6
DoCmd.TransferText acExportMerge, "", "AQ_bilan_en_cours_contrat", "D:\BaseCE\3ème_projet\Courriers\AQ_bilan_en_cours_contrat.txt", True, ""
doc1 = "D:\BaseCE\3ème_projet\Courriers\CECTLencourscontrat.doc"
Set requete1 = Application.CurrentDb.OpenRecordset("AQ_bilan_en_cours_contrat")
DoCmd.TransferText acExportMerge, "", "AQ_bilan_nouveau_contrat", "D:\BaseCE\3ème_projet\Courriers\AQ_bilan_nouveau_contrat.txt", True, ""
doc2 = "D:\BaseCE\3ème_projet\Courriers\CECTLnouveaucontrat.doc"
Set requete2 = Application.CurrentDb.OpenRecordset("AQ_bilan_nouveau_contrat")

Je n'ai peut être pas les yeux en face des trous... je vois pas ce qui coince...
Merci.

[coyott]

Quand je sélectionne l'enregistrement dans le formulaire à l'aide de la liste déroulante Contrats et que j'éxecute la requete : aucun problème.
Là ou ça marche pas c'est quand j'exécute la requete à partir du formulaire:

moi pas comprendre :-(
lol

sinon vérifis-tu dans ton code que la liste n'a pas une valeur nul?
attention si tu lances le code sur un bouton et non aprés maj de ta liste il te faut peut-être forcer sa maj en changeant de control avant avec (s'il n'y a pas d'autre control de ta liste créé en un caché)

Code :

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

1
2
 
docmd.gotocontrol control.name

[Lou Pitchoun]

Salut Coyott
Je vais "essayer" d'être plus précis

Quand je sélectionne l'enregistrement dans le formulaire à l'aide de la liste déroulante Contrats et que j'éxecute la requete : aucun problème.
Là ou ça marche pas c'est quand j'exécute la requete à partir du formulaire:

moi pas comprendre :-(
lol

En fait, je selectionne mon enregistrement avec la liste déroulante, puis je vais dans l'onglet requete et exécute "manuellement" la requete en question : ça marche.
Par contre si j'exécute la requete en cliquant sur le bouton.. *%!# marche pas...

sinon vérifis-tu dans ton code que la liste n'a pas une valeur nul?
attention si tu lances le code sur un bouton et non aprés maj de ta liste il te faut peut-être forcer sa maj en changeant de control avant avec (s'il n'y a pas d'autre control de ta liste créé en un caché)

Code :

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

1
2
 
docmd.gotocontrol control.name

La vérification de la requete ne possédant pas d'enregistrement se fait après avant de lancer la fonction publipostage et ne pose pas de problème... sauf sur la requete paramétrée..
Je vais faire ce test avant pour voir... et je te tiens au courant.

[Lou Pitchoun]

Je n'arrive toujours pas à exécuter mon code, alors j'ai la question suivante :
Est-il possible de réaliser ce que je veux ??
Certainement.. Mais comment : telle est la question.
Comment insérer le paramètre

Code :

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

[Formulaires]![Edition AQ]![Contrats]

sur cette ligne de code ?

Code :

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

Set requete1 = Application.CurrentDb.OpenRecordset("AQ_bilan_en_cours_contrat")

Merci...

[Lou Pitchoun]

J'ai peut être une solution....

Code :

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

1
2
3
4
5
Set requete1 = CurrentDb.QueryDefs("AQ_bilan_en_cours_contrat")
With requete1
.Parameters("[N°Contrat]") = Me.Contrats
.Execute
End With

Je la teste et alea jecta est...

[coyott]

Code :

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

1
2
 
Set requete1 = Application.CurrentDb.OpenRecordset("select AQ_bilan_en_cours_contrat.* from AQ_bilan_en_cours_contrat where [N°Contrat] = " &  Me.Contrats)

[Lou Pitchoun]

Salut Coyott
1) je te remercie bien de te pencher sur mon cas (désepéré ??)
2).... ça marche pas

Toujours le même message...

trop peu de paramètre. 1 attendu

[coyott]

hum...

déjà avant ta requête fait ceci

debug.print "select AQ_bilan_en_cours_contrat.* from AQ_bilan_en_cours_contrat where [N°Contrat] = " & Me.Contrats

et donne le résultat ( il se situe dans l'écran debug) qu'on voit ce qui cloche dans cette requête.

edit :
ah et N°contrat est bien de type numérique ?

[Lou Pitchoun]

Le message a changé...
"Erreur de syntaxe opérateur absent..."
J'ai access qu'a planté.. le c**.... le temps de le rédémarer et je te dis.
Mais il me semble que ta soluce a fonctionné...

N°Contrat est bien de type numérique (N°Auto)

[Lou Pitchoun]

C'est bon ça fonctionne !!!
Vu les modifications apportées :
1) j'ai fais sauté le critère dans la requête

Code :

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

HAVING (((Contrat.[N°Contrat])=[Formulaires]![Edition AQ]![Contrats])

2) j'ai mis ton code et ça fonctionne.

Mais ça n'a pas l'effet escompté... y me sort tous les enregistrements

[Lou Pitchoun]

Pour contourner mon problème, je me suis lancé (ai-je eu raison ???) dans la création de la requête à l'aide de cet article de la FAQ.
http://access.developpez.com/faq/?page=Manip#ReqModADO
1er obstacle : CurrentProject que j'ai remplacé par Application.CurrentDb
le 2 ème :
Message d'erreur : Opération non autorisé sur ce type d'objet.
La ligne en cause

Code :

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

Set MCat.ActiveConnection = Application.CurrentDb.Connection

Edit : je suis sous access 97...
j'ai activé les 2 références indiquées dans la FAQ.

[Tofalu]

A priori là tu mélanges ADO et DAO

Quel est le but ?

[Lou Pitchoun]

A priori là tu mélanges ADO et DAO

Wouais, je m'en suis rendu compte.
C'est en faisant des erreurs que l'on progresse... je me suis rendu compte (je me répete là.. la fatigue peut être..) que sous 97 il y a ceci :

Code :

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

Set querydef = object.CreateQueryDef (name, sqltext)

Pour résumer, j'ai une liste déroulante qui me permet d'obtenir un enregistrement, à partir d'un clic sur un bouton, j'exécute une requete avec un paramètre, pour ensuite effectuer un publipostage avec cette requete.
Mon soucis actuel : le paramètre ne fonctionne pas... enfin uniquement lorsque j'exécute la requete en double-cliquant dessus...
Donc j'en suis arrivé à écrire ce code

Code :

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

1
2
3
4
5
6
7
Set requete1 = Object.CreateQueryDef("AQ_bilan_en_cours_contrat", "select AQ_bilan_en_cours_1.* from AQ_bilan_en_cours_1 where [N°Contrat] = " & Me.Contrats)
If requete1.RecordCount < 1 Then
Reqvide1 = True
Else
DoCmd.TransferText acExportMerge, "", "AQ_bilan_en_cours_contrat", "N:\Commun-AS\Base AS\Courriers\AQ_bilan_en_cours_contrat.txt", True, ""
doc1 = "N:\Commun-AS\Base AS\Courriers\CECTLencourscontrat.doc"
End If

et là... je suis à 2 doigts de réussir (enfin je pense)
Il faut que je remplace Object par le nom d'une variable.
mais j'ai déjà un nom de variable : requete1.

[Tofalu]

Et bien Object c'est CurrentDB

Code :

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

1
2
3
4
5
6
7
Set requete1 = CurrentDb.CreateQueryDef("AQ_bilan_en_cours_contrat", "select AQ_bilan_en_cours_1.* from AQ_bilan_en_cours_1 where [N°Contrat] = " & Me.Contrats) 
If requete1.RecordCount < 1 Then 
Reqvide1 = True 
Else 
DoCmd.TransferText acExportMerge, "", "AQ_bilan_en_cours_contrat", "N:\Commun-AS\Base AS\Courriers\AQ_bilan_en_cours_contrat.txt", True, "" 
doc1 = "N:\Commun-AS\Base AS\Courriers\CECTLencourscontrat.doc" 
End If

[Lou Pitchoun]

Merci !!!
Encore une petite question....
La requete existe déjà. Que me conseilles tu :
1) l'écraser à chaque fois
2) la supprimer dès que j'en ai plus besoin ??

[Tofalu]

Mon conseil :

Si la requete existe la modifier, et si elle existe pas la créer (cela évite les bug)

Donc il te faut tester si elle existe ou pas donc dans ton code, ajouter cette petite fonction :

Code :

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

1
2
3
4
5
6
7
8
9
Private Function TestExistenceRequete(Nom As String, Db As DAO.Database) As Boolean
On Error GoTo err
Dim rqt As DAO.QueryDef
'Essaye d'accéder à la requete
Set rqt = Db.querydets(Nom)
'Si acces = Ok alors renvoyer true
TestExistenceRequete = True
err:
End Function

Et ton code principal devient :

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
19
20
21
Dim NomRequete As String
Dim oRqt1 As DAO.QueryDef
Dim oDb As DAO.Database
Dim SQL As String
SQL = "select AQ_bilan_en_cours_1.* from AQ_bilan_en_cours_1 where [N°Contrat] = " & Me.Contrats
NomRequete = "AQ_bilan_en_cours_contrat"
'Teste l'existence de la requete et s'il elle existe la modifie
If TestExistenceRequete(NomRequete, oDb) Then
  Set oRqt1 = oDb.QueryDefs(NomRequete)
  oRqt1.SQL = SQL
Else
  'Crée la requete
  Set oRqt1 = CurrentDb.CreateQueryDef(NomRequete, SQL)
End If
'Rafraichit la liste des requetes
oDb.QueryDefs.Refresh
'Si la requete n'est pas vide, alors exporte
If oRqt1.RecordCount > 0 Then
DoCmd.TransferText acExportMerge, "", NomRequete, "N:\Commun-AS\Base AS\Courriers\AQ_bilan_en_cours_contrat.txt", True, ""
doc1 = "N:\Commun-AS\Base AS\Courriers\CECTLencourscontrat.doc"
End If

Tu remarqueras que j'ai commenté le code et aussi déclarer les variables, tout cela est impératif. De même pour pouvoir utiliser DAO, il te faut ajouter la référence Microsoft DAO Object Library à ton projet (Sous VBA/Menu Outils/Réference)

Enfin pour plus de détails, je te propose un cours complet (100 pages)

http://warin.developpez.com

[Lou Pitchoun]

Merci beaucoup.
J'ai pu résoudre mon problème... en supprimant et en récréant la requete.
Mais je vais tout de même suivre ton conseil.
En tout cas merci à toi et à Coyott.