Office: Abfrage in Tabelle ?

Helfe beim Thema Abfrage in Tabelle ? in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo zusammen, erstmal möchte ich betonen, dass ich nicht allzu viel ahnung von access habe! *frown.gif* Mein problem ist folgendes: ich möchte das... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von capone007, 17. März 2004.

Seite 1 von 2

CAPONE007

capone007

Abfrage in Tabelle ?

Hallo zusammen,
erstmal möchte ich betonen, dass ich nicht allzu viel ahnung von access habe! *frown.gif*

Mein problem ist folgendes:
ich möchte das ergebis einer abfrage mit generierter WHERE-klausel (also per VBA erstellt) in eine tabelle speichern, um später eine weiter abfrage auf diese zu tabelle zu machen.
nur weiß ich nicht, wie ich das anstelle....kann mir jemand auf die sprünge helfen ?!?

Vielen Dank im voraus!!!

MfG

PS: Ich hab Access2000

:)

capone007, 17. März 2004

#1
OLIVERV

oliverV

Hallo,

wenn du deine Tabelle nur für ein oder mehrere andere Abfragen nutzen willst, arbeite doch mit einer temporären Tabelle.
Erstelle eine Tabellenerstellungsabfrage um die temp. Tabelle zu füllen, und führe danach deine eigentliche Abfrage aus.
Per VBA kannst du beide Abfragen automatisch nacheinander ausführen.
Vorteil: Bei der Tabellenerstellungsabfrage wird eine vorhandene Tabelle gelöscht und durch eine Tabelle gleichen namens ersetzt, du hast also auch dort die aktuellen Daten.
Nachteil: Die DB bläht sich auf, also öfters komprimieren.

Gruß

Oliver

oliverV, 18. März 2004

#2
CAPONE007

capone007

erstmal vielen dank, aber das mit der Tabellenerstellungsabfrage hab ich schon probiert. funktioniert aber nicht, da er mir dann sagt "Es darf nur ein Feld mit AutoWert geben!" und ich hab wohl meherere!
gibt es nicht ein Code:

DoCmd.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

befehl oder sowas, um das ergebnis zu speichern ?

capone007, 18. März 2004

#3
OLIVERV

oliverV

Abfrage in Tabelle ?

Tut mir leid, aber die Geschichte mit dem doppelten AutoWert kann ich leider nicht ganz nachvollziehen.
Wenn du in der Quelltabelle einen AutoWert über mehrer Felder hast, oder mehrere AutoWerte in mehreren verknüpften Quelltabellen hast, dürfte das trotzdem kein Problem sein, denn in der Zieltabelle (die ja noch gar nicht vorhanden ist), ist dieses Feld nicht als AutoWert definiert ist aber nur Theorie, habe ich selbst in der Form noch nicht ausprobiert.
Benötigst du den AutoWert (ID) für deine weiteren Abfragen, wenn nicht lasse ihn doch einfach weg; ansonsten muss ich leider passen.

Gruß

Oliver

oliverV, 18. März 2004

#4
NOUBA

Nouba

Ich würde die generierte Abfrage abspeichern.

Code:

Sub DeineProzedur()
Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim sSQL As String
Const CABFRAGENAME = "qselMeineAbfrage"

Set db = CurrentDb()

On Error GoTo Fehlerbehandlung
Set qdf = db.QueryDefs(CABFRAGENAME)

'// hier steht Dein Kode, der den Abfragetext in sSQL erzeugt.

qdf.SQL = sSQL

RausHier:
On Error GoTo 0

Set qdf = Nothing
Set db = Nothing

Exit Sub

Fehlerbehandlung:
Select Case Err.Number
Case 3265 '// die Abfrage gibt es (noch) nicht und wird deswegen angelegt
Set qdf = db.CreateQueryDef(CABFRAGENAME)
Resume Next
Case Else '// dieser Fehler wurde nicht erwartet
MsgBox "Fehler: #" & Err.Number & " ist aufgetreten." & vbCrLf & vbCrLf _
& Err.Description
Resume RausHier
End Select

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nouba, 18. März 2004

#5
CAPONE007

capone007

danke für eure hilfe!!!

aber @ Nouba:
das sieht mir recht kompliziert aus und ich seh den sinn dahinter auch nicht, kannst du mir das evtl. mal genauer erklären ?!?

