Arbeta med formulärkontroller

1. Ersätta cboStatus med en Ram av Alternativknappar

• Ta först bort cboStatus och dess etikett från formuläret — du ersätter den, inte lägger till den bredvid.
• Dra en Ram-kontroll till formuläret och dra sedan alla tre Alternativknappar inuti Ramens gräns — denna inneslutning gör dem ömsesidigt uteslutande som en grupp.
• Byt namn på varje Alternativknapp individuellt i egenskapsfönstret; själva ramen kan ha en enkel rubrik som "Status" men behöver inget kodvänligt namn om du inte planerar att referera till den direkt.
• Att läsa av valet innebär att kontrollera varje Alternativknapps .Value individuellt med If...ElseIf — det finns ingen enskild egenskap som talar om "vilken i gruppen som är markerad".
• Eftersom cboStatus.Value inte längre finns, behöver cmdSave_Click en status-variabel som byggs utifrån Alternativknapparna och skrivs in i newRow istället.

2. Lägga till två oberoende Kryssrutor

• Dessa placeras direkt på formuläret (inte i ramen) — Kryssrutor utanför en gemensam behållare påverkar aldrig varandra oavsett gruppering.
• För att "bekräfta vid testning" markerar du bara en, sedan den andra, och ser att ingen avmarkerar den första.

3. Lägga till och validera en ListBox

• Fyll den på samma sätt som cboCity fylldes — upprepade .AddItem-anrop i UserForm_Initialize.
• ListIndex = -1 betyder specifikt inget har klickats än — det är exakt det tillståndet som ska kontrolleras innan sparandet får fortsätta.
• Denna kontroll hör hemma i samma valideringsblock som de andra obligatoriska fälten, och läggs till i samma errors-sträng.

4. MultiPage-utmaning

• Dra en MultiPage-kontroll till formuläret — den har två sidor som standard, vilket är precis vad du behöver.
• Byt namn på varje sida via högerklick → Sidordning, eller genom att välja sidfliken och använda egenskapsfönstrets rubrikfält (Caption styr flikens synliga text; det finns ett separat (Name)-fält om du vill referera till en sida i kod).
• Att flytta befintliga kontroller till en sida innebär att dra dem fysiskt till den sidans synliga yta i designvyn — kodreferenser till dem ändras inte alls, eftersom en kontrolls namn inte beror på vilken sida den ligger på.

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

Testanteckningar:

• Punkt 2 (Kryssrutor) har ingen särskild validering — klicka bara på chkWelcomeEmail och chkNewsletter oberoende och bekräfta att varje växlar utan att påverka den andra.
• Punkt 4 (MultiPage) är endast en layoutändring — inga kodändringar behövs utöver det som redan finns här, eftersom varje kontroll behåller sitt eget namn oavsett vilken sida den dras till.
• Observera att cboCity.Value fortfarande används för själva sparandet (newRow.Range(1, 5)), medan lstCities existerar enbart som en separat, självständigt validerad kontroll enligt uppgiften — de två är inte kopplade om du inte själv väljer att utöka det så.