Office: (Office 2010) Zeilen zusammenfassen

Vermutlich nicht - mit der Anpassung gemäss Nouba funktioniert das nämlich
(zumindest in der hochgeladenen accdb)

 

Genau das war's.
Danke schön. Ihr seid super!

 

Hallo zusammen,

ich komme in meiner DB leider auch nicht weiter. Teilweise funktioniert es und im nächsten Moment nicht mehr. Ich arbeite mit Access 2013.

Als Fehlermeldung bekomme ich Laufzeitfehler 3021 kein aktueller Datensatz.
Beim Debuggen zeigt er auf die Zeile rs.MoveFirst

Mein Code sieht wie folgt aus:
Option Compare Database

Public Function Test()
Dim SZ As String
Dim Ausdr5 As String
Dim strSql As String
Dim rs As DAO.Recordset

strSql = "SELECT Bereich FROM Tabelle4 WHERE Ausdr5 ='" & [Ausdr5] & "'"
Set rs = CurrentDb.OpenRecordset(strSql)

rs.MoveFirst
Do While Not rs.EOF
SZ = SZ & "; " & rs!Bereich
rs.MoveNext
Loop

SZ = Mid(SZ, 1, 100)
rs.Close
Set rs = Nothing


End Function


und in der Abfrage steht bei mir folgender SQL Code

SELECT Tabelle4.Ausdr5, SZ([Ausdr5]) AS Ausgabe
FROM Tabelle4
GROUP BY Tabelle4.Ausdr5;



Ich hoffe Ihr könnt mir weiterhelfen.

Viele Grüße
Frederik

 

Moin,
wieso machst du es denn nicht einfach so, wie es im Beispiel SQLListe vorgegeben ist?
maike

 

Hallo Frederik,
Wegen Fehler 3021.
Das liegt daran, dass das RS leer ist, d.h. es gibt keinen 1. DS.
I.Ü. ist das .MoveFirst überflüssig nach .OpenRecordset, da steht
der Zeiger eh auf dem 1. DS, ausser das RS ist leer, dann steht er auf .EOF.
Also besser
Code:

Noch besser ist es natürlich heraus zu finden, warum das RS leer ist.*biggrin.gif*
gruss ekkehard

 

Hallo Ekkehard, hallo Maike,

ich das Beispiel was hier steht nochmals aufgefasst,
Ich bin einfach noch nicht so fit in VBA 
Wieso lädt die DB meine Informationen nicht hoch, was mache ich falsch?
Im Einzelschritt läuft er die Abfrage ohne Fehler durch...

Viele Grüße
Frederik

 

Kann dein Beispiel leider nicht öffnen, ich arbeite mit Access 2003 (.mdb).
Vielleicht guckt Ekkehard ja noch vorbei *wink.gif* .
maike

 

Deine DB ist von hinten bis vorne unschlüssig. In der Abfrage übergibst Du an die Funktion ein Argument - die Funktion ist aber ohne Argument definiert. Das Recordset bezieht sich auf ein nicht vorhandenes Feld Bereich. Die Funktion hat keinen Rückgabewert.

Fazit: Hier mangelt es an Grundlagenwissen, was in der Regel durch Literatur und nicht durch einen Forenbeitrag vermittelt werden kann.

 

Nach noubas Post muss ich dann leider passen, sorry.

 

Hallo Nouba,
der Bereich muss Information heißen. den Fehler nehme ich auf meine Kappe, habe die DB vorhin kurz zusammengezimmert, um zu verstehen was ich falsch mache... und die Information aus dem vorherigen Post mit copy/paste eingefügt.
Code:

Ich bin Access Anfänger, kam bisher auch gut ohne Makros klar*SmilieSelbst wenn ich es auf Information umstelle komme ich nicht weiter.
Was meinst du mit Rückgabewert?
Welche Literatur kannst Du mir empfehlen?


VG
Frederik

 

Die Funktion muss ja die gefundenen Werte an die Abfrage zurückgeben - das ist der Rückgabewert. Und die Abfrage muss die passenden Kriterien (Telefon) an die Funktion übergeben. Sonst arbeiten die ja nicht zusammen.
Dazu ist der Aufbau so:
Code:

In der Abfrage selbst dann die Funktion aufrufen:
Code:

maike

 

Hallo,

bekomme das soweit hin, kann man das Ganze auch mit zwei Suchkriterien aufbauen?
Sprich einmal ein Datum und einmal einen Text?
Gruß

 

Moin,
du kannst natürlich jegliche funktionierende Where-Bedingung angeben. Die Anzahl der Kriterien ist, wie in jeder anderen Abfrage auch, nicht auf eins begrenzt.
maike

 

Aktuell ist meine Abfrage so gestaltet:
Behaelter: SQLListe("SELECT Behaelter FROM qrySollIst WHERE Produkt = '" & [Produkt] & "'";", ";"")
Jetzt würde ich gerne noch zwei Kriterien mehr mit einbinden:
PlanungDatum = [PlanungDatum]
Jahrgang = [Jahrgang]
Wie kann man das einbinden? Auch so, dass leere Felder in Behaelter nicht mit ausgegeben werden?
Hoffe du hast eine Idee.
Danke schon mal vorab

 

Erstelle dir im Abfrageentwurf eine Abfrage, die diese Kriterien enthält.
Wenn die das gewollte Ergebnis zeigt, dann kopierst du den SQL-String dieser Abfrage in den Funktionsaufruf (Angabe der Trennzeichen am Ende nicht vergessen).
maike