Office: DS zusammenfassen

Code:

 

Wenn ein Datenobjekt nicht gefunden wird, dann heißt wohl eins der Formularfelder anders als im Code geschrieben oder es ist in der Datenherkunft des Formulars nicht vorhanden.
maike

 

Ich leuchte das nochmal ab. Seltsam das Accsess 360 damit klar kommt.

 

Noch eine kleine Frage zu der SQL Abfrage.
Ändere ich die Zeile wie folgt ab:RohstoffLieferung: sqlliste("SELECT Rohstoff & Lieferort FROM Bestellungen WHERE Liefertermin2 = " & Format([Feld1];"#jjjj-mm-tt#"))

Dann steht schön der Rohstoff und Anlieferort zusammen. Aber wie bekomme ich da eine Leerzeile oder / dazwischen?

 

Da macht es doch Sinn, sich die Definition der Funktion SQLListe ins Bewusstsein zu rücken:
Code:

Da würde man doch SepR als SeparatorRows und SepF als SeparatorFields indentifizieren wollen (o.k. die Bezeichnungen könnten gleich etwas sprechender sein).

Möchte man nun einen eigenen Zeilentrenner statt denjenigen, der bei Fehlen in der Angabe automatisch verwendet wird, so sollte man den mit Aufruf der Funktion als Argument übergeben.
Bei den Feldtrennern ist es genau das Gleiche.

 

Denn Teil hatte ich schon gefunden und etwas geändert aber das Ergebnis ist nicht wie es sein soll.

Public Function SQLListe(SQL As String, _
Optional SepR As String = "/", Optional SepF As String = "/", _
Optional NoNullFields As Boolean = True) As String

Schaut dann nun so aus: Rohstoff1Anlieferort1/Rohstoff2Anlieferort2
Ich hätte aber gern: Rohstoff1-Anlieferort1/Rohstoff2-Anlieferort2

Das abändern der Zeile:
sqlliste("SELECT Rohstoff & Lieferort FROM Bestellungen WHERE Liefertermin2 = " & Format([Feld1];"#jjjj-mm-tt#"))

in

sqlliste("SELECT Rohstoff & "-" & Lieferort FROM Bestellungen WHERE Liefertermin2 = " & Format([Feld1];"#jjjj-mm-tt#"))

geht dabei hier nicht.


Aber es gibt ja immer mehrere Wege nach Rom. Ich habe einfach ein Zusätzliches Feld erstellt mit Standard "-" und das in die Zeile mit eingebaut. Wenn das eleganter gehen sollte ändere ich das wieder zurück.

sqlliste("SELECT Rohstoff & Trenner & Lieferort FROM Bestellungen WHERE Liefertermin2 = " & Format([Feld1];"#jjjj-mm-tt#"))

 

Optional bei einem Funktionsargument heißt, man muss es nicht angeben. Dann wird wie hier der definierte Ersatzwert verwendet. Daher sollte man die Funktion nicht umdefinieren, sondern einfach mal das angeben, was man haben möchte.
Mit der ursprünglichen Funktionsdeklaration:
Code:

- ... SepF
/ ... SepR

 

Vielen Herzlichen Dank

aber da sagt er Systematisch Falsch wegen der Komma hinten. .....];"#jjjj-mm-tt#"), "/", "-")

aber so nimmt er es ...........];"#jjjj-mm-tt#");"/";"-")

Super

 

Klar, ich schreibe so etwas immer in SQL-Ansicht oder VBA, da hat man durchgehend die englische Schreibweise mit Kommas und nichteingedeutschten Funktionsnamen. Das ist dann intellektuell übersichtlich.