Lavorare con i controlli modulo

1. Sostituzione di cboStatus con un Frame di OptionButton

• Eliminare prima cboStatus e la sua etichetta dal form — lo si sta sostituendo, non aggiungendo accanto.
• Trascinare un controllo Frame sul form, quindi trascinare tutti e tre gli OptionButton all'interno del bordo del Frame — questa inclusione li rende mutuamente esclusivi come gruppo.
• Rinominare ciascun OptionButton individualmente nella finestra delle Proprietà; il Frame può mantenere una Caption semplice come "Status" ma non necessita di un nome adatto al codice a meno che non si intenda farvi riferimento direttamente.
• Per leggere la selezione occorre controllare il .Value di ciascun OptionButton individualmente con If...ElseIf — non esiste una proprietà unica che indichi "quale del gruppo è selezionato".
• Poiché cboStatus.Value non esiste più, in cmdSave_Click serve una variabile status costruita dagli OptionButton, da scrivere in newRow al suo posto.

2. Aggiunta di due CheckBox indipendenti

• Queste si trovano direttamente sul form (non all'interno del Frame) — le CheckBox fuori da un contenitore condiviso non si influenzano mai a vicenda, indipendentemente dal raggruppamento.
• Per "confermare durante il test", basta selezionare una, poi l'altra, e verificare che nessuna deselezioni la prima.

3. Aggiunta e validazione di una ListBox

• Popolarla nello stesso modo in cui veniva popolata cboCity — chiamate ripetute a .AddItem in UserForm_Initialize.
• ListIndex = -1 significa nessuna selezione effettuata — questa è la condizione esatta da verificare prima di consentire il salvataggio.
• Questo controllo va inserito nello stesso blocco di validazione degli altri campi obbligatori, aggiungendo all'eventuale stringa errors.

4. Sfida MultiPage

• Trascinare un controllo MultiPage sul form — viene fornito con due pagine di default, che sono esattamente quante servono.
• Rinominare ciascuna pagina tramite il menu contestuale → Page Order, oppure selezionando la scheda della pagina e usando il campo Caption nella finestra delle Proprietà (Caption controlla il testo visibile sulla scheda; esiste anche un campo (Name) separato se si vuole fare riferimento a una pagina per nome nel codice).
• Spostare i controlli esistenti su una pagina significa trascinarli fisicamente nell'area visibile di quella pagina in visualizzazione struttura — i riferimenti nel codice non cambiano, poiché il nome di un controllo non dipende dalla pagina su cui si trova.

Private Sub UserForm_Initialize()
    cboCity.AddItem "Chicago"
    cboCity.AddItem "Boston"
    cboCity.AddItem "Austin"
    cboCity.AddItem "Seattle"
    cboCity.AddItem "Denver"

    lstCities.AddItem "Chicago"
    lstCities.AddItem "Boston"
    lstCities.AddItem "Austin"
    lstCities.AddItem "Seattle"
    lstCities.AddItem "Denver"
End Sub

Private Sub cmdCancel_Click()
    Unload Me
End Sub

Private Sub cmdSave_Click()
    Dim tbl As ListObject
    Dim newRow As ListRow
    Dim errors As String
    Dim status As String

    ' --- Reset field colors ---
    txtCompanyName.BackColor = vbWhite
    txtContact.BackColor = vbWhite
    txtEmail.BackColor = vbWhite

    ' --- Required field checks ---
    If Trim(txtCompanyName.Value) = "" Then
        errors = errors & "- Company Name is required" & vbNewLine
        txtCompanyName.BackColor = RGB(255, 199, 206)
    End If

    If Trim(txtContact.Value) = "" Then
        errors = errors & "- Contact is required" & vbNewLine
        txtContact.BackColor = RGB(255, 199, 206)
    End If

    If Trim(txtEmail.Value) = "" Then
        errors = errors & "- Email is required" & vbNewLine
        txtEmail.BackColor = RGB(255, 199, 206)
    End If

    ' --- Status via OptionButtons ---
    If optActive.Value = True Then
        status = "Active"
    ElseIf optInactive.Value = True Then
        status = "Inactive"
    ElseIf optProspect.Value = True Then
        status = "Prospect"
    Else
        errors = errors & "- Please select a Status" & vbNewLine
    End If

    ' --- ListBox check ---
    If lstCities.ListIndex = -1 Then
        errors = errors & "- Please select a city from the list" & vbNewLine
    End If

    If errors <> "" Then
        MsgBox "Please fix the following:" & vbNewLine & errors, vbExclamation
        Exit Sub
    End If

    ' --- All checks passed — safe to save now ---
    Set tbl = ThisWorkbook.Worksheets("Customers").ListObjects("tblCustomers")
    Set newRow = tbl.ListRows.Add

    newRow.Range(1, 1).Value = "C0" & (tbl.ListRows.Count + 100)
    newRow.Range(1, 2).Value = txtCompanyName.Value
    newRow.Range(1, 3).Value = txtContact.Value
    newRow.Range(1, 4).Value = txtEmail.Value
    newRow.Range(1, 5).Value = cboCity.Value
    newRow.Range(1, 6).Value = status

    If chkWelcomeEmail.Value = True Then
        MsgBox "A welcome email would be sent to " & txtEmail.Value & "."
    End If

    MsgBox txtCompanyName.Value & " was added successfully."
    Unload Me
End Sub

Note di test:

• Il punto 2 (CheckBox) non ha una validazione dedicata — basta cliccare su chkWelcomeEmail e chkNewsletter indipendentemente e confermare che ciascuna si attivi/disattivi senza influenzare l'altra.
• Il punto 4 (MultiPage) è solo una modifica di layout — non sono necessari cambiamenti di codice oltre a quelli già presenti, poiché ogni controllo mantiene il proprio nome indipendentemente dalla pagina su cui viene trascinato.
• Si noti che cboCity.Value viene ancora utilizzato per il salvataggio effettivo (newRow.Range(1, 5)), mentre lstCities esiste solo come controllo separato e validato indipendentemente secondo la consegna — i due non sono collegati tra loro a meno che non si scelga di estendere la funzionalità.