probleme excécution de requête

**rob1son76** · 08/01/2010, 10h52

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 :

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

**loufab** · 08/01/2010, 11h15

Bonjour,

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

Cordialement,

**rob1son76** · 08/01/2010, 13h15

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

**loufab** · 08/01/2010, 14h06

A besoin plus simple réponse plus rapide.

Tu peux modifier ton code de la sorte.

Code :

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

   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.

**rob1son76** · 08/01/2010, 14h42

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 :

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

**rob1son76** · 08/01/2010, 15h55

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 :

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

**loufab** · 08/01/2010, 17h41

Y a un truc que je comprends pas :

Tu utilises un docmd avec une syntaxe correcte :

Code :

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

DoCmd.OpenQuery "testerReq", acViewNormal, acReadOnly

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

Code :

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

DoCmd.DeleteObject (acQuery = "testerReq")

**rob1son76** · 11/01/2010, 10h06

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

**rob1son76** · 11/01/2010, 10h12

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.

probleme excécution de requête

IHM

Discussions similaires

Partager

Partager