aber gibt es denn nicht eine einfachere lösung, muss ich wirklich so einen "dicken" code verwenden, nur um ein abfrage-ergebnis zu speichern?

capone007, 18. März 2004

#6
CAPONE007

capone007

Irgendwie bin ich immer noch nicht weiter...HHHIIILLLFFFFEEEE!!!!

capone007, 21. März 2004

#7
NOUBA

Nouba

Abfrage in Tabelle ?

Ich will damit sagen, dass Du keine Daten redundant in der DB ablegen sollst. Obiger Kode enthält doch gar nicht soviele Befehle. Es wird eine Abfrage, wie man sie im Datenbank fenster sieht erstellt, wobei der Abfragetext (das müssen wir vielleicht noch anpassen) halt jedesmal geändert wird. In der Fehlerbehandlung wird im Falle einer noch nicht vorhandenen Abfrage, diese erstellt.

Wie schaut denn Deine Abfrage aus und wie kommst Du an die variablen Parameter?

Nouba, 21. März 2004

#8
CAPONE007

capone007

also....hier erstmal meine abfrage:
Code:

SELECT [geschlecht].[geschl], [akgradtab].[akgrad], [personen].[vorname], [personen].[nachname], [instebene].[instebene], [sekrtab].[sekr], [SDUFunktionsbeschreibung].[Funktionsbeschr], [SDUFunktionsbeschreibung].[SDUFunktid], [postverteiler].[fakebeneid], [fakuebene].[fakebene], [gebaeude].[kurz], [gebaeude].[gebaeudeid]
FROM gebaeude INNER JOIN (fakuebene INNER JOIN (sekretariateeinr INNER JOIN (((((SDUFunktionsbeschreibung INNER JOIN (personen INNER JOIN SDUFunktion ON [personen].[personenid]=[SDUFunktion].[personenid]) ON [SDUFunktionsbeschreibung].[SDUFunktid]=[SDUFunktion].[SDUFunktionsid]) INNER JOIN akgradtab ON [personen].[akgradid]=[akgradtab].[akgradid]) INNER JOIN geschlecht ON [personen].[geschlid]=[geschlecht].[geschlid]) INNER JOIN sekrtab ON [personen].[sekrid]=[sekrtab].[sekrid]) INNER JOIN (instebene INNER JOIN postverteiler ON [instebene].[instebeneid]=[postverteiler].[instebeneid]) ON [personen].[kostenstellid]=[postverteiler].[kostenstellid]) ON [sekretariateeinr].[ID]=[postverteiler].[sekretariateeinr_ID]) ON [fakuebene].[fakebeneid]=[postverteiler].[fakebeneid]) ON [gebaeude].[gebaeudeid]=[sekretariateeinr].[gebaeudeid];
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und meine WHERE-klausel:
Code:

If Me!Liste0.ItemsSelected.Count 0 Then
For Each Element In Me!Liste0.ItemsSelected
SDUFunkt = Me!Liste0.ItemData(Element)
Bedingung = Bedingung & "SDUFunktid= " & SDUFunkt & " OR "
Next Element
Bedingung = Left(Bedingung, Len(Bedingung) - 4)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

is etwas unübersichtlich...aber so gehts mir hier sowieso *wink.gif* ist auch nicht von mir erstellt, ich muss nur was daran ändern...leider fehlt mir das nötige wissen dazu *frown.gif*
ich hoffe du kannst damit was anfangen...?

capone007, 22. März 2004

#9
CAPONE007

capone007

ok...vergiss das alles, ich habe das ergebnis jetzt in eine Excel-tabelle gespeichert und zwar mit den zeilen:

Code:

DoCmd.OpenQuery "personen nach sdufunktion"
DoCmd.ApplyFilter , Bedingung
DoCmd.OutputTo acOutputQuery, stDocName, acFormatXLS, Verz & "/TempTable.xls"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

nur wie lasse ich jetzt eine abfrage über eine externe tabelle laufen und wie kann ich die tabelle alphabetisch sortieren ?

/edit:
ich möchte ja meine doppelten "treffer" rausfiltern.da hab ich mir gedacht den ersten nachnamen in ein array zu speichern und dann mit dem nächsten namen zu vergleichen. usw. das müsste doch gehen , oder? aber wie greif ich auf die externe tabelle zu?

