Jak dodać sortowanie do raportu używając kodu VBA

Thread View: pl.comp.bazy-danych.msaccess

4 messages

[T] Back to Threads [V] Tree View [G] Group Articles

4 total messages Started by zraz Sun, 08 Nov 2015 22:24

#137030

Author: zraz
Date: Sun, 08 Nov 2015 22:24

8 lines
1901 bytes

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 ?

Pozdrawiam i z góry dzięki za podpowiedzi.

Re: Jak dodać sortowanie do raportu używając kodu VBA

#137031

Author: MaciejF
Date: Mon, 09 Nov 2015 15:33

24 lines
1843 bytes

Kombinowałbym ze zdarzeniem "przy formatowaniu"
sekcji szczegóły raportu

Me.OrderBy = Forms!frmBazowy!PoleSortujące
Me.OrderByOn = True


Możesz założyć w formularzu pole tekstowe wg którego będziesz sortował np. txtSort
Następnie wykorzystać wartość tego pola w Raporcie

Me.OrderBy = Forms!frmBazowy!txtSort
Me.OrderByOn = True


Jak blądzę to niech ktoś skoryguje.
Nie uważam się za eksperta ...


Wujek MS pisze tak:
https://msdn.microsoft.com/en-us/library/bb243811(v=office.12).aspx


Pozdrawiam
MF

Re: Jak dodać sortowanie do raportu używając kodu VBA

#137032

Author: rodzic2000
Date: Mon, 09 Nov 2015 20:13

1 lines
1542 bytes

A sposób sortowania przekaż jako OpenArgs w metodzie DoCmd.OpenReport.

Re: Jak dodać sortowanie do raportu używając kodu VBA

#137033

Author: Zbigniew Bratko
Date: Mon, 16 Nov 2015 17:21

47 lines
2360 bytes

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/

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads