Option Compare Database Option Explicit Private iCount As Integer Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Nz(Me.txtMustHave.Value, 0) = 0 Or Nz(Me.txtActualFinDate.Value, 0) = 0 Then Me.txtPromiseDelivery.Value = Null Else Me.txtPromiseDelivery.Value = DateDiff("d", Nz([FinCompleteDate], 0), Nz([RequiredBy], 0)) End If If Me.txtPromiseDelivery.Value >= 0 Then iCount = iCount + 1 End If End Sub Private Function getOTDCount() As Double getOTDCount = iCount End Function
Gain unlimited access to on-demand training courses with an Experts Exchange subscription.Get Access
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.