Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Per Abfrage filtern, und an Tabelle anfügen
zurück: msoFileDialogOpen mit Filterfunktion weiter: Vernünftig Variablen zwischen Subs übergeben? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
steli
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. Feb 2012, 15:39
Rufname:

Per Abfrage filtern, und an Tabelle anfügen - Per Abfrage filtern, und an Tabelle anfügen

Nach oben
       Version: Office 2010

Hallo zusammen,

folgendes Problem:

Ich möchte die per Abfrage gefilterten DS aus einer Tabelle an genau diese Tabelle anfügen.

Dabei sollen alle Felder dupliziert werden, bis auf eines, welches aktuallisiert werden soll.

Die Tabelle enthällt keinen Primärschlüssel. Das Feld welches aktuallisiert werden soll ist [Jahr].

Die vereinfachte Version der Tabelle sieht so aus:
Feld1: Lieferant
Feld2: abUmsatz
Feld3: Rabatt
Feld4: Jahr

Die Abfrage sucht nun nach dem Kriterium [Lieferant] und [Jahr] alle relevanten DS. (Jahr=2011)

Beispielsweise sind dies nun 4 DS.

Ich möchte also diese 4 DS duplizieren und in die gleiche Tabelle anfügen, jedoch soll im Feld [Jahr] bei den neuen DS 2012 stehen.

Ich denke dass das mit einem Recordset und Addnew gehen sollte, jedoch scheitern hier meine Kenntnisse....

Kann mir jemand helfen??

Vielen Dank schon mal.

LG
Steli
MissPh!
Office-VBA-Programmiererin


Verfasst am:
06. Feb 2012, 16:07
Rufname:
Wohnort: NRW


AW: Per Abfrage filtern, und an Tabelle anfügen - AW: Per Abfrage filtern, und an Tabelle anfügen

Nach oben
       Version: Office 2010

Hallo,

du kannst das mit einer Anfügeabfrage lösen:
Code:
Dim strSQL As String
strSQL = "Insert into tabelle (Lieferant, abUmsatz, Rabatt, Jahr ) " & _
             "Select Lieferant, abUmsatz, Rabatt, 2012 From tabelle " & _
             "Where Lieferant = " & Me!Lieferant
CurrentDB.Execute strSQL, dbFailOnError

BTW:
Zitat:
Die Tabelle enthällt keinen Primärschlüssel.
Jede Tabelle sollte zumindest einen Autowert-Key haben.
_________________
Gruß MissPh!
steli
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. Feb 2012, 16:15
Rufname:

AW: Per Abfrage filtern, und an Tabelle anfügen - AW: Per Abfrage filtern, und an Tabelle anfügen

Nach oben
       Version: Office 2010

Hallo MissPh!

danke für die AW, die glaube ich nicht das Problem löst.

Wenn ich das richtig verstehe, filtert mir deine Anfügeabfrage alle
DS aus der Tabelle wo Kriterium 2012 und fügt diese dann an.

Das ist aber nicht das was ich möchte.

Er soll nach allen DS eines Lieferanten suchen mit Kriterium
a) Lieferant
b) Jahr = 2011 (!)

Anfügen soll er mir die gefundenen DS und soll aus dem Jahr 2011 -> 2012 machen. Also neben dem anfügen auch ein Feld aktuallisieren.

LG
Steli
MissPh!
Office-VBA-Programmiererin


Verfasst am:
06. Feb 2012, 16:22
Rufname:
Wohnort: NRW

AW: Per Abfrage filtern, und an Tabelle anfügen - AW: Per Abfrage filtern, und an Tabelle anfügen

Nach oben
       Version: Office 2010

OK, das Jahr als Kriterium hatte ich vergessen, aber ansonsten liegst du mit deiner Interpretation falsch. Razz
Code:
strSQL = "Insert into tabelle (Lieferant, abUmsatz, Rabatt, Jahr ) " & _
             "Select Lieferant, abUmsatz, Rabatt, 2012 From tabelle " & _
             "Where Lieferant = " & Me!Lieferant & " AND [Jahr] = 2011 "
2012 ist in diesem Fall eine Konstante, die einfach den Datenfeldern hinzugefügt wird.
_________________
Gruß MissPh!
steli
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. Feb 2012, 16:30
Rufname:

AW: Per Abfrage filtern, und an Tabelle anfügen - AW: Per Abfrage filtern, und an Tabelle anfügen

