Day Tracker (1 Viewer)

Status
Not open for further replies.

isladogs

MVP / VIP
Local time
Today, 08:27
Joined
Jan 14, 2017
Messages
18,186
Someone asked me to create a simple day tracker for counting the number of days since an event or until an event

I thought I'd upload it in case its of any use to anyone else
There's nothing at all 'fancy' about it.

However anyone unfamiliar with the syntax used for easily coding multiple repeated events may find this worth adapting for other purposes

For example:
Code:
Private Sub InitialiseForm()

    'clear previous values
    For I = 1 To 12
        Me("lblDays" & I).Caption = ""
        Me("lblDays" & I).Visible = False
    Next

 'populate controls
    For I = 1 To 6
        Me("lblDate" & I) = Nz(DLookup("Event", "tblDaysFrom", "ID = " & I), "")
        Me("txtDate" & I) = Nz(DLookup("StartDate", "tblDaysFrom", "ID = " & I), "")
        
        dteDate = Nz(DLookup("StartDate", "tblDaysFrom", "ID = " & I), Date)
        Me("lblDays" & I).Caption = Nz(DateDiff("d", dteDate, Date), 0)
        
        If Me("lblDays" & I).Caption > 0 Then Me("lblDays" & I).Visible = True
    Next
    
    For I = 7 To 12
        Me("lblDate" & I) = Nz(DLookup("Event", "tblDaysTo", "ID = " & (I - 6)), "")
        Me("txtDate" & I) = Nz(DLookup("EndDate", "tblDaysTo", "ID = " & (I - 6)), "")
        
        dteDate = Nz(DLookup("EndDate", "tblDaysTo", "ID = " & (I - 6)), Date)
        Me("lblDays" & I).Caption = Nz(DateDiff("d", Date, dteDate), 0)
        
        If Me("lblDays" & I).Caption > 0 Then Me("lblDays" & I).Visible = True
    Next
    
End Sub
 

Attachments

  • DayTracker.accdb
    496 KB · Views: 591
  • DayTracker.PNG
    DayTracker.PNG
    17.4 KB · Views: 495
Status
Not open for further replies.

Users who are viewing this thread

Top Bottom