[vb]modifier une requéte

**adrix26** · 12/06/2006, 12h21

Bonjour voila j'aimerais modifié une requéte SQL que j'ai enregistrais auparavant voila un bout du code:

Code :

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

1
2
3
4
5
6
Dim qdf As DAO.QueryDef
Set qdf = CurrentDb.QueryDefs!filtre
qdf.SQL = SQL
Set qdf = Nothing
 
    Forms![Formulaire des procédures].RecordSource = SQL

et donc maintenant j'aimerais réouvrir cette requéte puis enlever le ";" et rajouté des conditions, j'ai essayer ceci mais ça ne marche pas:

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
  Dim stDocName As String
    Dim n As Byte:   n = 1  ' nombre de caractères à supprimer
    Dim cmd As Boolean
    Dim qdf As DAO.QueryDef
    Dim SQL As DAO.Recordset
 
cmd = False
  'référence à la requête
Set qdf = CurrentDb.QueryDefs!filtre
 
Set SQL = qdf.OpenRecordset         '<== pour travailler sur les données
 
If Me.choix_ok Then
 If cmd = True Then
    SQL = SQL & " Or procedure.conclusion = 'OK'"
    Else
    cmd = True
    SQL = Left(SQL, Len(s) - n)
    SQL = SQL & " And (procedure.conclusion = 'OK'"
    End If
End If
 
If Me.marchepas Then
 If cmd = True Then
    SQL = SQL & " Or procedure.conclusion = 'Ne fonctionne pas'"
    Else
    cmd = True
    SQL = Left(SQL, Len(s) - n)
    SQL = SQL & " And (procedure.conclusion = 'Ne fonctionne pas'"
    End If
End If
 
If Me.ameliorer Then
 If cmd = True Then
    SQL = SQL & " Or procedure.conclusion = 'A améliorer'"
    Else
    cmd = True
    SQL = Left(SQL, Len(s) - n)
    SQL = SQL & " And (procedure.conclusion = 'A améliorer'"
    End If
End If
 
If cmd = True Then
    SQL = SQL & ")"
    SQL = SQL & ";"
End If
  'libération de la référence
 
Set qdf = CurrentDb.QueryDefs!filtre2
qdf.SQL = SQL
Set qdf = Nothing
 
 
    stDocName = "filtre"
    DoCmd.OpenReport stDocName, acPreview

**marot_r** · 12/06/2006, 15h31

La clause SQL d'une requète est un chaîne pas un RecordSet.

Dim SQL as string
SQL=qdf.SQL

après tu fais tes modifications à SQL

ensuite tu fais :

set monRecordset=db.openRecordset(SQL)

et tu exploites le recordset.

A+

**adrix26** · 13/06/2006, 10h11

dsl j'ai pas compris je suis débutant, c'est comme ceci?:

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
Dim stDocName As String
    Dim n As Byte:   n = 1  ' nombre de caractères à supprimer
    Dim cmd As Boolean
    Dim qdf As DAO.QueryDef
    Dim SQL As String
    SQL = qdf.SQL
 
 
cmd = False
  'référence à la requête
Set qdf = CurrentDb.QueryDefs!filtre
 
        '<== pour travailler sur les données
 
 
 
If Me.choix_ok Then
 If cmd = True Then
    SQL = SQL & " Or procedure.conclusion = 'OK'"
    Else
    cmd = True
    SQL = Left(SQL, Len(s) - n)
    SQL = SQL & " And (procedure.conclusion = 'OK'"
    End If
End If
 
If Me.marchepas Then
 If cmd = True Then
    SQL = SQL & " Or procedure.conclusion = 'Ne fonctionne pas'"
    Else
    cmd = True
    SQL = Left(SQL, Len(s) - n)
    SQL = SQL & " And (procedure.conclusion = 'Ne fonctionne pas'"
    End If
End If
 
