Funkcja ColumHidden w Tabeli lub Kwerendzie

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

3 messages

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

3 total messages Started by Marek Idźkowski Wed, 26 Jul 2017 13:56

#137500

Author: Marek Idźkowski
Date: Wed, 26 Jul 2017 13:56

19 lines
1723 bytes

Witam
Proszę o pomoc w oprogramowaniu przycisku, gdzie po kliknięciu Ukryje nam automatycznie jedną lub wiele różnych kolumn

Próbowałem 
z

Private Sub Przycisk_Click()

    [Pole].ColumnHidden = True

End Sub


Niestety nie działa z aktywną tabelą lub kwerendą, a chyba jedynie z formularzami

być może należy dodać nazwę tabeli lub kwerendy przed tym kodem.

Z poważaniem
Marek Idźkowski

Re: Funkcja ColumHidden w Tabeli lub Kwerendzie

#137511

Author: Zbigniew Bratko
Date: Fri, 28 Jul 2017 13:59

50 lines
2106 bytes

W dniu 2017-07-26 o 15:56, Marek Idźkowski pisze:
> Witam
> Proszę o pomoc w oprogramowaniu przycisku, gdzie po kliknięciu Ukryje nam automatycznie jedną lub wiele różnych kolumn
> 
> Próbowałem
> z
> 
> Private Sub Przycisk_Click()
> 
>      [Pole].ColumnHidden = True
> 
> End Sub
> 
> 
> Niestety nie działa z aktywną tabelą lub kwerendą, a chyba jedynie z formularzami
> 
> być może należy dodać nazwę tabeli lub kwerendy przed tym kodem.

[...]

na stronie
  https://msdn.microsoft.com/en-us/library/office/aa224064(v=office.11).aspx
jest stosowny przykład.

Możesz także wypróbować poniższy przykład:
'______________________________
Private Sub Polecenie1_Click()

Dim frm As Access.Form
Const cTblName As String = "JakasTabela"
Const cColName As String = "TwojaKolumna"

   ' ustaw fokus na oknie tabeli
   DoCmd.SelectObject acTable, cTblName, False
   DoEvents: DoEvents: DoEvents

   Set frm = Screen.ActiveDatasheet.Form

     ' ukryj kolumnę
     frm.Controls(cColName).ColumnHidden = True

   Set frm = Nothing

End Sub

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

Re: Funkcja ColumHidden w Tabeli lub Kwerendzie

#137518

Author: Marek Idźkowski
Date: Mon, 31 Jul 2017 13:28

1 lines
1542 bytes

Dziękuję - spróbuję zaadoptować. Napisze co i jak. Pozdrawiam Marek

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