🚀 go-pugleaf

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