🚀 go-pugleaf

Użytkownik "zraz"  napisał w wiadomości grup
dyskusyjnych:234aa3a6-3c8c-418f-9406-a9b2681e9829@googlegroups.com...

Witam,

zderzyłem się z problemem dodania sortowania do raportu używając kodu VBA. W
VBA przed zrobieniem DoCmd.OpenReport muszę zczytać z formularza jaką opcję
sortowania wybrał użytkownik (np. sortuj wg pola ID Malejąco). I to
sortowanie  muszę dodać do raportu ale nie wiem jak. Jest pod Prawym
Przyciskiem na Sekcji Szczegóły  opcja Sortowanie ale to jest na stałe a ja
chciałbym tym sterować.
Raz chcę uruchomić raport z jakimś sortowaniem a za drugim razem z innym.

Czy jest to w ogóle możliwe w VBA ?

[...]

Spróbuj czegoś takiego:

Private Sub btnSortRpt_Click()
Dim sNazwaPola   As String
Dim sOrderBy    As String
Const cMyRpt    As String = "rptMojRaport"

  'Przykładowy odczyt danych z formularza:
  sNazwaPola= Me.TwojePoleFormularza_1 ' np. "ID"
  sOrderBy = Me.TwojePoleFormularza_2     ' np. "DESC"

    ' przykładowo po odczycie
  'sNazwaPola = "ID"
  'sOrderBy = "DESC"

  DoCmd.OpenReport cMyRpt, acViewPreview

  With Reports(cMyRpt)
    .OrderByOn = True
    .OrderBy = sNazwaPola & " " & sOrderBy
  End With

End Sub

-- 
Pozdrowienia
BraZby
www.faq.accdb.pl/
www.acc97.accdb.pl/