probleme excécution de requête

Version imprimable

Bonjour, j'ai un problème pour excécuter une requette a partir d'un formulaire access.

J'ai créer un formulaire avec un champs text pour saisir un numero de semaine.
Je voudrai que lorsque que l'on appuis sur un bouton il sélectionne les donnée d'une requete en fonction du numero de la semaine et qu'il les mettent dans ue feuille excel deja existante.

J'ai regardé sur plein de forum et je m'y perd.
Je n'arrive même pas a exécuter la requete en mode selection avec comme critere le num semaine du form.

pouvez vous m'aider svp.
Je met mon code qui ne doit pas etre bon du tout.
Ce qui est en commentaire cpour exporter les donnée de la requette sous excel. (enfin je pense).

merci d'avance.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub go_Click()
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim str As Integer
    str = Me!numsem.Value
    Dim Query As String
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
    Dim sSQL As String
 
    Set db = CurrentDb
 
    sSQL = "SELECT [En tête].Date, [En tête].Semaine, [En tête].Equipe, Groupe.Groupe, Sum(Production.[NB Palette]) AS [SommeDeNB Palette], Sum(Production.[NB Caisse]) AS [SommeDeNB Caisse] "
    sSQL = sSQL & "FROM ([En tête] INNER JOIN Production ON [En tête].[N° OZP] = Production.[N° OZP]) INNER JOIN Groupe ON [En tête].[N° Groupe] = Groupe.[N° Groupe] "
    sSQL = sSQL & "GROUP BY [En tête].Date, [En tête].Semaine, [En tête].Equipe, Groupe.Groupe "
    sSQL = sSQL & " HAVING ((([En tête].Semaine) =" & [str] & ")) "
    sSQL = sSQL & "ORDER BY [En tête].Date, [En tête].Equipe, Groupe.Groupe;"
    MsgBox (sSQL)
 
    Set rs = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
    rs.Close
 
    'Set xlApp = CreateObject("Excel.Application")
    'xlApp.Visible = True
    'xlApp.workbooks.Open ("C:\Documents and Settings\e98685\My Documents\liaison des fichier\apres/Rendement.xls")
    'xlApp.workbooks("Rendement.xls").sheets("Recup").Activate
 
    'Range("A2").Select
    'Do While Not rs.EOF 'Répéter tant qu'on est pas à la fin
        'ActiveCell.Value = rs.Fields(0) 'on écrit le contenu du champ 1
        'ActiveCell.Offset(0, 1).Value = rs.Fields(1) 'à droite celui du champ 2
        'ActiveCell.Offset(0, 2).Value = rs.Fields(2) '2 colonne à droite celui du champ 3
        'ActiveCell.Offset(0, 3).Value = rs.Fields(3)
        'ActiveCell.Offset(0, 4).Value = rs.Fields(4)
 
        'ActiveCell.Offset(1).Select 'lorqu'on a ecrit tout on descend
        'rs.MoveNext 'on passe à l'enreg suivant (access)
    'Loop 'et on recommence
 
End Sub

08/01/2010, 11h15
loufab

Bonjour,

Tu as le code dans mon tuto sur la recherche (3ème chapitre de mémoire).

Cordialement,
08/01/2010, 13h15
rob1son76

merci mais j'ai rien compris a tes programme.
Alors je vais reformuler ma demande.
Je cherche un code qui me permet d'exécuter une requete qui prend comme critère "where" du champ semaine la valeur saisie dans le text box du formulaire.
Merci
08/01/2010, 14h06
loufab

A besoin plus simple réponse plus rapide.

Tu peux modifier ton code de la sorte.

Code:

sSQL = sSQL & " HAVING ((([En tête].Semaine) =" & me.moncontrole & ")) "

Moyennant l'adaptation suivant le nom de ton controle et également suivant le type de ton champ Semaine.

