Newsgroup: it.comp.appl.access
Titolo: nascondere colonna in sottomaschera

Ciao Ng, sto provando a anscondere una colonna in una sottomaschera tramite
interruttore...l'unica cosa che sono riuscito a fare è che alla pressione
dell'interrutore scompare momentaneamente il valore del campo...qualcuno a
qualche dritta?
Grazie
Femto

 Femto
Il concetto di "nascondere una colonna" è alquanto vago... se vuoi non
visualizzare un campo usi la funzione Tuo_Campo.visible = true (per
renderlo visibile) o = false (per renderlo invisibile)... ma se il tuo
scopo è quello di emulare il nascondi colonne di excell il gioco è diverso
perchè devi riposizionare poi tutti i campi successivi al campo/colonna
che nascondi.
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Credo che lui si riferisca al foglio dati.
Credo ci sia qualcosa sul sito di @Alex
MAssimialino 

 ha scritto nel messaggio
news:xuhZd.5646$tY2....@news.edisontel.com...

Forse c'è qualcosa ma è inserito in un Demo più coplesso.
Proprietà ColumnHidden
La proprietà ColumnHidden si applica a tutti i campi in visualizzazione
Foglio dati
e ai controlli della maschera quando questa è in visualizzazione Foglio
dati.
Se non ricordo male basta leggere lo
Screen.Activecontrol.ColumnHidden=Not Screen.Activecontrol.ColumnHidden
per ottenere l'effetto ON/OFF
Questo però è ovviamente semplice in quanto Nativo della DatasheetView
Questo invece funziona in visualizzazione Fomr Continue, basta richiamare
la funzione dal Menù Popup precostruito per l'Occasione, ovviamente
è solo un'estratto pertando è da valurare e modificare all'uso personale:
'----------------- MODULO --------------------------------
Dim NumHideColumn As Integer
Function NascondiColonna()
  Dim Controllo As Control, Ctr As Control, Frm As Form
  Dim posiz As Double, Larghezza As Single
  On Error Resume Next
  Set Controllo = Screen.ActiveControl
  Set Frm = Screen.ActiveForm
  Larghezza = Controllo.Width
  posiz = Controllo.TabIndex
  DoCmd.RunCommand acCmdSelectRecord
  For Each Ctr In Frm.Section(0).Controls
       If Ctr.TabIndex > posiz Then
             Ctr.Left = Ctr.Left - Larghezza
             Frm.Controls(Ctr.name & " Etichetta").Left = Ctr.Left
       ElseIf Ctr.TabIndex = posiz Then
             Ctr.Visible = False
             Frm.Controls(Ctr.name & " Etichetta").Visible = False
             NumHideColumn = NumHideColumn + 1
       End If
  Next Ctr
  '
  Set Ctr = Nothing
  Set Controllo = Nothing
  Set Frm = Nothing
End Function
Ciao
-- 
@Alex (Alessandro Baraldi)
---------------------------------------------------------------------------
http://www.sitocomune.com/
http://www.mantuanet.it/alessandro.baraldi/
---------------------------------------------------------------------------

 ha scritto nel messaggio
news:4235c3db$0$32338$5fc...@news.tiscali.it...

...come sempre grazie a tutti per le dritte...mi metto subito al lavoro...
buona giornata
Femto