Drastically shorten your training time with WalkMe's advanced online training solution that Guides your trainees to action. Forget about retraining and skyrocket knowledge retention rates.
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.