Nach oben
       Version: Office 2010

Das sieht gut aus.

Aus reinem Interesse, wie könnte ich das mit "Recordset" lösen?

Vielen Dank!!

LG
Steli
MissPh!
Office-VBA-Programmiererin


Verfasst am:
06. Feb 2012, 16:45
Rufname:
Wohnort: NRW

AW: Per Abfrage filtern, und an Tabelle anfügen - AW: Per Abfrage filtern, und an Tabelle anfügen

Nach oben
       Version: Office 2010

Das ginge bspw. so:
Code:
Dim rs_IN As DAO.Recordset
Dim rs_OUT As DAO.Recordset
set rs_IN = CurrentDb.OpenRecordset("Select * From tabelle Where Lieferant = " & Me!Lieferant & " AND [Jahr] = 2011")
set rs_OUT = CurrentDb.OpenRecordset("tabelle")
Do While Not rs_IN.EOF
    With rs_OUT
        .AddNew
        !Lieferant = rs_IN!LIeferant
        !abUmsatz = rs_IN!Umsatz
        !Rabatt = rs_IN!Rabatt
        !Jahr = 2012
        .Update
    End With
    rs_IN.MoveNext
Loop
rs_IN.Close
rs_Out.Close

_________________
Gruß MissPh!


Zuletzt bearbeitet von MissPh! am 06. Feb 2012, 16:49, insgesamt einmal bearbeitet
steli
Im Profil kannst Du frei den Rang ändern


Verfasst am:
06. Feb 2012, 16:48
Rufname:


AW: Per Abfrage filtern, und an Tabelle anfügen - AW: Per Abfrage filtern, und an Tabelle anfügen

Nach oben
       Version: Office 2010

Zwei Recordsets....schön dass man auf die wohl naheliegendsten Sachen nicht kommt....

Danke MissPh!

Große Hilfe!

LG aus dem eiskalten Hamburg...
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage aus Formular erstellen 2 frkrone 3248 12. Feb 2004, 14:22
frkrone Abfrage aus Formular erstellen
Keine neuen Beiträge Access Tabellen & Abfragen: Zellinhalt einer Tabelle auslesen 3 zaimon 1452 11. Feb 2004, 19:36
Willi Wipp Zellinhalt einer Tabelle auslesen
Keine neuen Beiträge Access Tabellen & Abfragen: Wert in einer anderen Tabelle verändern 9 dfo 1040 06. Feb 2004, 23:49
reke Wert in einer anderen Tabelle verändern
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage, die sich auf 2 Abfragen + 1 Tabelle bezieht 1 caro456 1832 27. Jan 2004, 20:03
Willi Wipp Abfrage, die sich auf 2 Abfragen + 1 Tabelle bezieht
Keine neuen Beiträge Access Tabellen & Abfragen: Jeweiligen Monat aus Tabelle "filtern" 1 itarus 1027 24. Jan 2004, 18:55
borstel Jeweiligen Monat aus Tabelle "filtern"
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage von Datensätzen ohne Inhalt 3 sebwa 2053 23. Jan 2004, 23:19
Gast Abfrage von Datensätzen ohne Inhalt
Keine neuen Beiträge Access Tabellen & Abfragen: Verschachtelte Abfrage? 3 Fragesteller 2581 22. Jan 2004, 08:46
ffdabei Verschachtelte Abfrage?
Keine neuen Beiträge Access Tabellen & Abfragen: Bräuchte mal Hilfe bei einer Abfrage!?! 6 Gast 1766 15. Jan 2004, 11:12
Gast Bräuchte mal Hilfe bei einer Abfrage!?!
Keine neuen Beiträge Access Tabellen & Abfragen: Text an Feld anfügen mit Aktualisierungsabfrage 5 mondi 1584 04. Jan 2004, 11:48
marmic55 Text an Feld anfügen mit Aktualisierungsabfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Automat. Gesamtpreis in Tabelle ohne Abfrage.. 1 Kleiner_User 1367 20. Dez 2003, 19:31
Fedaykin Automat. Gesamtpreis in Tabelle ohne Abfrage..
Keine neuen Beiträge Access Tabellen & Abfragen: Problem bei verschachtelter Abfrage 1 Gast 863 09. Dez 2003, 11:40
Eule Problem bei verschachtelter Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage Problem 1 bigfootger 1761 04. Dez 2003, 12:55
MichaelS Abfrage Problem
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA