Office: (Office 2010) Code gefragt

Hallo,
hätte eine Frage zum Thema filtern auf Knopfdruck.
Habe eine Mini DB mit 2 Tabellen, einer Abfrage und drei Formularen.
In einem der Formulare kann ich nach Belieben DS filtern und anzeigen lassen.
Z.B. nach bestimmten Kriterien, Text, oder Datum.
Soweit ok.
Meine Idee war jetzt, DS nach Datum (ein Zeitraum von bis) zu filtern.
Das mache ich derzeit mit entsprechenden Textfeldern und den zugehörigen Codes- ( die hatte ich hier aus dem Forum)

Jetzt ist die Frage, ich wollte für die Quartale 1 bis 4 2020 je ein Button
mit einem Code versehen welcher mir dann sofort das Filterergebnis zeigt.
Z.B. 01.01.2020 bis 30.04.2020.
Mit einer separaten Abfrage würde das Filtern locker gehen, weiß ich.

Wie aber funktioniert das mit dem Datum im Code?
Das Datumsfeld in meiner DB nennt sich "Buch_Datum".

Lässt sich sowas überhaupt in einem VBA Code unterbringen bzw. formulieren?
Codes sind halt meine Schwäche, daher frage ich lieber mal nach.

Gruss

:)

 

Ja,
schau mal nachhttps://support.microsoft.com/de-de/...5-6001372223fa der DatePart-Funktion:

 

Aha, dann wäre das Datepart "q"

Das Beispiel auf der verlinkten Seite werkelt aber mit einer MSG Box.
Sowas brauche ich nicht.
Wie muss der Code aussehen mit dem Parameter "datepart "q" ??
Das würde mir dann schon genügen.

 

Na ja, das ist doch nur ein Beispiel!

Wie sieht denn Dein VBA-Code bei der bisherigen Filterung (von-bis) aus?

 

Melde mich später, bin zu Besuch

 

So, hier der gewünschte Code.
Dieser ist als Ereignis für eine Schaltfläche beim klicken hinterlegt.Dazu gehören 2 Textfelder:
Txt_Datum_Ab und Txt_Datum_bis.
Das geht alles sehr gut.
Was ich vor habe ist klar oder?
4 Schaltflächen- für jedes QUARTAL eine, die soll auf Knopfdruck das gewünschte Quartal filtern.
Ein weiterer Button soll den Filter löschen können, aber das krieg ich sicher selber zustande.

Hilft der Code denn ? Ich glaube kaum.

PHP:

         Private Sub cmd_Daten_zuweisen_Click()
Dim str_SQL As String
Dim str_Datum_Ab As String ' zur Umformatierung
Dim str_Datum_Bis As String
If IsNull(Me.txt_Datum_Ab) Then
Me.txt_Datum_Ab.SetFocus
Exit Sub
End If
If IsNull(Me.txt_Datum_Bis) Then
Me.txt_Datum_Bis.SetFocus
Exit Sub
End If
str_Datum_Ab = Format(Me.txt_Datum_Ab, "#mm/dd/yyyy#") '
str_Datum_Bis = Format(Me.txt_Datum_Bis, "#mm/dd/yyyy#")
str_SQL = "SELECT QryBikestrecken.* " & _
"FROM   QryBikestrecken " & _
"WHERE  (((Buch_Datum) Between " & str_Datum_Ab & " And " & str_Datum_Bis & ")) " & _
"ORDER BY Buch_Datum;"

Me.cmd_Daten_zuweisen.Caption = "Daten vom " & Me.txt_Datum_Ab.Value & " bis " & Me.txt_Datum_Bis.Value & "  anzeigen"
Me.RecordSource = str_SQL
Me.Requery
Me.txt_Datum_Ab = Null
Me.txt_Datum_Bis = Null
End Sub


 

Hallo Volker,

wenn du doch schon Code hast, der für ein Startdatum und ein Endedatum funktioniert, könnte diesen als Sub mit Parametern umbauen, der diese beiden Daten übergeben werden.

Somit bräuchte man nur bei den Buttons jeweils die Datumsbereiche festlegen und dann diese an die Prozedur als Argumente übergeben.

Auch die Quartale zu bestimmen, sollte jetzt nicht so schwer fallen. Beginn und Ende sind ja bekannt.

Gruß Ulrich

 

Punktgenau erklärt. Nur, machen ist halt etwas anderes als sagen wie es werden soll. Ich kann nix mit codes. Ist nicht meine Welt.
Und so umfangreich wie gepostet kann der Code sicher nicht sein.
Für Kenner ein klacks. Für mich nicht lösbar.

 

Hallo,
Du hast ja nur ein Datumsfeld "Buch_Datum", daraus kannst Du doch das zugehörige Quartal ermitteln und dann danach filtern. Wie das gehen kann, habe ich in einer kleinen Datenbank umgesetzt. Das Quartal ermittelt eine kleine selbstgestrickte Funktion. Im Filterformular sind 4 Buttons mit den entsprechenden Quartalen, die beim Klicken den Filter auslösen. Das aktuelle Jahr ist in der Abfrage fest eingegeben, könnte aber über ein Kombifeld ebenfalls ausgewählt werden.
Gruß Thomas

 

Hallo Volker,

Parameterübergabe an Prozeduren/Funktionen sind Grundlagen der VBA-Programmierung. Wenn du mit Access arbeiten möchtest, sehe ich keine andere Möglichkeit, als sich auch damit zu beschäftigen. Entsprechende Tutorials für Einsteiger gibt es zur genüge, z.B.
(Visual Basic für Applikationen - Das VBA-Tutorial)
und außerdem gibt es entsprechende Fachbücher, die sich mit dem Thema beschäftigen.

Ich habe dir einen möglichen Lösungsweg aufgezeigt, aber umsetzen müsstest du das schon selber. Wenn sich dann dabei weitere Probleme ergeben, kannst du ja gerne nochmal nachfragen.

Ulrich

 

Eine einzige Frechheit. *mad.gif* *mad.gif* Wer sich so daneben benimmt hat hier nichts zu suchen und schon gar nicht Unterstützung zu erwarten.

 

\@elmar:

? Verstehe nicht ganz Deine Reaktion.......?

 

Dann lese doch mal Wort für Wort das, was von ihm in #8 geschrieben wurde.

 

\@Jan
Konntest du mit dem Code in #6 etwas herauslesen?
.-
Was den Post 8 betrifft aus meiner Sicht folgendes:
Wenn man in einem Fachforum als Normal Nutzer Hilfe sucht, sollten die Power User oder Experten
hier das mal aus der Perspektive des Normal Users sehen, das kann doch nicht so schwer sein.
Wenn Ärzte zum Beispiel, sich Fachbegriffe um die Ohren hauen, versteht ein Patient davon Null.
Wenn dann ein Arzt vom Patienten verlangen würde schlaue Bücher über Medizinwissenschaften zu studieren bevor
man ihn in seiner Praxis "belästigt"......dann ist das ungefähr so wie man hier oft einfache Anwender heruntermacht.
Das scheint aber hier Gang und Gebe zu sein, wenn man sich manche Beiträge von manchen Herren anschaut.
Einen Fachforum wie diesem steht das nicht besonders gut zu Gesicht und man ist in Folge geneigt
andere Foren zu besuchen, wo ein sehr freundlicher Ton gepflegt wird.
Wenn dann einer, wie ich, sich auf die Hinterfüsse stellt und den rauen Ton erwidert dann ist das Gahaue und Gesteche um so größer.

Was nützt es einem normalen Nutzer wenn man ihm empfiehlt zur Lösung seines Problems Tutotials zu lesen
anstatt hier Fragen zu stellen?
Wenn man dann noch den Nutzen einer winzigen DB dem Aufwand ein winziges Problemchen zu lösen gegenüberstellt, dann stellen
sich Fragen ein, die ich jetzt nicht stellen möchte.

Auch wenn mein "Ton" oftmals harsch rüber kommen sollte, so ist das nie echt bösartig gemeint sondern ein
Spiegel dessen wie man oft hier behandelt wird.
Das geht nicht nur mir alleine so, wie ich weiß, sondern auch div. Freunden, die diesem Forum längst
den Rücken gekehrt haben und sich anderen zugewendet haben, wo man "Newbies" auch wie Menschen behandelt.

Das wäre dann alles was ich dazu sagen kann.
Mein spez. Dank an die "Netten User" hier, die mir schon öfter mit kurzen knackigen Lösungen geholfen haben.

Wenn man tagaus tagein nur vor der Kiste sitzt, mag vieles leichter sein, aber es gibt ja bekanntlich auch Leute
die den "PC" nur selten nutzen und deren Problemchen eher lachhaft sind, jedenfalls aus Expertenblickwinkel.

Was "meinen" VBA Code betrifft, ich werde sicher noch herausfinden, was ich WIE formulieren muss.

In diesem Sinne allen ein schönes Wochenende......und bleibt gesund in diesen hektischen Zeiten.
Gruss

 

In Deinem Code hast Du doch eine Abfrage definiert (str_SQL = "SELECT....).

Im WHERE Statement musst Du dann (für jedes Quartal) datepart zum Einsatz bringen.

also z.B.: ..... WHERE DatePart ("q", Buch_Datum) = 1 [2 | 3 | 4]