je te remercie mais en faite mon probleme ce n'est pas ce qu'il y a dans sSQl car quand je fait msgbox (sSQL) il m'affiche la requete correctement mais quand je l'exécute il ne se passe rien a pars l'affichage de mon msgbox.
Mon code est il bon?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
   Dim str As Integer
    str = Me!numsem.Value
    Dim Query As String
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
    Dim sSQL As String
 
    Set db = CurrentDb
 
    sSQL = "SELECT [En tête].Date, [En tête].Semaine, [En tête].Equipe, Groupe.Groupe, Sum(Production.[NB Palette]) AS [SommeDeNB Palette], Sum(Production.[NB Caisse]) AS [SommeDeNB Caisse] "
    sSQL = sSQL & "FROM ([En tête] INNER JOIN Production ON [En tête].[N° OZP] = Production.[N° OZP]) INNER JOIN Groupe ON [En tête].[N° Groupe] = Groupe.[N° Groupe] "
    sSQL = sSQL & "GROUP BY [En tête].Date, [En tête].Semaine, [En tête].Equipe, Groupe.Groupe "
    sSQL = sSQL & " HAVING ((([En tête].Semaine) =" & [str] & ")) "
    sSQL = sSQL & "ORDER BY [En tête].Date, [En tête].Equipe, Groupe.Groupe;"
    MsgBox (sSQL)
 
    Set rs = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
    rs.Close

bon j'ai trouver comment exécuter ma requete seulement je ne sais pas suprimer l'objet dans lequel je la met.
Du coup si je reclick sur le bouton ca ne marche pas.
Comment faire pour supprimer l'objet créer?
merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub Commande18_Click()
On Error GoTo Err_Commande18_Click
 
    Dim str As Integer
    str = Me.numsem.Value
    Dim Query As String
    Dim rs As DAO.Recordset
    Dim db As DAO.Database
    Dim sSQL As String
    'db = CurrentDb
 
    sSQL = "SELECT [En tête].Date, [En tête].Semaine, [En tête].Equipe, Groupe.Groupe, Sum(Production.[NB Palette]) AS [SommeDeNB Palette], Sum(Production.[NB Caisse]) AS [SommeDeNB Caisse] "
    sSQL = sSQL & "FROM ([En tête] INNER JOIN Production ON [En tête].[N° OZP] = Production.[N° OZP]) INNER JOIN Groupe ON [En tête].[N° Groupe] = Groupe.[N° Groupe] "
    sSQL = sSQL & "GROUP BY [En tête].Date, [En tête].Semaine, [En tête].Equipe, Groupe.Groupe "
    sSQL = sSQL & " HAVING ((([En tête].Semaine) =" & [str] & ")) "
    sSQL = sSQL & "ORDER BY [En tête].Date, [En tête].Equipe, Groupe.Groupe;"
    MsgBox (sSQL)
 
 
    CurrentDb.CreateQueryDef "testerReq", sSQL
    DoCmd.OpenQuery "testerReq", acViewNormal, acReadOnly
    DoCmd.DeleteObject (acQuery = "testerReq")
 
Exit_Commande18_Click:
Exit Sub
 
Err_Commande18_Click:
MsgBox Err.Description
Resume Exit_Commande18_Click
End Sub

08/01/2010, 17h41
loufab

Y a un truc que je comprends pas :

Tu utilises un docmd avec une syntaxe correcte :

Code:

DoCmd.OpenQuery "testerReq", acViewNormal, acReadOnly

Et de suite après tu inventes une syntaxe pour l'autre Docmd !

Code:

DoCmd.DeleteObject (acQuery = "testerReq")
11/01/2010, 10h06
rob1son76

bonjour,
c'est parce que je ne sait pas détruire ou vider l'objet "testerReq".
Quand je rapuis sur le bouton un message d'erreur apparait me disant que l'objet testerReq existe deja.
Comment puisje le détruire pour pouvoir réutiliser mon objet?
merci
11/01/2010, 10h12
rob1son76

c bon j'ai trouvé la solution.
Maintenant il ne me reste plus qu'a exporter les donnée de cette requete dans une feuille excel.
merci de vous etes penché sur mon probleme.