• Code:
    Private Sub show_detail()
   On Error GoTo ErrHnd
    Dim EmpName, CatName As String
    Dim intCarried, intAllocated, intAdtnl, intAllot, intLevTaken As Integer
    Dim rsLev As ADODB.Recordset
    intCarried = 0: intAllocated = 0: intAdtnl = 0: intAllot = 0: intLevTaken = 0
    ListView1.ListItems.Clear
    
    If (optnsummary.Value = True) Then  '========== Summary start
...