Microsoft Access - процент от сетки - PullRequest
0 голосов
/ 10 июля 2020

Я создал сетку флажков 15x15 в форме. Каждый флажок сохраняется в таблице tblDiscolourationGrid с именем, являющимся ссылкой, например: A1B1 et c ...

Теперь я хотел бы вычислить процент отмеченных флажков ie: (количество флажков = True) / 225, где 225 - (15x15) ie: общее количество флажков. Любая помощь приветствуется.

введите описание изображения здесь

1 Ответ

0 голосов
/ 10 июля 2020

Подсчитайте флажки и отмеченные, например (воздушный код):

Private Sub ButtonCheck_Click()

    Dim Control As Access.Control
    
    Dim Total   As Integer
    Dim Checked As Integer
    
    For Each Control In Me.Controls
        If Control.ControlType = acCheckBox Then
            Total = Total + 1
            Checked = Checked + Abs(Nz(Control.Value, False))
        End If
    Next
    
    Me!TotalCheckedCheckBoxes.Value = Checked / Total

End Sub
...