I want to wait 15 seconds then open the next form, wait 15 second, open the next form

[colinhen]

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

[aytee111]

Here is a function to wait:

Public Function Pause(NumberOfSeconds As Variant)
    On Error GoTo Error_GoTo    Dim PauseTime As Variant
    Dim Start As Variant
    Dim Elapsed As Variant

    PauseTime = NumberOfSeconds
    Start = Timer
    Elapsed = 0
    Do While Timer < Start + PauseTime
        Elapsed = Elapsed + 1
        If Timer = 0 Then
            ' Crossing midnight
            PauseTime = PauseTime - Elapsed
            Start = 0
            Elapsed = 0
        End If
        DoEvents
    Loop

Exit_GoTo:
    On Error GoTo 0
    Exit Function
Error_GoTo:
    Debug.Print Err.Number, Err.Description, Erl
    GoTo Exit_GoTo
End Function

There needs to be a way to stop this looping around if you are going from the last back to the first.

Do Until .... ???
DoCmd.OpenForm "form1name"
Call Pause(15)
Docmd.Close
.....
Loop

[davegri]

This will work and it's much like your original code. It's recursive in that it calls itself over and over (see last line of code).
I assume you have an autoexec macro that calls this code at BOJ.

Option Compare Database
Option Explicit


Function autoexec()
Dim lngtimer2 As Long
DoCmd.OpenForm "PossibleMissedHistoryCards"
DoCmd.Maximize
lngtimer2 = Timer()
Do Until Timer() > lngtimer2 + 20
DoEvents
Loop
DoCmd.Close
DoCmd.OpenForm "SFDailyFinishturn1"
DoCmd.Maximize
lngtimer2 = Timer()
Do Until Timer() > lngtimer2 + 20
DoEvents
Loop
DoCmd.Close
DoCmd.OpenForm "SFConnectorsArrivingatCMM2"
DoCmd.Maximize
lngtimer2 = Timer()
Do Until Timer() > lngtimer2 + 20
DoEvents
Loop
DoCmd.Close
DoCmd.OpenForm "SFConnectorsDepartedCMMAwaitMilling3"
DoCmd.Maximize
lngtimer2 = Timer()
Do Until Timer() > lngtimer2 + 20
DoEvents
Loop
DoCmd.Close
DoCmd.OpenForm "SFDailyMilling4"
DoCmd.Maximize
lngtimer2 = Timer()
Do Until Timer() > lngtimer2 + 20
DoEvents
Loop
DoCmd.Close
DoCmd.OpenForm "SFDailyMillingInspection5"
DoCmd.Maximize
lngtimer2 = Timer()
Do Until Timer() > lngtimer2 + 20
DoEvents
Loop
DoCmd.Close
DoCmd.OpenForm "SFDailyPhosphating6"
DoCmd.Maximize
lngtimer2 = Timer()
Do Until Timer() > lngtimer2 + 20
DoEvents
Loop
DoCmd.Close
DoCmd.OpenForm "SFDailyWaitingonNDE7"
DoCmd.Maximize
lngtimer2 = Timer()
Do Until Timer() > lngtimer2 + 20
DoEvents
Loop
DoCmd.Close
DoCmd.OpenForm "SFDailyWeldPrepFinalInspections8"
DoCmd.Maximize
lngtimer2 = Timer()
Do Until Timer() > lngtimer2 + 20
DoEvents
Loop
DoCmd.Close
Call autoexec
End Function

[ssanfu]

Here is another way using a table/recordset in code.

Enter the form name(s) in a table (tblFormNames) and set the order to be displayed using the Sequence field.
I have the delay (variable named DelayLen) set to 3 so it doesn't take a lifetime to see the forms.
Opening the dB starts the looping. The only way to stop the forms is to press ctl-G , then click on the Reset icon.


Code looks like

Public Function Kiosk()
    Dim d As DAO.Database
    Dim r As DAO.Recordset
    Dim sSQL As String
    Dim RC As Long
    Dim lngtimer As Long
    Dim knt As Integer
    Dim DelayLen As Integer

    DelayLen = 3      '<<<<----- set delay
    Set d = CurrentDb

    sSQL = "SELECT FormName"
    sSQL = sSQL & " FROM tblFormNames"
    sSQL = sSQL & " WHERE Selected = True"
    sSQL = sSQL & " ORDER BY Sequence"

    Set r = d.OpenRecordset(sSQL)
    r.MoveFirst
    RC = r.RecordCount

    Do Until False
        '    Debug.Print r("formname")
        DoCmd.OpenForm r("formname")
        DoCmd.Maximize
        lngtimer = Timer()
        Do Until Timer() > lngtimer + DelayLen
            DoEvents
        Loop
        DoCmd.Close

        knt = knt + 1
        If knt = RC Then
            r.MoveFirst
            knt = 0
        Else
            r.MoveNext
        End If
    Loop

    r.Close
    Set r = Nothing
    Set d = Nothing
End Function

[colinhen]

Thanks very much for this. I will try this if required. I actually managed to get the db to perform the way I wanted by using macros. If I use the Close Window command but Omit the name of the Form it is working the way I want.