proprietà di oggetti in una maschera di access

Question

In una macro ho necessità di impostare allo stesso modo le proprietà di diversi oggetti di una maschera; per evitare di allungare la maschera o il codice nei campi della macro o nel codice è possibile indicare i nomi degli oggetti da modificare separati da virgole o altro?

Answer 1

Ciao Fangio,

potresti utilizzare la proprietà Tag dei singoli controlli impostandola a:

Niente se sempre abilitato

PF abilitato se persona fisica

PG abilitato se persona giuridica

Nel Loop di Sandro devi solo interrogare il nomecontrollo.tag.

Ciao Mimmo

P.s. S sei d'accordo cambierei il titolo della tua domanda in:

Abilitare/disabilitare controlli su form in funzione di un valore.

Answer 2

si tratta d una maschera per raccogliere dati anagrafici.

campi:

1. cboTipo
2. txtNome
3. txtCogn
4. txtUff
5. txtCom-nasc
6. dtData-nasc
7. txtProv-nasc
8. txtVia-res
9. txtNum-res
10. txtCAP
11. txtCom-res
12. txtProv-res
13. txtCF-P
14. txtP-IVA
15. TxtCF-G

L'elenco a discesa riporta: "Persona fisica" o "Persona giuridica", nell'evento "su corrente" nel caso di "Persona giuridica" devono essere disabilitati i campi 5, 6, 7 e 12; nel caso di "Persona fisica" devono essere disabilitati i campi 4, 14 e 15

Answer 3

ciao Fangio49,

la tecnica non cambia molto...dacci ulteriori info, quale controllo, quale valore, quale  o quali  proprietà...

grazie.

Sandro

Answer 4

Grazie, sei molto gentile; ma, se capisco bene, con questo codice si interviene su TUTTI i controlli della maschera, io invece ho bisogno di intervenire solo su alcuni di essi a seconda del valore di un determinato controllo.

Answer 5

ciao Fangio49,

ho atteso un po' a risponderti in attesa di altri interventi...visto che nessuno interviene provo io intanto :-).

generando una maschera e una tabella come segue :

con questo codice popolo la tabella1, su evento click del  command button con caption avvia:

Private Sub cmdAvvia_Click()

Dim ctl As Access.Control

Dim prp As Property

For Each ctl In Me.Controls

    For Each prp In ctl.Properties

        DBEngine(0)(0).Execute "insert into tabella1 (nomeControllo, proprieta) values ('" & ctl.Name & "','" & prp.Name & "')", 128

    Next

Next

Set prp = Nothing

Set ctl = Nothing

End Sub

con 8491 righe relative alle proprietà dei 16 command button, 14 testBoxes e 14 comboBoxes, eventi compresi.

con questo codice:

Private Sub cmdChangeCaption_Click()

Dim ctl As Access.Control

For Each ctl In Me.Controls

    If TypeName(ctl) = "commandbutton" Then

        ctl.Caption = "Nuova Etichetta"

    End If

Next

Set ctl = Nothing

End Sub

modifico la caption di tutti  i commandbuttons da comando0 a NuovaEtichetta.

bene, essendo un po' tante le proprietà oggetto di potenziale modifica quali sono quelle su  cui  vorresti intervenire?

Con una macro  credo si possa fare poco....

attendiamo tue news :-)

ciao, Sandro.