🚀 go-pugleaf

W dniu środa, 14 listopada 2018 15:04:38 UTC+1 użytkownik Cezary Pasternak napisał:
> Witam serdecznie wszystkich.
> Chciałbym prosić o pomoc w jednej kwestii.
> 
> Potrzebuję wygenerować raport w formie: f: a, a, a, a, a, a, a, a, a, a, a, a

Rozumiem, że te literki to zawartość kolejnych rekordów jakiegoś pola? 
Tworzysz dodatkową tabelę z polem typu nota/memo/długi tekst (nazwa zmieniała się chyba ze cztery razy i zależy od wersji), w VBA robisz pętlę w której doklejasz do niego wszystkie rekordy, następnie generujesz raport na podstawie nowej tabeli.
Oczywiście pomijam sens takiego działania :)
Na twoim miejscu przyjrzałbym się całemu projektowi, bo coś z nim musi być nie tak, skoro powstała taka potrzeba.

Użytkownik "Cezary Pasternak" <studioproduktowe@gmail.com> napisał w 
wiadomości news:f41a2577-b3f2-4321-9bcb-6ec5248cce52@googlegroups.com...
Witam serdecznie wszystkich.
Chciałbym prosić o pomoc w jednej kwestii.

Potrzebuję wygenerować raport w formie: f: a, a, a, a, a, a, a, a, a, a, a, 
a
Chodzi o to, żeby wynik wyświetlał się w jednym wierszu po znaku /, a nie w 
formie tabelarycznej

Czy ktoś ma pojęcie jak to zrobić?

Podobny efekt można uzyskać poprzez powiązanie w kwerendzie kilku 
elementarnych kwerend np
SELECT [Lista członków].[Nr stan], [Lista członków].[Imię i Nazwisko], 
[OstWp07/18].[7/18], [OstWp08/18].[8/18], [OstWp09/18].[9/18], 
[OstWp10/18].[10/18], [OstWp11/18].[11/18]
FROM (((([Lista członków] LEFT JOIN [OstWp07/18] ON [Lista członków].[Nr 
stan] = [OstWp07/18].Stan) LEFT JOIN [OstWp08/18] ON [Lista członków].[Nr 
stan] = [OstWp08/18].Stan) LEFT JOIN [OstWp09/18] ON [Lista członków].[Nr 
stan] = [OstWp09/18].Stan) LEFT JOIN [OstWp10/18] ON [Lista członków].[Nr 
stan] = [OstWp10/18].Stan) LEFT JOIN [OstWp11/18] ON [Lista członków].[Nr 
stan] = [OstWp11/18].Stan
WHERE ((([Lista członków].[Imię i Nazwisko]) Not Like "bez użytk.*"))
ORDER BY [Lista członków].ID;
a potem raport realizować na podstawie takiej zbiorczej kwerendy  .

Co to znaczy f: a, a, a, a, a, a, a, a, a, a, a, a ??
 
odpowiedz 1
Sumowanie wybranych rekordów z jednej kolumny do wiersza

Wystarczy wywołać DsumText w pętli dla danych rekordów które chcemy sumować do jednego wiersza
w raporcie w Źródło Formantu
DSumText("NazwaKolumnyTabeli", "NazwaTabeli", "KtoryRekordTabeli=1")

 
Funkcja popełniona przez KN - (Krzystof Noworyta)

w module
Function DSumText(sField As String, _
                  sTable As String, _
         Optional sWhere As String, _
         Optional sSep As String = ",") As Variant

  Dim strSQL As String
  Dim Kon As String

  strSQL = "Select " & sField & " FROM " & sTable
  If Len(sWhere) > 0 Then
    strSQL = strSQL & " WHERE " & sWhere
  End If

On Error GoTo err_exit
  With CurrentDb.OpenRecordset(strSQL, 4)
    Do Until .EOF
      Kon = Kon & sSep & .Fields(0).Value
      .MoveNext
    Loop
    .Close
  End With
    Kon = Mid(Kon, Len(sSep) + 1)
    DSumText = Kon
  Exit Function
err_exit:
  Set DSumText = Err

End Function



odpowiedz 2 

jeżeli chodzi o sumę z kilku kolumn w jedną 
w raporcie w Źródło Formantu

="/" & [kolumna1] & ", " & [Kolumna2] & ", " & [kolumna3]


------
Leszek