Private Sub CmdFamily_Click()
On Error GoTo Err_Family

DoCmd.ApplyFilter , "PackageName='Family'"

Exit_Family:
            Exit Sub
        
Err_Family:
            MsgBox "CANNOT Find Family Room Package!!'"
            Resume Exit_Family
End Sub

Private Sub cmdMore_Click()
On Error GoTo Err_More

DoCmd.OpenForm "FRM Pop Staff Information", , , "StaffID='" & StaffID & "'"

Exit_More:
            Exit Sub
            
Err_More:
            MsgBox "CANNOT Show More Detail!!"
            Resume Exit_More
End Sub