I need a label on a form that displays the difference between 2 dates,

[mjbuk]

I am trying to make a form that tells the user how many days they have until a certain date.

This is what I have done so far:-

Private Sub txtInstallDate_AfterUpdate()

Me.txtToday.Value = Now()

Me.txtWhen = DateDiff("d", Me.txtToday, Me.txtInstallDate, vbMonday, vbFirstJan1) & " Working days until " & Me.txtRouterID & " " & Me.txtEdgeID & " are Installed at " & Me.txtSiteIndex & "- " & Me.txtSiteName

End Sub

This works. The text box tells the user how many days until the install date.

How do I get the text box to change and do the relevant calculation for the current record, as I move through the records, because at the moment it only displays the message for the last record I updated.

 

[fmbpcsup]

try putting:

txtInstallDate_AfterUpdate

in the form's current event. You can change the value in an existing record or see the calculation when you move to a new record.

 

[JerryDennison]

Move your code to the controlsource of each unbound control respectively. Then as the control values change that these controls use they will automatically change whith them. For example, in the txtToday controlsource use:
= Now()

and in the txtWhen controlsource use:
= DateDiff("d", txtToday, txtInstallDate, vbMonday, vbFirstJan1) & " Working days until " & txtRouterID & " " & txtEdgeID & " are Installed at " & txtSiteIndex & "- " & txtSiteName

note: you cannot use the Me object in the controlsource property. If you need to reference the form you'll have to use the full path to the form.

= DateDiff("d", Forms!FormName!txtToday, ...)