I have an Access 2013 database. I would like to open the 1st form, wait 15 seconds close it then open the next form, wait 15 seconds close it etc etc. for around 10 different forms.
I initially tried this using Macros eg OnTimer - 15000 and then run a Macro to Close Window, open the Next Form and then Maximize it. This worked fine but when it gets to the last form it does loop back to the first one as I wanted but then it does not jump to the second form it goes back to the last one and then runs between the first form and last form i.e. PossibleMissedHistoryCard (1st form) and SFDailyWeldPrepFinalInspections8 (last form).
I also tried using code as below (yes some has already been commented out) but this opened the form but did not display the form correctly just one field on an imcomplete form.
Function autoexec()
DoCmd.OpenForm "PossibleMissedHistoryCards"
DoCmd.Maximize
lngtimer2 = Timer()
'Do Until Timer() > lngtimer2 + 20
'Loop
'DoCmd.Close
'DoCmd.OpenForm "SFDailyFinishturn1"
'DoCmd.Maximize
'lngtimer3 = Timer()
'Do Until Timer() > lngtimer3 + 20
'Loop
'DoCmd.Close
'DoCmd.OpenForm "SFConnectorsArrivingatCMM2"
'DoCmd.Maximize
'lngtimer4 = Timer()
'Do Until Timer() > lngtimer4 + 20
'Loop
'DoCmd.Close
'DoCmd.OpenForm "SFConnectorsDepartedCMMAwaitMilling3"
'DoCmd.Maximize
'lngtimer5 = Timer()
'Do Until Timer() > lngtimer5 + 20
'Loop
'DoCmd.Close
'DoCmd.OpenForm "SFDailyMilling4"
'DoCmd.Maximize
'lngtimer6 = Timer()
'Do Until Timer() > lngtimer6 + 20
'Loop
'DoCmd.Close
'DoCmd.OpenForm "SFDailyMillingInspection5"
'DoCmd.Maximize
'lngtimer7 = Timer()
'Do Until Timer() > lngtimer7 + 20
'Loop
'DoCmd.Close
'DoCmd.OpenForm "SFDailyPhosphating6"
'DoCmd.Maximize
'lngtimer8 = Timer()
'Do Until Timer() > lngtimer8 + 20
'Loop
'DoCmd.Close
'DoCmd.OpenForm "SFDailyWaitingonNDE7"
'DoCmd.Maximize
'lngtimer9 = Timer()
'Do Until Timer() > lngtimer9 + 20
'Loop
'DoCmd.Close
'DoCmd.OpenForm "SFDailyWeldPrepFinalInspections8"
'DoCmd.Maximize
'lngtimer10 = Timer()
'Do Until Timer() > lngtimer10 + 20
'Loop
'DoCmd.Close
'DoCmd.OpenForm "PossibleMissedHistoryCards"
'DoCmd.Maximize
'lngtimer11 = Timer()
'Do Until Timer() > lngtimer11 + 20
'Loop
End Function
I am not good at writing code so a simple solution would be preferred.
Any help would be appreciated.
Thanks