If Me.ameliorer Then
 If cmd = True Then
    SQL = SQL & " Or procedure.conclusion = 'A améliorer'"
    Else
    cmd = True
    SQL = Left(SQL, Len(s) - n)
    SQL = SQL & " And (procedure.conclusion = 'A améliorer'"
    End If
End If
 
If cmd = True Then
    SQL = SQL & ")"
    SQL = SQL & ";"
End If
  'libération de la référence
 
 
  Set qdf = Db.OpenRecordset(SQL)
Set qdf = CurrentDb.QueryDefs!filtre2
qdf.SQL = SQL
Set qdf = Nothing
 
 
 
    stDocName = "filtre"
    DoCmd.OpenReport stDocName, acPreview
 
Exit_Commande6_Click:
    Exit Sub
 
Err_Commande6_Click:
    MsgBox Err.Description
    Resume Exit_Commande6_Click
 
End Sub

**marot_r** · 13/06/2006, 21h04

Je ne comprends pas ce que tu veux faire.

A+

**adrix26** · 14/06/2006, 10h07

Je voudrais ouvrir une requéte qui existe deja (filtre) puis enlever le ";" de la fin pour la modifier dynamiquement par la suite.

et ensuite lancer le résultat obtenu dans un état

**marot_r** · 15/06/2006, 22h36

Pardon du délais.

Je procéderai ainsi :

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
41
42
43
44
45
46
47
48
49
 
private sub OuvrirEtatFiltrer
  dim db as database:set db=currentdb
  dim q as querydef:set q=db.querydefs("filtre")
  dim SQL as string:sql=q.sql
  set q=nothing
 
  sql=left(sql,len(sql)-1):'elève le ; en fin de chaine
 
If Me.choix_ok Then
 If cmd = True Then
    SQL = SQL & " Or procedure.conclusion = 'OK'"
    Else
    cmd = True
    SQL = Left(SQL, Len(s) - n)
    SQL = SQL & " And (procedure.conclusion = 'OK'"
    End If
End If
 
If Me.marchepas Then
 If cmd = True Then
    SQL = SQL & " Or procedure.conclusion = 'Ne fonctionne pas'"
    Else
    cmd = True
    SQL = Left(SQL, Len(s) - n)
    SQL = SQL & " And (procedure.conclusion = 'Ne fonctionne pas'"
    End If
End If
 
If Me.ameliorer Then
 If cmd = True Then
    SQL = SQL & " Or procedure.conclusion = 'A améliorer'"
    Else
    cmd = True
    SQL = Left(SQL, Len(s) - n)
    SQL = SQL & " And (procedure.conclusion = 'A améliorer'"
    End If
End If
 
If cmd = True Then
    SQL = SQL & ")"
    SQL = SQL & ";"
End If
 
    stDocName = "filtre"
    DoCmd.OpenReport stDocName, acPreview,,,,SQL
 
  db.close:set db=nothing
end sub

dans le rapport dans SurOuvreture

Code :

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

1
2
3
4
 
if not isnull(me.openParam) then
   me.source=SQL:'Change la source de donnée selon ce qui est passé en param
end if

Ca doit marché mais normalement on ne procéde pas comme cela.

On fait un rapport basé sur une source de données quelconque puis on passe le filtre dans

DoCmd.OpenReport "monRapport",acPreview,,monFiltre.

A+

**adrix26** · 16/06/2006, 11h45

Merci mais ça veut tourjours pas, j'ai une erreur de compilation il me surligne le "left":

SQL = Left(SQL, Len(SQL) - 1): 'elève le ; en fin de chaine

il doit pas aimé...

**marot_r** · 16/06/2006, 16h52

Non, la syntaxe est correct et Left est une fonction intégrée.

Mets la ligne en commentaire et recompile, l'erreur vient peut-être d'ailleur.

A+

[vb]modifier une requéte

Requêtes et SQL.

Discussions similaires

Partager

Partager