Office: Access SQL Abfrage über Formular erstellen ?

Hi,


mal ne ganz doofe Frage ist es möglich eine SQL Abfrage über ein Formular Feld zu generieren?


Also ich stelle mir das so vor ich habe ein Formular und dort drop down Felder dort kann ich Kriterien aus einer Tabelle aussuchen und dann eine Abfrage Starten so in etwa wie eine Filter Funktion geht das irgendwie ???


Oder hat jemand eine bessere Idee ?

Ich habe eine Tabelle mit einem Datum und so ungefähr 40 Abfragen die immer die Daten aus dem aktuellen Monat und dem aktuellem Jahr Filtern.

Jetzt kann es aber sein das meine Kollegen mal die Daten aus dem Vormonat brauchen und darum dachte ich, ich baue noch mal einen Filter ein oder so was vielleicht kann mir jemand einen Gedanken Anstoß oder einen Link geben ???



Vielen Dank euch

:)

 

hi,

das ist ganz einfach - du setzt dein sql-statement einfach aus strings zusammen. dazu ist´s am einfachsten, wenn du dir die abfrage mal einfach im editor zusammenstellst, dann auf die sql-ansicht klickst und dir das zeug kopierst. das schreibst du dann in VBA in eine variable (vom typ string) und fügst deine kritererien anhand der eingaben im formular dazu.

also z.b. wenn dein sql so aussieht (deins wird vermutlich etwas "mehr" sein, aber für ein beispiel reicht das hier *wink.gif* ):
Code:

dann sieht das in VBA ca. so aus (semikolon weglassen, du willst ja noch kriterien dazufügen):
Code:

