isladogs
MVP / VIP
- Local time
- Today, 10:22
- 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:
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