F_User_List.def

CodeBehindForm
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database
Option Explicit

Private Sub cmdNew_Click()
    DoCmd.OpenForm "User_Edit", datamode:=acFormAdd, windowMode:=acDialog
    Form_Search
End Sub

Private Sub cmdTimetrackingPrint_Click()
    If IsNullOrEmpty(Me.txtTimetrackingStartDate) Then
        MsgBox "Startdatum mag niet leeg zijn.", vbOKOnly
        Me.txtTimetrackingStartDate.SetFocus
        Exit Sub
    End If
    If IsNullOrEmpty(Me.txtTimetrackingEndDate) Then
        MsgBox "Einddatum mag niet leeg zijn.", vbOKOnly
        Me.txtTimetrackingEndDate.SetFocus
        Exit Sub
    End If
    gTimetrackingUserId = Me.subSearch.Form.Id
    gTimetrackingUserStartDate = CDate(Me.txtTimetrackingStartDate)
    gTimetrackingUserEndDate = CDate(Me.txtTimetrackingEndDate)
    DoCmd.OpenReport "Timetracking_Analysis_ByUser", acViewPreview, , "Id=" & gTimetrackingUserId, , acDialog
End Sub

Private Sub txtSearch_AfterUpdate()
    Form_Search
End Sub


Private Sub Form_Search()
    Me.subSearch.Requery
End Sub

Private Sub cmdClearSearch_Click()
    Me.txtSearch = Null
    Form_Search
End Sub

Private Sub txtTimetrackingEndDate_AfterUpdate()
    TimetrackingUpdateFilter
End Sub

Private Sub txtTimetrackingStartDate_AfterUpdate()
    TimetrackingUpdateFilter
End Sub

Private Sub TimetrackingUpdateFilter()
Dim strWhere As String
Dim t As String
Dim dt As Date

    If NotIsNullOrEmpty(Me.txtTimetrackingStartDate) And NotIsNullOrEmpty(Me.txtTimetrackingEndDate) Then
        If CDate(Me.txtTimetrackingStartDate) > CDate(Me.txtTimetrackingEndDate) Then
            dt = CDate(Me.txtTimetrackingStartDate)
            Me.txtTimetrackingStartDate = CDate(Me.txtTimetrackingEndDate)
            Me.txtTimetrackingEndDate = dt
        End If
    End If

    If NotIsNullOrEmpty(Me.txtTimetrackingStartDate) Then
        strWhere = "[StartDate]>#" & Format(CDate(Me.txtTimetrackingStartDate), "yyyy-mm-dd") & "#"
    End If
    If NotIsNullOrEmpty(Me.txtTimetrackingEndDate) Then
        strWhere = omSQLFunctions.WhereAnd(strWhere, "[StartDate]<#" & Format(CDate(Me.txtTimetrackingEndDate) + 1, "yyyy-mm-dd") & "#")
    End If
    If IsNullOrEmpty(strWhere) Then
        Me.subTimetrackings.Form.FilterOn = False
    Else
        Me.subTimetrackings.Form.Filter = strWhere
        Me.subTimetrackings.Form.FilterOn = True
    End If
End Sub