[Access97] Recherche avec l'option "tous" (zone de liste modifiable)

Recherche avec l'option "tous" (zone de liste modifiable) [Access97] - SQL/NoSQL - Programmation

Marsh Posté le 14-04-2004 à 12:17:49    

Bonjour, je suis actuellement en traind e crée une bdd sous Access 97 et je débute. J'ai un petit souci sur une partie de ma base et je voudrais savoir si l'un d'entre vous pourrais m'aider.
 
Je souhaite créer un formulaire qui me permet de modifier une requête à partir d'une zone de liste modifiable qui va chercher ces valeurs dans une autre requête.
 
Cependant dans cette zone de liste modifiable, je souhaiterais inclure l'option "Tous" pour permettre l'affichage de toutes les données présente dans la requête.
 
Voici ce que j'ai essayé pour le moment:
Dans ma requête qui doit être modifié (Req2), j'ai mi le critère suivant pour un des champs:
[Formulaires]![Form1]![txt2]
Form1 est le formulaire qui me permet de modifier ma requete
txt2 est le controle qui va me permettre de changer le critère
 
Donc dans Form1, j'ai crée une zone de liste modifiable ZdL1 dans laquelle je vais chercher des valeur provenant d'une autre requete (Req1), et en plus des valeurs provenant de cette requête, je voudrais rajouté "Tous", pour cela j'ai mis comme contenu de ZdL1 la ligne suivante:
SELECT DISTINCT [Req1].[txt1] FROM [Req1] union select "<<Tous>>"as [txt1] From [Req1]
Req1 est la requête dans laquelle ZdL1 va chercher ces valeurs
txt1 est le champ de Req1 ou je vais chercher mes valeurs
 
Ensuite dans Form1, j'ai créé une zone de txt (txt2) qui contient les valeurs qui vont me permettre de modifier Req2. Pour txt2, j'ai mis le code suivant:

Code :
  1. Private Sub ZdL1_AfterUpdate()
  2. If ZDL1 = "<<Tous>>" Then
  3. txt2 = "Is Not Null"
  4. Else
  5. txt2 = ZdL1
  6. End If
  7. End Sub


 
Le problème c'est que le "Is Not Null" ne passe pas. J'ai donc essayé de le remplacer par "Like "*"", mais Like est une fonction de VB, donc ca marche pas non plus. Donc si vous savez comment ecrire cette ligne de code pour que Req2 affiche tout les enregistrements, merci.
 
P.S: Après relecture, je sais pas si mon message est bien clair. Mais si vous souhaitez des précisions, il n'y a pas de problème.

Reply

Marsh Posté le 14-04-2004 à 12:17:49   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed