Remplissage d'une zone de liste avec jeu d'enregistrements et de comparer les dates

Mon programme a 3 champs à savoir le titre, la date de début et date de fin pour l'utilisateur d'entrer. Je veux remplir ma listbox qui est appelé "filteredResults" avec des résultats qui contient des enregistrements avec des tuiles égal à celui entré par l'utilisateur OU qui tombe dans la gamme de la date.

Mai je sais:

1) Comment puis-je remplir la zone de liste avec le jeu d'enregistrements obtenus à partir de la requête?

2) Comment peut-on comparer la date à l'intérieur de la requête?

Merci beaucoup!

Private Sub FilterProj_Click()
Dim title As String, startDate As Date, endDate As Date
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT * FROM Project WHERE  ORDER BY [ProjectId] DESC")
filteredResults.Recordset = rs
InformationsquelleAutor Laughy | 2012-12-30
  1. 9

    Pour La Question 1:

    Remplir directement à partir de la requête:

    Me.mylistbox.rowsource = _
  db.OpenRecordset("SELECT titles FROM Project _
           WHERE title = '" & parameter & "' ORDER BY [ProjectId] DESC")

    Remplir à l'aide d'objet jeu d'enregistrements:

    If (rs.RecordCount <> 0) Then 
   Do While Not rs.EOF
      mylistbox.Items.Add(rs.Fields(0).Value)
      rs.MoveNext()
   Loop
End IF

    Une autre méthode:

    Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim qdf As DAO.QueryDef
Dim strSQL As String

strSQL = "SELECT titles from Projects _
       WHERE title = '" & parameter & "' ORDER BY [ProjectId] DESC"

Set db = CurrentDb
Set qdf = CurrentDb.CreateQueryDef("", strSQL)
qdf.Connect = strConn

Set rs = qdf.OpenRecordset()

Set Me.mylistbox.Recordset = rs

    Question 2:

    Pas très clair. Je suppose que vous avez besoin d'un parameterized requête. Par la fixation d'un utilisateur dans where, and clauses. 

      db.OpenRecordset("SELECT titles FROM Project _ 
      WHERE title = '" & parameter & "' ORDER BY [ProjectId] DESC")

    Ou vous pouvez utiliser la suite de l'article pour définir la parameter dans query design view lui-même.

    • Cette réponse qui fonctionne pour moi à partir de VBA! Merci!
    • heureux vous avez obtenu il a travaillé 🙂
    • Salut, puis-je savoir si l'expression suivante est correcte pour une instruction SQL?SÉLECTIONNEZ p.ProjectId, p.Titre, p.Description, p.Client, p.StartDate, p.EndDate, p.DateCreated, p.Statut, p.ProjectLead DE Projet OÙ p.Titre = '" & pjtName & "' OU ( p.StartDate <= '" & startDate & "' ET p.EndDate >= '" & date_fin & "' ) ORDER BY p.ProjectId DESC;" Sans la date de comparaison , il fonctionne très bien, mais avec lui, il déclenche une "erreur d'Exécution '3464': type de Données incompatible dans l'expression des critères de message". date de début de microsoft, date/heure sélecteur de contrôle et de p.StartDate est une colonne de date dans ma base de données.
    • Vous avez besoin d'envelopper les dates avec #. Essayez ceci pour les deux paramètres de date s'il vous plaît. p.StartDate <= # '" & startDate & "' # AND ... Je suis sur mobile donc pas en mesure de donner un exemple.
    • Check this out, veuillez dbforums.com/microsoft-access/...
    • Ah, je suis en comparant Microsoft Date/Heure sélecteur de contrôle de la valeur avec une date dans un tableau. Je l'ai fait: startDate = Format(Me.ProjStartDate.Valeur, "Date Courte") pour s'assurer que leurs formats sont même déjà. J'ai changé ma requête: strSQL = "SELECT p.ProjectId, p.Titre, p.Description, p.Client, p.StartDate, p.EndDate, p.DateCreated, p.Statut, p.ProjectLead DE Projet OÙ p.Titre = '" & pjtName & "' OU ( p.StartDate <= #'" & startDate & "'# ET p.EndDate >= #'" & date_fin & "'# ) COMMANDE PAR p.ProjectId DESC;" mais il me donne une erreur de syntaxe dans la date dans une expression de requête. Quel est le problème?
    • si vous utilisez un datepicker alors vous avez vraiment pas de quoi s'inquiéter. Vérifier mon post ici. stackoverflow.com/questions/13934705/... BTW ' est pour le paramètre de chaîne et # pour les dates. Je vais donner un coup de feu quand j'arrive devant une machine.
    • Ahhh ça fonctionne maintenant, après la suppression de " et en ajoutant #! Un million de mercis!
    • À tout moment 🙂 Bravo vous avez travaillé 🙂 BTW vérifier sur ce dernier post pour rendre votre vie plus facile si. Lorsque vous utilisez parameterized queries, l'assistant est un aide. Une fois que vous utilisez l'assistant, vous pouvez tout simplement regarder dans l' sql view pour obtenir la requête ainsi.

    InformationsquelleAutor bonCodigo
  2. 3

    Définir la propriété pour votre filteredResults zone de liste à une requête qui utilise une stratégie similaire à cela. 

    SELECT p.ProjectId, p.title, p.date_field
FROM [Project] AS p
WHERE
    p.title = Forms![YourForm]![txtTitle]
    OR
        (
                p.date_field >= Forms![YourForm]![txtStartDate]
            AND p.date_field <= Forms![YourForm]![txtEndDate]
        )
ORDER BY p.ProjectId DESC

    Chaque fois que vous souhaitez mettre à jour le contenu de filteredResults afin de refléter les changements soumis par l'utilisateur, le titre, la date de début et/ou la date de fin, vous pouvez actualiser la liste de la boîte:

    Me!filteredResults.Requery

    Vous pourrait déclencher l'actualisation d'un bouton de commande, ou de la après les événements de mise à jour des zones de texte.

    Remarque j'ai supposé que votre Project table comprend un champ de texte nommé title et un champ Date/Heure nommé date_field. J'ai fait mon propre nom (txtTitle, txtStartDate, txtEndDate) pour les zones de texte. Définir le Format de la propriété "Général" pour txtStartDate et txtEndDate. Remplacer par le nom de votre formulaire pour YourForm.

    • Salut merci pour les explications détaillées! Dans ma table il y a une date de début et date de fin de la colonne, et un Titre de colonne. Dans mon formulaire, je suis en utilisant ActiveX contrôle de l'heure et de la Date picker(SP6) pour obtenir les dates d'entrée de l'utilisateur. Je suis venu avec la requête ci-dessous, mais mon formulaire me donne un "Opérateur Manquant d'Avertissement" à chaque fois que je l'ouvre. Est-ce mal? Merci! SÉLECTIONNEZ p.StartDate, p, p,.Titre, p.date de fin DE [Projet] tel QUE p OÙ p.Title = Formulaires!Recherche par projet!ProjTitle OU ( p.StartDate <= Formulaires!Recherche par projet!ProjStartDate ET p.EndDate >= Formulaires!Recherche par projet!ProjStartDate) COMMANDE PAR p.ProjectId DESC
    • Salut, merci pour vos instructions claires et des conseils! J'ai inclus [Recherche par projet] en elle. Mais maintenant, le formulaire me demande la valeur de p,Formes!Recherche par projet!ProjTitle,Les Formes!Recherche par projet!ProjStartDate,Les Formes!Recherche par projet!ProjEndDate dans une boîte pop up à chaque fois que je l'ouvre!
    • Avec la requête SQL à l'aide de Forms![Search by project]!ProjTitle, je ne peux pas trouver un moyen de faire Accéder à demander Forms!Search by project!ProjTitle en tant que paramètre.
    • Bonjour, merci pour votre aide de toute façon. Je vais poster une autre question concernant le paramètre fenêtre. Votre réponse m'a beaucoup aidé. merci!
    InformationsquelleAutor HansUp