recently I received help on how to ensure that a user don't close a form before he/she completes all outstanding entries on a calendar.
That works perfectly, but now the problem is I have to complete all entries up to say the year 2020. I only want the handler to check entries from january 2010 up to the cureent day. Ho can I do that?
The code I have is my time mangement module and looks like this......
Public Sub CloseMyApplication(frm As Form) Dim MyLabel As Control For Each MyLabel In frm.Controls If TypeOf MyLabel Is Label Then If MyLabel.ForeColor = vbRed Then MsgBox "Please complete all outstanding entries", , "Message" Cancel = True Else End If If MyLabel.ForeColor = vbWhite Then JobBook.Show TimeManage.Hide End If End If Next MyLabel End Sub