Access 97 vers 2000, transformation du critère de la requête

**joker vb** · 09/02/2006, 10h15

Salut à tous,

L'appli est passée de 97 à 2000, mais g un problème avec une requête ajout car le critère de 97 ne passe plus.

En mode création, j'avais :

Comme VG_FILTRE_PRORIETES("Dialogue filtre propriété/tbdf")

J'ai modifié :

Comme [Formulaires]![Dialogue filtre propriétés/tbdf]![VG_FILTRE_PROPRIETES]

j'ai aussi essayé :

Comme [Formulaires]![VG_FILTRE_PROPRIETES]![Dialogue filtre propriétés/tbdf]

Mais à chaque fois, une fenêtre : Entrer la valeur du paramètre/Formulaire!Dialogue filtre apparait, si je saisi tbdf cela semble fonctionner(mais je n'en suis pas certain), cela dit sous 97 cette fenêtre n'apparraissait pas.

Pour les adeptes du SQL...

sous97:

Code :

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

1
2
3
4
INSERT INTO PARFOR03ACTU ( NUMFOR, PROFOR, DCREAR, NATFOR, CLASS, CULSPE, CONTEN, AGEFOR )
SELECT DISTINCTROW PARFOR03.NUMFOR, PARFOR03.PROFOR, PARFOR03.DCREAR, PARFOR03.NATFOR, PARFOR03.CLASS, PARFOR03.CULSPE, PARFOR03.CONTEN, PARFOR03.AGEFOR
FROM PARFOR03
WHERE (((PARFOR03.PROFOR) Like VG_FILTRE_PROPRIETES("Dialogue filtre propriété/tbdf")));

sous2000:

Code :

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

1
2
3
4
INSERT INTO PARFOR03ACTU ( NUMFOR, PROFOR, DCREAR, NATFOR, CLASS, CULSPE, CONTEN, AGEFOR )
SELECT DISTINCTROW PARFOR03.NUMFOR, PARFOR03.PROFOR, PARFOR03.DCREAR, PARFOR03.NATFOR, PARFOR03.CLASS, PARFOR03.CULSPE, PARFOR03.CONTEN, PARFOR03.AGEFOR
FROM PARFOR03
WHERE (((PARFOR03.PROFOR) Like [Formulaires]![Dialogue filtre propriété/tbdf]![VG_FILTRE_PROPRIETES]));

ou

Code :

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

1
2
3
4
INSERT INTO PARFOR03ACTU ( NUMFOR, PROFOR, DCREAR, NATFOR, CLASS, CULSPE, CONTEN, AGEFOR )
SELECT DISTINCTROW PARFOR03.NUMFOR, PARFOR03.PROFOR, PARFOR03.DCREAR, PARFOR03.NATFOR, PARFOR03.CLASS, PARFOR03.CULSPE, PARFOR03.CONTEN, PARFOR03.AGEFOR
FROM PARFOR03
WHERE (((PARFOR03.PROFOR) Like [Formulaires]![VG_FILTRE_PROPRIETES]![Dialogue filtre propriété/tbdf]));

Merci

**ypicot** · 09/02/2006, 17h08

A prioris, ta deuxième solution est la bonne.

Est-ce que ton formulaire VG_FILTRE_PRORIETES est ouvert ? Qu'est-ce que tu as dans le contrôle Dialogue filtre propriété/tbdf ? Est-ce que la valeur est compatible avec le champ PROFOR ?

**joker vb** · 09/02/2006, 17h43

non le formulaire VG_FILTRE_PROPRIETE n'est pas ouvert lors de cette procédure, en fait ce formulaire sert ailleurs. Mais ici la procédure est une macro qui fait tourner un certain nombre de requêtes.

Moi ce que je comprends (ce n'est peut être pas ça) c que celui qui a écrit cela voulait que la sélection se fasse comme dans VG_FILTRE_PROPRIETE

Je suis allé ouvrir ce formulaire en mode création et g récupéré sa pour la liste modifiable

Code :

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

SELECT DISTINCTROW PARCAD02.PROPRI FROM PARCAD02 ORDER BY PARCAD02.PROPRI

Est-ce bien la réponse à ta question?

**joker vb** · 09/02/2006, 17h45

moi je ne veux pas que la fenêtre : Entrer la valeur du paramètre/Formulaire!Dialogue filtre s'affiche, tout doit se calculer seul

**ypicot** · 09/02/2006, 17h49

Il faut que ton formulaire soit ouvert si tu veux que la valeur qu'il contient soit utilisée.

Sinon, il faut utiliser une fonction qui retourne la valeur qui t'interesse, mais cela réclame un peu de VBA.

Yvan

**Arkham46** · 09/02/2006, 17h54

slt,

apparemment VG_FILTRE_PROPRIETES est également une fonction...

à voir ce qu'il y a dans cette fonction, sans doute qu'elle lisait le champ du formulaire et que s'il était fermé elle faisait autre chose...

**joker vb** · 09/02/2006, 18h14

une fonction... Commed du code?? je ne suis pas allé voir, j'irais alors, mais normallement le code ne se modifie pas entre 97 et 2000, si?
ouïe, aïe, aïe

**joker vb** · 09/02/2006, 18h20

mais avant ça marchait, c ça que je ne comprends pas, et g vérifié y'a bien un code VG_FILTRE

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
Option Base 0
Option Compare Database   'Utilise l'ordre de la base pour les comparaisons de chaînes
Option Explicit
 
Function VG_FILTRE_PROPRIETES(pnomformulaire As String) As String
 
Dim li       As Integer
Dim lnombre  As Integer
Dim lcritere As String
 
lcritere = "*"
lnombre = Forms.Count
If lnombre > 0 Then
  li = 0
  Do
    If Forms(li).Name = pnomformulaire Then
      lcritere = Forms(pnomformulaire)![VG_PROPRIETE]
      li = lnombre
    Else
      li = li + 1
    End If
  Loop While li <> lnombre
End If
 
VG_FILTRE_PROPRIETES = lcritere
 
End Function

merci pour votre aide

**Arkham46** · 09/02/2006, 18h33

mais avant ça marchait, c ça que je ne comprends pas

mais avant, la SQL appelait la fonction et cet appel a été retiré de la version 2000...

**joker vb** · 09/02/2006, 18h38

LA PO COMPRIS ta remarque, mais que dois je changer dans le SQL pour qu'il appel à nouveau la fonction?? Suis novice moi, et dois bien avouer que je nage (en apnéee)

**ypicot** · 09/02/2006, 18h46

Vérifie si cette fonction existe toujours dans la version 2000.

Vérifie également ce que retourne la fonction, avec qque chose genre

Code :

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

1
2
3
4
5
6
  Loop While li <> lnombre
End If
 
Debug.Print lcritere
 
VG_FILTRE_PROPRIETES = lcritere

Yvan

**joker vb** · 09/02/2006, 18h52

Bah actuellemnt ce qu'il y a sur la version 2000 c ce que g expliqué plus au :

requête

Code :

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

1
2
3
4
INSERT INTO PARFOR03ACTU ( NUMFOR, PROFOR, DCREAR, NATFOR, CLASS, CULSPE, CONTEN, AGEFOR ) 
SELECT DISTINCTROW PARFOR03.NUMFOR, PARFOR03.PROFOR, PARFOR03.DCREAR, PARFOR03.NATFOR, PARFOR03.CLASS, PARFOR03.CULSPE, PARFOR03.CONTEN, PARFOR03.AGEFOR 
FROM PARFOR03 
WHERE (((PARFOR03.PROFOR) Like [Formulaires]![Dialogue filtre propriété/tbdf]![VG_FILTRE_PROPRIETES]));

et VB :

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
Option Base 0 
Option Compare Database   'Utilise l'ordre de la base pour les comparaisons de chaînes 
Option Explicit 
 
Function VG_FILTRE_PROPRIETES(pnomformulaire As String) As String 
 
Dim li       As Integer 
Dim lnombre  As Integer 
Dim lcritere As String 
 
lcritere = "*" 
lnombre = Forms.Count 
If lnombre > 0 Then 
  li = 0 
  Do 
    If Forms(li).Name = pnomformulaire Then 
      lcritere = Forms(pnomformulaire)![VG_PROPRIETE] 
      li = lnombre 
    Else 
      li = li + 1 
    End If 
  Loop While li <> lnombre 
End If 
 
VG_FILTRE_PROPRIETES = lcritere 
 
End Function

Y'a tout là y'a rien d'autre à ajouter

**ypicot** · 09/02/2006, 19h06

et bien ajoute le debug.print comme indiqué ci-dessus.
Regarde le résultat dans la fenêtre d'exécution.

**Arkham46** · 09/02/2006, 19h13

En mode création, j'avais :

Comme VG_FILTRE_PRORIETES("Dialogue filtre propriété/tbdf")

J'ai modifié :

Comme [Formulaires]![Dialogue filtre propriétés/tbdf]![VG_FILTRE_PROPRIETES]

ben voilà, tu as retiré la fonction du SQL....

pourquoi avoir changé le critère?
c'est normal que ça ne marche plus

**joker vb** · 10/02/2006, 08h52

ben voilà, tu as retiré la fonction du SQL....

pourquoi avoir changé le critère?
c'est normal que ça ne marche plus

Arkham46, je ne comprends pas ce que tu me dis, si j'ai changé la fonction c que ça ne marchait plus, je ne me serais pas pris la tête à changer sinon.
Si je l'écrit comme c'était sous 97 ça bug encore plus.

Par contre ypicot, j'avais pas vu la modif que tu proposais, milles excuses

**joker vb** · 10/02/2006, 09h22

Ypicot,

J'ai essayé d'ajouter Debug.Print mais en fait l'action échoue exactement comme avec l'ancien SQL dans 97:

L'action a choué
Nom macro = AutoExec.Index
Condition=vrai
Nom action=ouvrir requête
Arguments= Saisie de PARFORO03 ACTU NUMFOR/PROFOR; feuille de données; Modification

**ypicot** · 10/02/2006, 09h26

Et qu'est-ce que tu as dans la fenêtre d'execution ?

**joker vb** · 10/02/2006, 11h02

Comme fenêtre ouverte? C ça que tu me ddes? Bah en fait rien sinon un SIG (système d'information géographique)

**ypicot** · 10/02/2006, 11h04

Non, la fenêtre d'exécution est une fenêtre accessible à partir de l'environement VBA
- tu vas dans le visual basic editor (ou tu ouvres un module, je ne sais plus exactement dans access 2000)
- tu regardes si tu as une fenêtre qui s'appelle "exécution"
- si ce n'est pas le cas, tu l'affiches (menu affichage)

Yvan

**Arkham46** · 10/02/2006, 11h38

si j'ai changé la fonction c que ça ne marchait plus

ça je comprend bien mais :

Code :

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

[Formulaires]![Dialogue filtre propriété/tbdf]![VG_FILTRE_PROPRIETES]));

signifie que tu demandes la valeur du champ VG_FILTRE_PROPRIETES du formulaire Dialogue filtre propriété/tbdf

alors que la fonction renvoyait le champ VG_PROPRIETE (et en plus gérait le cas où la formulaire est fermé)

si tu veux le même comportement (fonctionne avec ou sans le formulaire ouvert) il faut essayer de faire fonctionner la fonction, ça devrait pas être bien compliqué

Si je l'écrit comme c'était sous 97 ça bug encore plus

ça veut dire quoi "ça bug encore plus"?
c'est encore plus faux que quand c'est pas juste?