Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
Private Sub Form_Load() Dim intWeekday 'place and size the popup form DoCmd.MoveSize 3.4 * 1440, 5.7 * 1440, 3.6 * 1440, 3.75 * 1440 'default callback date to Monday of next week intWeekday = Weekday(Date, vbSunday) 'gets day number of current date If intWeekday >= 2 Then 'finds relative weekday position of current date vs. Monday (e.g. Tue=-1) intWeekday = 2 - intWeekday 'sets offset variable used below End If Me.oleDate = Now() + 7 + intWeekday 'offsets current date to this Monday, advances result 7 days (next Mon) End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.