Modules

5.87 Funzione per Abilitare/Disabilitare, Bloaccare/Sbloccare e Mostrare/Nascondere alcuni controlli di una maschera
  Luciano Gori

Con la funzione che segue è possibile Abilitare/Disabilitare, o Bloccare/Sbloccare oppure Mostrare/Nascondere tutti i controlli di una maschera che abbiano un determinato TAG.
Function CheckControlli(StrForm As String, StrTag As String, StrTipo As String, BooValue As Boolean)
    ' Titolo:       CheckControlli
    ' Data:         8 Dicembre 2005
    ' Versione:     1.0
    ' Modificata:
    ' Autore:       ElleGi
    ' Accetta:      StrForm --> Nome della form; StrTag --> Valore del tag;
    '               StrTipo --> "Enabled", "Visible", "Locked"; Boovalue --> "True", "False"
    ' Esegue:       Nasconde/Mostra, Abilita/Disabilita, Blocca/Sbocca i controlli delle forms
    ' Restituisce:
    ' Esempio:      Call CheckControlli(Me.FormName, 1, "Locked", "True")
    ' Note:
    On Error GoTo Err_GestioneErrori
    Dim Ctrl As Control
    For Each Ctrl In Forms(StrForm).Controls  
        Select Case StrTipo
        Case "Enabled"
            If Ctrl.Tag = StrTag Then Ctrl.Enabled = BooValue
        Case "Visible"
            If Ctrl.Tag = StrTag Then Ctrl.Visible = BooValue
        Case "Locked"
            If Ctrl.Tag = StrTag Then Ctrl.Locked = BooValue
        End Select     
    Next  
Exit_GestioneErrori:
    Exit Function
Err_GestioneErrori:
    Select Case Err.Number
    Case Else
        MsgBox "Si prega l'utente di annotare questi riferimenti e di comunicarli al programmatore." & vbCrLf & vbCrLf & "Errore nš     : " & Err.Number & vbCrLf & vbCrLf & "Descrizione : " & Err.Description, 48, " Errore"
    End Select
    Resume Exit_GestioneErrori
End Function
Le modalità di richiamo della funzione sono indicate in righe di commento poste all'inizio del codice VBA della funzione stessa.

Download:
 
  MyFormControls97.zip (22Kb) MSAccess97 database


Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.