dann holst du dir aus dem formular deine kriterien - nehmen wir mal an, Feld1 ist der Nachname und du möchtest nur einen bestimmten rausfiltern (Nachname ist ein Text, deshalb brauchst du die einfachen Hochkommas, für Datumswerte musst es so formatieren: #yyyy/dd/mm#):
Code:

und dann fehlt eigentlich nur noch das setzen dieser abfrage als datenquelle für dein listenfeld, unterformular oder was auch immer du zum anzeigen verwendest. ich nehme jetzt einfach mal ein listenfeld als beispiel her:
Code:

lg spinneken

 

Hi,

ja das geht und ist ziemlich flexibel. Nimm dazu am Einfachsten den SQL-String aus der Abfrage und verändere die WhereCondition, so wie du sie benötigst. Ein einfaches Beispiel habe ich leider nicht parat.

 

Super Danke !

Kann ich das Ergebnis der Abfrage auch als Excel Datei ausgeben ?

 

Fragt sich zwar wozu, aber ja. Entweder mit DoCmd.TransferSpreadsheet oder du öffnest Excel per Code und schreibst die Daten dann in ein Arbeitsblatt.

 

Sorry aber ich bin der Totale Amateur !

Also ich erstelle jetzt meine SQL mit VBA OK

Ich möchte alle Spalten angezeigt haben und dann hab ich im Formular zum Beispiel 2 Felder eins heißt Werk0 und ein heißt Datum !

Würde das dann so aussehen ???


DIM strSQL as String
strSQL = "SELECT * FROM Stammdaten"

strSQL = strSQL & " WHERE Werk0='" & Me.FormularKritFeld & "';"
strSQL = strSQL & " WHERE Datum='" & Me.FormularKritFeld & "';"


muss ich das Datum irgendwie Formatieren ?

und noch eine Frage ich muss das Text Feld dann den Namen geben den ich hier im VBA angebe oder ?

Und das ganze speicher ich dann als Modul und verknüpfe das dann mit einem Button oder wie ?

Also wie gesagt ich bin der absolute Access Amateur vielleich kann mir noch einmal jemand meine Fragen beantworten das wäre Super von euch



DANKE !

Ach und noch was ich check das mit den Modulen überhaupt nich kann mir dazu einer vielleicht ne Quelle schicken wie ich das genau machen muss ?


*frown.gif* ich bin bestimmt nervig was ?

 

Erstelle einen Button im Formular und gehe dort in Eigenschaften / Ereignis. Dort kannst du beim Klicken auswählen und den Code-Generator verwenden. Damit wird dann eine Prozedur in VBA im Klassenmodul des Formulars erstellt. Und der dort stehende Code wird dann beim Klicken ausgeführt. Also ungefähr folgendes:

Code:

Um dein Vorgehen etwas zu vereinfachen würde ich eine Abfrage generieren und dort Verweise auf die Formularfelder setzen (in der entsprechenden Zeile und dort in der Kriteriumszeile auf den Zauberstab klicken und dort das entsprechende Feld im Formular auswählen). Dann anhand der Abfrage einen Bericht erzeugen und schon kannst du einen Bericht mit deinen Formularbedingungen öffnen.

 

hi,

macht nix, jeder von uns hat mal angefangen *Smilie

also das einfachste in deinem fall ist wohl, einen button zu verwenden und dort bei OnClick eine prozedur einzufügen (wenn du in der entwurfsansicht bist, gehst du beim button auf eigenschaften, ereignisse, beim klicken, wählst [Ereignisprozedur] aus und klickst auf die punkterln daneben..)

dort fügst du dann deinen code ein:
(vorsicht! du hast geschrieben Werk0 und Datum seien formularfelder - dann baust du nämlich das sql-statement falsch zusammen!)
Code:

datumswerte brauchen "spezielle" behandlung - die #-zeichen am beginn und ende, sowie das amerikanische datumsformat.

dein sql-statement sieht im endeffekt dann z.b. so aus:
Code:

ein tipp: verwende für feldnamen etc. keine schlüsselwörter (also Datum, Date, etc. nicht verwenden, sondern stattdessen z.b. datAufnahme, datEnde,...)

ich hoffe, ich hab nicht allzu konfus geschrieben *wink.gif*
lg spinneken

 

\@spinneken Da ist ein ";" zu viel im mittleren Teil des SQL-Statements *wink.gif* '" & Me.Werk0 & "';"

 

*ups* stimmt - zuviel copy & paste *wink.gif*

 

Hi,


ich schon wieder hab nochmal eine Frage !

Ich hab jetzt ein Formular erstellt und 2 Text Felder eingefügt das eine heißt Text 0 das andere Text 2 !

Wenn ich jetzt ein Button einfüge und dann als Ereignis den Code eingebe müsste das dann fiunktionieren ?


Option Compare Database
Option Explicit


Private Sub Befehl10_Click()

Dim strSQL As String

strSQL = "SELECT * FROM Stammdaten "

strSQL = strSQL & "WHERE Werk0 = '" & Me!Text0 & "' AND Datum = "
strSQL = strSQL & Format(Me!Text2, "\#yyyy\-mm\-dd\#")

DoCmd.TransferSpreadsheet

End Sub



am Ende möchte ich ja das er das als Excel ausspuckt geht das so ?

Ich weiß ja auch net ?

Danke für jede Hilfe

 

z.b.
Code:

lg sp

 

Nein, das geht so nicht.

Entweder übergibst du das SQL-Statement an eine gespeicherte Abfrage und verwendest danach TransferSpreadsheet (da fehlt noch Syntax) oder du öffnest mit dem String ein Recordset, rufst Excel auf und schreibst dann 2 dimensional die Daten in Excel.

Hat es eine besondere Bewandnis, dass die Daten nach Excel transferiert werden sollen?

Aus der Hilfe:

Von welcher Version reden wir?

 

Ja so würde es wohl gehen jetzt hab ich nur noch ein Problem mit dem Datum *frown.gif*


Ich hab ein anderes Format *frown.gif*

ich hab Tag/Monat/Jahr kann ich das auch benutzen irgendwie ?

 

Ist dein Datum ein Text? Ansonsten speichert Access das Datum in einem anderen Format, als es angezeigt wird.