Neue Access 2013 - erstellen Möchte ein dynamisches Suchformular
Ich bin neu in Access 2013 und möchte ein Formular erstellen, die es Benutzern ermöglicht, interaktiv Suche eingeben Parameter und die Ergebnisse aufgeführt, die auf der gleichen form, wie mehrere Artikel oder ein Datenblatt.
Dies funktioniert wie eine Suche auf einer web-Seite:
Benutzer geben Sie die Suchkriterien ein und klicken Sie auf Schaltfläche suchen. Ein data-grid zeigt die Ergebnisse. Jedes mal, wenn der Benutzer wieder in den Suchkriterien, die Daten-grid wird neu geladen, die mit den Abfrage-Ergebnissen. Es ist wichtig, dass die Benutzer nicht erforderlich, um zu starten, ein Formular geben Sie die Kriterien ein und finden Sie die Ergebnisse auf ein anderes Formular. Alles sollte getan werden, in der gleichen form.
Meine Fragen sind:
- Wenn ich mit VBA verarbeiten das click-Ereignis und führen Sie die Abfrage, ist es möglich, programmgesteuert die Kontrolle Quelle für ein Datenblatt oder mehrere Elemente an das neue Abfrage-Ergebnis?
InformationsquelleAutor Doug Kimzey | 2013-05-18
Du musst angemeldet sein, um einen Kommentar abzugeben.
Die Methode, die ich verwendet, um eine dynamische Suche nach der form:
Erstellen eines Access-Formulars auf Aufforderung zur Eingabe der such-Parameter. Bergwerk Bestand aus zwei Textboxen mit format eingestellt Datum. (Ich möchte die Liste alle Zeilen, die zwischen einem start-und Ende-Datum), ein ungebundenes Listenfeld für die Ergebnisse und ein Befehl-Taste, um den Suchvorgang zu starten.
Erstellen einer Access-Abfrage, verwendet die Kriterien festlegen, die auf die Start-und End-text-Felder auf der Suchmaske. Der name des Feldes, das ich verwenden möchte ist benannt EventDate. In der QBE -, habe ich den Eintrag Kriterien für die EventDate-Feld:
Zwischen [Forms]![frmSimpleSearch]![txtStartDate] Und [Forms]![frmSimpleSearch]![txtEndingEventDate]
Für das Click-Ereignis der Schaltfläche Suchen, ich verwende den folgenden code:
Private Sub cmdSearch_Click()
' Suche für alle Ereignisse, die zwischen start-und end-Datum
lstResults.RowSource = "qryEventsInDateRange"
lstResults.Requery
End Sub
InformationsquelleAutor Doug Kimzey