Discussion :

[zouhenlai]

Bonjour,

Je souhaiterais combiner les 3 :
- avoir dans un formulaire un groupe d'option (1,2,3)
- avoir une requête paramétrée (respectivement en valeur 1 et 2; 0;1,2et0)
- le tout executable en VBA. Le nom de la requête est un recordset.

ce qui me donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Select Case ChoixTypeEcriture
 
Case 1
    DoCmd.OpenQuery Monrecordset1!RqBrouillardCG.Value, , , "TypeEcriture = 1 Or 2"
Case 2
    DoCmd.OpenQuery Monrecordset1!RqBrouillardCG.Value, , , "TypeEcriture = 0"
Case 3
    DoCmd.OpenQuery Monrecordset1!RqBrouillardCG.Value
 
End Select

je sèche !

merci beaucoup

[helas]

On peut faire simple avec

Code :

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

1
2
3
 
 sql = "SELECT ......  WHERE  TypeEcriture = " & ChoixTypeEcriture
 DoCmd.RunSQL s

par exemple

[Jean-Philippe André]

salut,
ou alors garder cette méthodo mais en écrivant convenablement la partie critère :

Code :

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

1
2
3
4
5
6
7
8
9
10
Select Case ChoixTypeEcriture
 
Case 1
    DoCmd.OpenQuery Monrecordset1!RqBrouillardCG.Value, , , "TypeEcriture = 1 Or TypeEcriture = 2"
Case 2
    DoCmd.OpenQuery Monrecordset1!RqBrouillardCG.Value, , , "TypeEcriture = 0"
Case 3
    DoCmd.OpenQuery Monrecordset1!RqBrouillardCG.Value
 
End Select

[helas]

d'autant plus que runsql ne fonctionne qu'avec des requêtes actions

[zouhenlai]

salut,
ou alors garder cette méthodo mais en écrivant convenablement la partie critère :

Code :

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

1
2
3
4
5
6
7
8
9
10
Select Case ChoixTypeEcriture
 
Case 1
    DoCmd.OpenQuery Monrecordset1!RqBrouillardCG.Value, , , "TypeEcriture = 1 Or TypeEcriture = 2"
Case 2
    DoCmd.OpenQuery Monrecordset1!RqBrouillardCG.Value, , , "TypeEcriture = 0"
Case 3
    DoCmd.OpenQuery Monrecordset1!RqBrouillardCG.Value
 
End Select

Salut,

Ca ne marche pas

"Nombre d'arguments incorrects ou affectation de propriété incorrecte"

Je précise que c'est une requête ajout, et que derrière il y a deux requetes sélection dont un possède ce fameux champ "typeEcriture", champ qui est bien sûr récupéré au niveau de la requête ajout

je vais devenir chèvre...

[Jean-Philippe André]

ok,
et si tu nous donnais le code sql de la requete que tu comptes ouvrir stp ?

Ca fait un peu jeu de devinettes sinon

[zouhenlai]

ok,
et si tu nous donnais le code sql de la requete que tu comptes ouvrir stp ?

Ca fait un peu jeu de devinettes sinon

oui Chef !

Code :

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

1
2
3
4
5
 
INSERT INTO DONNEES_CG ( oidPIECE, [date], comptegen, montant, société, référence, referenceOrigine, typeEcriture )
SELECT SOCIETEX_VUE_COMPTEGEN.oid, SOCIETEX_VUE_COMPTEGEN.dateReference, SOCIETEX_VUE_COMPTEGEN.codeCompte, SOCIETEX_VUE_COMPTEGEN.Solde, SOCIETEX_dbo_TETABLISSEMENT.code AS codeE, SOCIETEX_VUE_COMPTEGEN.reference, SOCIETEX_VUE_COMPTEGEN.referenceOrigine, SOCIETEX_VUE_COMPTEGEN.typeEcriture
FROM SOCIETEX_dbo_TETABLISSEMENT INNER JOIN SOCIETEX_VUE_COMPTEGEN ON SOCIETEX_dbo_TETABLISSEMENT.oid = SOCIETEX_VUE_COMPTEGEN.oidEtablissement
GROUP BY SOCIETEX_VUE_COMPTEGEN.oid, SOCIETEX_VUE_COMPTEGEN.dateReference, SOCIETEX_VUE_COMPTEGEN.codeCompte, SOCIETEX_VUE_COMPTEGEN.Solde, SOCIETEX_dbo_TETABLISSEMENT.code, SOCIETEX_VUE_COMPTEGEN.reference, SOCIETEX_VUE_COMPTEGEN.referenceOrigine, SOCIETEX_VUE_COMPTEGEN.typeEcriture;

l'est-y pas joli mon sql ?

[Jean-Philippe André]

ok,
donc là tu demandes à ouvrir une requête action

pourquoi ne pas passer par une chaine de caractères ?

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
Dim strSQL As String
Dim Criteria As String
 
Select Case ChoixTypeEcriture
 
Case 1
    Criteria = "TypeEcriture = 1 Or TypeEcriture = 2"
Case 2
     Criteria = "TypeEcriture = 0"
Case 3
    Criteria = "1"
 
End Select
 
strSQL = "INSERT INTO DONNEES_CG ( oidPIECE, [date], comptegen, montant, société, référence, referenceOrigine, typeEcriture ) "  & _
"SELECT SOCIETEX_VUE_COMPTEGEN.oid, SOCIETEX_VUE_COMPTEGEN.dateReference, " & _ 
"SOCIETEX_VUE_COMPTEGEN.codeCompte, SOCIETEX_VUE_COMPTEGEN.Solde, SOCIETEX_dbo_TETABLISSEMENT.code " & _ 
"AS codeE, SOCIETEX_VUE_COMPTEGEN.reference, SOCIETEX_VUE_COMPTEGEN.referenceOrigine, SOCIETEX_VUE_COMPTEGEN.typeEcriture " & _
"FROM SOCIETEX_dbo_TETABLISSEMENT INNER JOIN SOCIETEX_VUE_COMPTEGEN ON SOCIETEX_dbo_TETABLISSEMENT.oid = SOCIETEX_VUE_COMPTEGEN.oidEtablissement " & _
" WHERE " & Criteria & " " & _
"GROUP BY SOCIETEX_VUE_COMPTEGEN.oid, SOCIETEX_VUE_COMPTEGEN.dateReference, SOCIETEX_VUE_COMPTEGEN.codeCompte, " & _
"SOCIETEX_VUE_COMPTEGEN.Solde, SOCIETEX_dbo_TETABLISSEMENT.code, SOCIETEX_VUE_COMPTEGEN.reference, " & _
"SOCIETEX_VUE_COMPTEGEN.referenceOrigine, SOCIETEX_VUE_COMPTEGEN.typeEcriture;"
 
CurrentDb.Execute strSQL