Comment voulez-vous créer une requête paramétrée dans MS Access 2003 et utiliser d'autres requêtes et des formulaires à remplir les paramètres et d'obtenir un jeu de résultats

Références aux contrôles sur le formulaire peut être utilisé directement dans les requêtes Access, mais il est important de les définir en tant que paramètres (dans le cas contraire, les résultats dans les versions récentes d'Accès peut être imprévisible, où ils ont été une fois fiable).

Par exemple, si vous souhaitez filtrer une requête par le contrôle de Nom sur le Formulaire, il vous suffit d'utiliser ce que vos critères:

LastName = Forms!MyForm!LastName

Vous devez alors définir la forme de référence comme paramètre. Le SQL qui en résulte pourrait ressembler à quelque chose comme ceci:

PARAMETERS [[Forms]!MyForm![LastName]] Text ( 255 );
SELECT tblCustomers.*
FROM tblCustomers
WHERE tblCustomers.LastName=[Forms]![MyForm]![LastName];

Je voudrais, toutefois, se demander pourquoi vous avez besoin d'avoir une requête enregistrée à cet effet. Que faites-vous des résultats? De les afficher dans un formulaire ou un état? Si oui, vous pouvez le faire dans la propriété Recordsource du formulaire de rapport et de laisser votre requête enregistrée épargnée par les paramètres, de sorte qu'il peut être utilisé dans d'autres contextes sans éclater les instructions pour remplir les paramètres.

D'autre part, si vous êtes en train de faire quelque chose dans le code, il suffit d'écrire du SQL à la volée et d'utiliser la valeur littérale de la forme de contrôle pour la construction de votre clause where.

OriginalL'auteur David-W-Fenton

Il y a trois façons de faire traditionnelles pour obtenir autour de cette question:

1. Nom du paramètre quelque chose cleaver, de sorte que l'utilisateur sera invité à entrer la valeur lors de l'exécution de la requête.
2. Champ de référence sur un formulaire (éventuellement cachée)
3. Construire la requête à la volée, et de ne pas utiliser des paramètres.

Je pense que c'est juste mauvais pour moi que vous ave à injecter quelque chose comme [?enter ISO code of the country] ou les références à des champs de votre formulaire comme : [Forms]![MyForm]![LastName].

Cela signifie que nous ne pouvons pas réutiliser la même requête dans plus d'un endroit, avec les différents champs de la fourniture de données ou de se fier à l'utilisateur de ne pas encrasser la saisie de données lors de l'exécution de la requête. Je me souviens, il peut être difficile d'utiliser la même valeur plus d'une fois avec l'utilisateur saisie pour le paramètre.

Habituellement j'ai choisi la dernière option, un construit la requête à la volée, et la mise à jour de la requête de l'objet en tant que de besoin. Cependant, c'est monnaie courante pour une attaque par injection SQL (accidentelle ou sur le but de savoir que mes utilisateurs), et c'est juste dégueulasse.

J'ai donc fait quelques recherches et j'ai trouvé celui-ci ici (http://forums.devarticles.com/microsoft-access-development-49/pass-parameters-from-vba-to-query-62367.html):

'Ed. Start - for completion of the example
dim qryStartDate as date
dim qryEndDate as date
qryStartDate = #2001-01-01# 
qryEndDate = #2010-01-01#   
'Ed. End

'QUOTEING "stallyon": To pass parameters to a query in VBA 
'                     is really quite simple:

'First we'll set some variables:
Dim qdf As Querydef
Dim rst As Recordset

'then we'll open up the query:
Set qdf = CurrentDB.QueryDefs(qryname)

'Now we'll assign values to the query using the parameters option:
qdf.Parameters(0) = qryStartDate
qdf.Parameters(1) = qryEndDate

'Now we'll convert the querydef to a recordset and run it
Set rst = qdf.OpenRecordset

'Run some code on the recordset
'Close all objects
rst.Close
qdf.Close
Set rst = Nothing
Set qdf = Nothing

(Je n'ai pas testé moi-même, juste quelque chose que j'ai recueillis au cours de mes voyages, car à chaque fois dans un certain temps, j'ai voulu faire cela, mais il a fini à l'aide de l'un de mes mentionné précédemment kludges)

Modifier
J'ai enfin eu l'occasion de les utiliser. Voici le code réel.

'...
Dim qdf As DAO.QueryDef
Dim prmOne As DAO.Parameter
Dim prmTwo As DAO.Parameter
Dim rst as recordset
    '...
    'open up the query:
    Set qdf = db.QueryDefs("my_two_param_query") 'params called param_one and 
                                                 'param_two

    'link your DAP.Parameters to the query
    Set prmOne = qdf.Parameters!param_one
    Set prmTwo = qdf.Parameters!param_two

    'set the values of the parameters
    prmOne = 1 
    prmTwo = 2

    Set rst = qdf.OpenRecordset(dbOpenDynaset, _
                                            dbSeeChanges)
    '... treat the recordset as normal

    'make sure you clean up after your self
    Set rst = Nothing
    Set prmOne = Nothing
    Set prmTwo = Nothing
    Set qdf = Nothing

OriginalL'auteur BIBD

la méthode facile est ici Microsoft 'setparameter' info page

DoCmd.SetParameter "frontMthOffset", -3
DoCmd.SetParameter "endMthOffset", -2
DoCmd.OpenQuery "QryShowDifference_ValuesChangedBetweenSELECTEDMonths"

où le SQL de la requête Access comprend [frontMthOffset] en fait, dans le SQL.
par exemple,

"select blah from mytable where dateoffset=[frontMthOffset]"

Ça marche, tout simplement!

OriginalL'auteur Mart