capone007, 22. März 2004

#10
NOUBA

Nouba

Praxisgerecht dürfte es sein, nur eine "dynamische" Filterabfrage für die SDUFunktionen zu pflegen, die nur das Schlüsselfeld enthält. Verknüpft man diese Abfrage über einen INNER JOIN mit der Hauptabfrage, wird die gewünschte Einschränkung erfolgen. Ich hoffe, Du verstehst, wie ich das meine.
Code:

Private Sub cmdAction_Click()

'// bitte in den gewünschten Filter-Abfragenamen umtaufen
Const CABFRAGENAME = "qfltSDUFunktionsbeschreibung"

Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim sSQL As String

Dim sBedingung As String
Dim vElement As Variant

On Error GoTo Fehlerbehandlung

With Me.Liste0
For Each vElement In .ItemsSelected
sBedingung = sBedingung & .ItemData(vElement) & ","
Next vElement
End With

If Len(sBedingung) > 0 Then

'// letztes Komma abschneiden, und In-Bedingung schreiben
'// Beispiel-Ergebis: SDUFunktid = In(3,4,6,45,654,47,11,34,45,87)
sBedingung = "SDUFunktid In (" & Left$(sBedingung, Len(sBedingung) - 1) & ")"

'// Man könnte nun nur das Filterkriterium als Abfrage speichern und
'// wo eine Einschränkung auf SDUFunkt vorgenommen werden muß, linkt man
'// diese Abfrage hinzu
'//
sSQL = "SELECT SDUFunktid FROM SDUFunktionsbeschreibung WHERE " & sBedingung

'// jetzt speichern wir unsere Auswahl ab.
'// Datenbankvariable setzen
Set db = CurrentDb()

'// Abfrage einlesen --> ist sie nicht vorhanden, greift die Fehlerbehandlung
'// und erstellt die Abfrage
Set qdf = db.QueryDefs(CABFRAGENAME)

qdf.Sql = sSQL

Else
'// keine Elemente in List0 ausgewählt - was soll passieren???
End If

RausHier:
On Error GoTo 0

Set qdf = Nothing
Set db = Nothing

Exit Sub

Fehlerbehandlung:
Select Case Err.number
Case 3265 '// die Abfrage gibt es (noch) nicht und wird deswegen angelegt
Set qdf = db.CreateQueryDef(CABFRAGENAME)
Resume Next
Case Else '// dieser Fehler wurde nicht erwartet
MsgBox "Fehler: #" & Err.number & " ist aufgetreten." & vbCrLf & vbCrLf _
& Err.Description
Resume RausHier
End Select

End Sub

Private Sub Anwendungsbeispiel( _
Hauptabfrage As String, _
Filterabfrage As String, _
Hauptschluesselfeld As String, _
Filterschluesselfeld As String)

'// Hauptabfrage ist die Ursprungsabfrage oder Tabelle
'// Filterabfrage ist die zuvor erstellte Abfrage
'// zusätzlich sind die Schlüsselfeldnamen für beide Abfragen anzugeben

Dim sSQL As String

sSQL = "SELECT * FROM " & Hauptabfrage & " INNER JOIN " & Filterabfrage & " ON " _
& Hauptabfrage & "." & Hauptschluesselfeld & " = " _
& Filterabfrage & "." & Filterschluesselfeld

'DoCmd.OpenQuery sSQL

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nouba, 22. März 2004

#11
CAPONE007

capone007

Vielen dank erstmal!
hab aber noch ein problem...der rechner meckert mit der fehlermeldung:

"Benutzerdefinierter Typ nicht definiert"

bei der Zeile:

Code:

Dim db As DAO.Database
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

also aufs DAO.Database bezogen!

woran liegt das bzw wie bekomme ich das hin?

capone007, 26. April 2004

#12
STEHTIMSCHILF

StehtimSchilf

Abfrage in Tabelle ?

Hi Capone...

Dir fehlt wohl der Verweis!
VBA-Editor\Extras\Verweise und dort den Verweis
Microsoft DAO 3.x Object Library (die höchste Version) aktivieren!

Gruz
SiS

StehtimSchilf, 26. April 2004

#13
CAPONE007

capone007

Super...dankeschön!!!! *biggrin.gif*

capone007, 27. April 2004

#14
CAPONE007

capone007

Zu dem Code von Nouba, der mir sehr hilfreich scheint, habe ich noch ein paar fragen, hoffe mir kann da jemand helfen!!!

und zwar zu diesem teil:

Code:

'// Hauptabfrage ist die Ursprungsabfrage oder Tabelle
'// Filterabfrage ist die zuvor erstellte Abfrage
'// zusätzlich sind die Schlüsselfeldnamen für beide Abfragen anzugeben

Dim sSQL As String

sSQL = "SELECT * FROM " & Hauptabfrage & " INNER JOIN " & Filterabfrage & " ON " _
& Hauptabfrage & "." & Hauptschluesselfeld & " = " _
& Filterabfrage & "." & Filterschluesselfeld
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mir ist nicht ganz klar was nun in "Hauptabfrage" , "-feld" und "Filterabfrage" , "-feld" muss...

kann mir da jemand evtl helfen ? *ganzliebguck* *wink.gif*

meinen dank im vorraus!!!

capone007, 27. April 2004

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

Abfrage in Tabelle ?

Die Seite wird geladen...

Abfrage in Tabelle ? - Similar Threads - Abfrage Tabelle
Vorkommen von Kunden in mehreren Tabellen per Abfrage filtern
in Microsoft Access Hilfe
Vorkommen von Kunden in mehreren Tabellen per Abfrage filtern: Hallo Community, ich habe folgendes Problem beim Nutzen einer Access-Datenbank. Zunächst die Datenstruktur: [ATTACH] Dies sind die Tabellen meiner Datenbank. In der Tabelle "Adressliste"...
3 Accesstabellen in eine neue Access Tabelle (nicht Abfrage) zusammenfügen
in Microsoft Access Hilfe
3 Accesstabellen in eine neue Access Tabelle (nicht Abfrage) zusammenfügen: Hallo, ich habe folgendes Problem: Ich habe 3 Tabellen in Access importiert und möchte diese ohne Abfrage in eine neue Accesstabelle zusammenfügen. Es müssen auch mehr Tabellen zusammengefügt...
Automatisch aktualisierende Tabelle? Hilfe!! :-)
in Microsoft Excel Hilfe
Automatisch aktualisierende Tabelle? Hilfe!! :-): Hallo zusammen, ich habe da ein kleines Excel-Problem und komme einfach nicht auf die Lösung. Ich habe 25 riesige Tabellen und möchte diese in einer Tabelle zusammen, wenn eine bestimmte...
Abfrage von Datensetzen unter Ausschluss von Datensätzen anhand anderer Tabelle
in Microsoft Access Hilfe
Abfrage von Datensetzen unter Ausschluss von Datensätzen anhand anderer Tabelle: Hallo liebe Forumsgemeinde, Nachdem ich mich in diverse Themen bezüglich Access eingearbeitet habe, habe ich erfolgreich schon einige Teilabschnitte meines aktuellen Projekts umgesetzt....
Bestimmte Daten zwischen innerhalb eines Datumsbereichs einer Tabelle Anfügen
in Microsoft Access Hilfe
Bestimmte Daten zwischen innerhalb eines Datumsbereichs einer Tabelle Anfügen: Hallo, ich habe per Google und Foren SuFu leider nichts passendes finden können, wage aber zu bezweifeln, dass Access da an seine Grenzen kommt, da es eigentlich recht banal ist. Ich habe eine...
Primärschlüssel/Fremdschlüssel aus 2.Tabelle automatisch einfügen
in Microsoft Access Hilfe
Primärschlüssel/Fremdschlüssel aus 2.Tabelle automatisch einfügen: Hallo zusammen, ich stehe gerade vor dem Problem, dass ich die Datensätze zwischen zwei Tabellen nicht verknüpfen kann. Konkret habe ich die beiden Tabellen tblEigenschaft und tblBasis. In der...
Formel in Tabelle einer Abfrage automatisch erweitern
in Microsoft Excel Hilfe
Formel in Tabelle einer Abfrage automatisch erweitern: Hallo Zusammen, ich habe ein Blatt auf welches eine Tabellenabfrage auf eine andere Exceldatei läuft. Die Tabelle der Abfrage wurde mit weiteren Spalten erweitert in welcher Formeln sind die die...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden