VERSION  1 . 0  CLASS
BEGIN
  MultiUse = - 1   'True
END
Attribute VB_Name = "Form_dlgPersonReportOption"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database
Option Explicit

Public bPrintOK
Public iPersonID

Dim tbl As Form_tblPerson
Dim gr As Form_grPerson
Dim sFrom As String, sWhere As String, sOrderBy As String
Dim sRecordsource As String

Private Sub Form_Open(Cancel As Integer)

    Set tbl = Forms("tblPerson")
    Set gr = tbl.grPerson.Form
    
    Me!iMonth.Enabled = False
    Me!nDays.Enabled = False
    Me!iDayFrom.Enabled = False
    Me!iMonthFrom.Enabled = False
    Me!iDayTo.Enabled = False
    Me!iMonthTo.Enabled = False
    Me!bPrintAge = True
    Me!nPersonAge =  8 
    If Month(Now) =  12  Then
        Me!iMonth =  1 
    Else
        Me!iMonth = Month(Now) +  1 
    End If
    Me!iMonthFrom = Month(Now)
    Me!iDayFrom =  1 
    Me!iMonthTo = Month(Now)
    Me!iDayTo = DFirst("nDays", "tbMonth", "iMonth=" & CStr(Me!iMonthTo))
    
    Me!optPrintFilter1.Enabled = False
    Me!optPrintFilter =  2 
    If Len(Me.OpenArgs) >  0  Then
        iPersonID = CInt(Me.OpenArgs)
        Me!optPrintFilter1.Enabled = True
        Me!optPrintFilter =  1 
    End If

End Sub

Private Sub optPrintFilter_AfterUpdate()

    Me!nDays.Enabled = False
    Me!iMonth.Enabled = False
    Me!iDayFrom.Enabled = False
    Me!iMonthFrom.Enabled = False
    Me!iDayTo.Enabled = False
    Me!iMonthTo.Enabled = False
    If Me!optPrintFilter =  3  Then
        Me!iMonth.Enabled = True
        Me!iMonth.SetFocus
    ElseIf Me!optPrintFilter =  6  Then
        Me!nDays.Enabled = True
        Me!nDays.SetFocus
    ElseIf Me!optPrintFilter =  7  Then
        Me!iDayFrom.Enabled = True
        Me!iMonthFrom.Enabled = True
        Me!iDayTo.Enabled = True
        Me!iMonthTo.Enabled = True
        Me!iDayFrom.SetFocus
    End If
    
End Sub

Private Sub iDayFrom_AfterUpdate()

    If IsNull(Me!iDayFrom) Then
        Exit Sub
    End If
    If CInt(Me!iDayFrom) <  1  Then
        Beep
        MsgBox _
            "Неправильно задана дата ""от"".", _
            vbExclamation + vbOKOnly
        Me!iDayFrom =  1 
        Exit Sub
    End If
    If _
        Not IsNull(Me!iMonthFrom) And _
        CInt(Me!iDayFrom) > DFirst("nDays", "tbMonth", "iMonth=" & CInt(Me!iMonthFrom)) _
    Then
        Beep
        MsgBox _
            "Неправильно задана дата ""от"".", _
            vbExclamation + vbOKOnly
        Me!iDayFrom.SetFocus
        Exit Sub
    End If
    If _
        Not IsNull(Me!iMonthTo) And _
        Not IsNull(Me!iDayTo) And _
        Not IsNull(Me!iMonthFrom) And _
        Me!iMonthFrom = Me!iMonthTo And CInt(Me!iDayFrom) > CInt(Me!iDayTo) _
    Then
        Beep
        MsgBox _
            "Дата ""от"" должна предшествовать дате ""до"" .", _
            vbExclamation + vbOKOnly
        Me!iDayFrom.SetFocus
        Exit Sub
    End If

End Sub

Private Sub iDayTo_AfterUpdate()

    If IsNull(Me!iDayTo) Then
        Exit Sub
    End If
    If CInt(Me!iDayTo) <  1  Then
        Beep
        MsgBox _
            "Неправильно задана дата ""от"".", _
            vbExclamation + vbOKOnly
        Me!iDayTo =  1 
        Exit Sub
    End If
    If _
        Not IsNull(Me!iMonthTo) And _
        CInt(Me!iDayTo) > DFirst("nDays", "tbMonth", "iMonth=" & CStr(Me!iMonthTo)) _
    Then
        Beep
        MsgBox _
            "Неправильно задана дата ""от"".", _
            vbExclamation + vbOKOnly
        Me!iDayTo.SetFocus
        Exit Sub
    End If
    If _
        Not IsNull(Me!iMonthFrom) And _
        Not IsNull(Me!iDayFrom) And _
        Not IsNull(Me!iMonthTo) And _
        CInt(Me!iMonthFrom) = CInt(Me!iMonthTo) And CInt(Me!iDayFrom) > CInt(Me!iDayTo) _
    Then
        Beep
        MsgBox _
            "Дата ""от"" должна предшествовать дате ""до"" .", _
            vbExclamation + vbOKOnly
        Me!iDayTo.SetFocus
        Exit Sub
    End If

End Sub

Private Sub iMonthFrom_AfterUpdate()
    
    If IsNull(Me!iDayFrom) Then
        Me!iDayFrom =  1 
    End If
    If _
        CInt(Me!iDayFrom) > DFirst("nDays", "tbMonth", "iMonth=" & CInt(Me!iMonthFrom)) _
    Then
        Me!iDayFrom = DFirst("nDays", "tbMonth", "iMonth=" & CInt(Me!iMonthFrom))
        Beep
        MsgBox _
            "Неправильно задана дата ""до"".", _
            vbExclamation + vbOKOnly
    End If
    If Not IsNull(Me!iMonthTo) And CInt(Me!iMonthFrom) > CInt(Me!iMonthTo) Then
        Beep
        MsgBox _
            "Дата ""от"" должна предшествовать дате ""до"" .", _
            vbExclamation + vbOKOnly
        Me!iDayTo.SetFocus
        Exit Sub
    End If
    If _
        Not IsNull(Me!iMonthFrom) And Not IsNull(Me!iDayFrom) And _
        Not IsNull(Me!iMonthTo) And Not IsNull(Me!iDayTo) And _
        ( _
            CInt(Me!iMonthFrom) > CInt(Me!iMonthTo) Or _
            CInt(Me!iMonthFrom) = CInt(Me!iMonthTo) And CInt(Me!iDayFrom) > CInt(Me!iDayTo) _
        ) _
    Then
        Beep
        MsgBox _
            "Дата ""от"" должна предшествовать дате ""до"" .", _
            vbExclamation + vbOKOnly
        Me!iDayTo.SetFocus
        Exit Sub
    End If

End Sub

Private Sub iMonthTo_AfterUpdate()

    If IsNull(Me!iDayTo) Then
        Me!iDayTo = DFirst("nDays", "tbMonth", "iMonth=" & CStr(Me!iMonthTo))
    End If
    If _
        CInt(Me!iDayTo) > DFirst("nDays", "tbMonth", "iMonth=" & CStr(Me!iMonthTo)) _
    Then
        Beep
        MsgBox _
            "Неправильно задана дата ""до"".", _
            vbExclamation + vbOKOnly
    End If
    If Not IsNull(Me!iMonthTo) And CInt(Me!iMonthFrom) > CInt(Me!iMonthTo) Then
        Beep
        MsgBox _
            "Дата ""от"" должна предшествовать дате ""до"" .", _
            vbExclamation + vbOKOnly
        Me!iDayTo.SetFocus
        Exit Sub
    End If
    If _
        Not IsNull(Me!iMonthFrom) And Not IsNull(Me!iDayFrom) And _
        Not IsNull(Me!iMonthTo) And Not IsNull(Me!iDayTo) And _
        ( _
            CInt(Me!iMonthFrom) > CInt(Me!iMonthTo) Or _
            CInt(Me!iMonthFrom) = CInt(Me!iMonthTo) And CInt(Me!iDayFrom) > CInt(Me!iDayTo) _
        ) _
    Then
        Beep
        MsgBox _
            "Дата ""от"" должна предшествовать дате ""до"" .", _
            vbExclamation + vbOKOnly
        Me!iDayTo.SetFocus
        Exit Sub
    End If

End Sub

Private Sub bPrintAge_AfterUpdate()
    If Me!bPrintAge Then
        Me!nPersonAge.Enabled = True
    Else
        Me!nPersonAge.Enabled = False
    End If
End Sub

Private Sub btnOK_Click()
On Error GoTo Err_Label

    If Me!optPrintFilter =  3  Then
        If IsNull(Me!iMonth) Then
            Beep
            MsgBox _
                "Для отбора по условиям заданния месяца " & _
                "выберите любой месяц из списка", _
                vbExclamation + vbOKOnly
            Me!iMonth.SetFocus
            Exit Sub
        End If
    End If
    If Me!optPrintFilter =  6  Then
        If Not IsNull(Me!nDays) Then
            If IsNumeric(Me!nDays) Then
                If CInt(Me!nDays) >=  0  And CInt(nDays) <=  366  Then
                    GoTo FILTER_OK
                End If
            End If
        End If
        Beep
        MsgBox _
            "Для отбора по условиям даты задайте число дней.", _
            vbExclamation + vbOKOnly
        Me!nDays.SetFocus
        Exit Sub
    End If
    If Me!optPrintFilter =  7  Then
        If _
            IsNull(Me!iMonthFrom) Or IsNull(Me!iDayFrom) Or _
            IsNull(Me!iMonthTo) Or IsNull(Me!iDayTo) _
        Then
            Beep
            MsgBox _
                "Для отбора по условиям диапазона дат задайте даты от и до.", _
                vbExclamation + vbOKOnly
            Exit Sub
        End If
        If _
            CInt(Me!iDayFrom) <  1  Or _
            CInt(Me!iDayFrom) > DFirst("nDays", "tbMonth", "iMonth=" & CInt(Me!iMonthFrom)) _
        Then
            Beep
            MsgBox _
                "Неправильно задана дата ""от"".", _
                vbExclamation + vbOKOnly
            Exit Sub
        End If
        If _
            CInt(Me!iDayTo) <  1  Or _
            CInt(Me!iDayTo) > DFirst("nDays", "tbMonth", "iMonth=" & CStr(Me!iMonthTo)) _
        Then
            Beep
            MsgBox _
                "Неправильно задана дата ""до"".", _
                vbExclamation + vbOKOnly
            Exit Sub
        End If
        If _
            Me!iMonthFrom > Me!iMonthTo Or _
            Me!iMonthFrom = CInt(Me!iMonthTo) And CInt(Me!iDayFrom) > CInt(Me!iDayTo) _
        Then
            Beep
            MsgBox _
                "Дата ""от"" должна предшествовать дате ""до"" .", _
                vbExclamation + vbOKOnly
            Exit Sub
        End If
    End If
    If Me!bPrintAge Then
        If IsNull(Me!nPersonAge) Then
            Beep
            MsgBox _
                "Для включения возрастных ограничений задайте минимальный возраст, " & _
                "начиная с которого клиент будет попадать в список рассылки.", _
                vbExclamation + vbOKOnly
            Me!nPersonAge.SetFocus
            Exit Sub
        End If
    End If
    
FILTER_OK:
    
'   SELECT *
'   FROM qrPersonBirthdayAddress
'   WHERE
'       iPersonID=1 AND
'       nPersonAge>8 AND
'       bPersonIsVipClient=True
'   ORDER BY iMonth, iDay;
    
    sFrom = "qrPersonBirthdayAddress"
    sWhere = MakeWhere
    sOrderBy = MakeOrderBy
    sRecordsource = "SELECT * " & _
        "FROM " & sFrom & " " & _
        "WHERE " & sWhere & " " & _
        "ORDER BY " & sOrderBy
    DoCmd.OpenForm _
        "dlgPersonReportList", acNormal, , , _
        acFormEdit, acWindowNormal, sRecordsource
    Me.Visible = False
    Forms!dlgPersonReportList.SetFocus

EXIT_LABEL:
    Exit Sub

Err_Label:
    MsgBox Err.Description
    Resume EXIT_LABEL
    
End Sub

Private Sub btnCancel_Click()
On Error GoTo Err_Label

    DoCmd.Close acForm, Me.Name

EXIT_LABEL:
    Exit Sub

Err_Label:
    MsgBox Err.Description
    Resume EXIT_LABEL
    
End Sub

Public Function MakeWhere()

    Dim s As String: s = ""
    Dim i As Integer: i = Month(Now)
    
    Select Case optPrintFilter
    Case  1 
        s = "iPersonID=" & CStr(iPersonID)
    Case  2 
        s = ""
    Case  3 
        i = Me!iMonth
        s = "Month(dtPersonBirthday)=" & CStr(i)
    Case  4 
        i = Month(Now)
        s = "Month(dtPersonBirthday)=" & CStr(i)
    Case  5 
        i = Month(Now) +  1 : If i =  13  Then i =  1 
        s = "Month(dtPersonBirthday)=" & CStr(i)
    Case  6 
        nDays = CInt(Me!nDays)
        s = "nPersonBirthdayDiff<" & CStr(CInt(Me!nDays))
    Case  7 
        s = _
            "(" & _
                "iMonth=" & CInt(Me!iMonthFrom) & " AND " & _
                "iDay>=" & CStr(CInt(Me!iDayFrom)) & _
                " OR " & _
                "iMonth>" & CInt(Me!iMonthFrom) & _
            ") AND (" & _
                "iMonth=" & CStr(Me!iMonthTo) & " AND " & _
                "iDay<=" & CStr(CInt(CInt(Me!iDayTo))) & _
                " OR " & _
                "iMonth<" & CStr(Me!iMonthTo) & _
            ")"
    End Select
    
    If Me!bPrintAge Then
        If Len(s) >  0  Then
            s = s & " AND "
        End If
        s = s & "nPersonAge>" & CStr(Me!nPersonAge)
    End If
    If tbl.bPersonIsClient And Not tbl.bPersonIsVipClient Then
        If Len(s) >  0  Then
            s = s & " AND "
        End If
        s = s & "bPersonIsClient=True"
    End If
    If tbl.bPersonIsClient And tbl.bPersonIsVipClient Then
        If Len(s) >  0  Then
            s = s & " AND "
        End If
        s = s & "bPersonIsVipClient=True"
    End If
    
    MakeWhere = s

End Function

Public Function MakeOrderBy()

    Dim s As String: s = ""
    
    Select Case Me!optOrderBy
    Case  1 : s = "sPersonAlias, iMonth, iDay"
    Case  2 : s = "iMonth, iDay, sPersonAlias"
    End Select
    
    MakeOrderBy = s

End Function