Discussion :

[Jeanpierre71]

Bonjour à tous,
N’étant pas un spécialiste des requetes et de SQL je me heurte à un petit problème. Comment passer en paramètre une variable VBA (string) à une requête création de table ? Dans la FAQ il y a une rubrique mais elle ne pointe sur rien de très concret.

- Je récupère par une liste de choix contenant certains champs d’une première table TZones. La sélection dans la liste ce fait sur un champ string (NomsZones) de la table TZone . La selection faite dans cette liste de choix est récupèré dans une variable ZoneCourante de type string.
- Je lance une requête création de table sur la table TSecteurs (Nom de la table créé = TlisteSecteurs) et je veux extraire de la table TSecteur toute les occurrences de cette table ou TSecteur.[ ZonesAssociées]= ZoneCourante. Ou ZoneAssociées est un champ string de la table TSecteurs. Voilà j’espère avoir été à peu près clair dans mes explications. Sinon n’hésitez pas à me demander plus de renseignements
Je pense que le plus simple et de me donner le filtre à mettre dans la zone critéres : OU Ou : de la requête en mode création. Merci d’avance pour vos réponses.

[marot_r]

Bonjour.

On ne peut pas accéder directement à une variable ou une constante VBA à partir d'une requête mais on peut appeler une fonction VBA dans une requête.

Ici un exemple :

Code :

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

1
2
const UNE_CONSTANTE as string = "Une Constante"
global uneVariable as string

Code :

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

1
2
3
public function LireUneConstante() as string
   LireUneConstante=UNE_CONSTANTE
end function

ou plus direct :

Code :

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

1
2
3
public function UNE_CONSTANTE() as string
   UNE_CONSTANTE="Une Constante"
end function

Code :

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

1
2
3
public function LireUneVariable() as string
   LireUneVariable=uneVariable
end function

Code sql :

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

select [uneTable].*, LireUneConctante() as [uneConstante], lireUneVariable() as uneVariable from [uneTable]

Et n'oublie pas que tu peux aussi récupérer les infos en provenance d'un formulaire ouvert :

Code sql :

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

select [uneTable].*, [forms]![UnForm]![UnChampForm] as [unChampForm] from [uneTable]

A+

[Jeanpierre71]

Merci pour les précieuses infos. J'ai utilé le code ci - dessous mis dans les critéres du champ à filtrer dans le requete (= LaZoneDeRef ) et cela marche !!! 1000 fois merci

Code :

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

1
2
3
4
' Function parametre pour requete creation de table des secteurs attachés à la zone
Public Function LaZoneDeRef() As String             '
   LaZoneDeRef = ZoneCourante
End Function

Derniere petite question subsidiaire. Dans une liste de choix j'ai le message suivant qui apparait (voir ci dessous). Cette liste de choix est bien programmée avec surtout le champ contenu = SELECT Tlistesecteurs.IDListe, Tlistesecteurs.NomsSecteurs FROM TlisteSecteurs; mais je n'arrive pas à supprimer cette fenetre, en faisant simplement OK sans rien saisir, la liste correctement renseignée apparait ?

[marot_r]

Bonjour.

Cela vient généralement d'un nom de champ mal orthographié ou d'un champ manquant dans la source.
Utilise l'éditeur de requête pour créer tes requêtes. C'est généralement BEAUCOUP plus rapide que d'essayer de trouver le bon SQL surtout avec l'éditeur minimaliste fourni par Access.

A+

[Jeanpierre71]

Exact le champ s'appelle IDSecteur et non IDListe. C'est vicieux car il n'y a aucune gestion d'erreur là. Encore merci pour tes précieux renseignements.