2 pop ups laten verschijnen bij opstarten

[sjobbels]

Goedemiddag,

Ik wil graag weten of het mogelijk is om 2 pop-up schermen te laten zien bij het opstarten.
Onderstaande pop-up werkt prima, maar als ik een 2e Private Sub Form_Load() toevoeg op dezelfde manier als hieronder (maar dan verwijs ik naar een tabel activiteiten) dan krijg ik helemaal niets te zien. Hoe kan ik dit het beste aanpakken?

alvast bedankt!

Private Sub Form_Load()

'Bij het opstarten, checken of er binnen nu en 2 maanden contracten aflopen

Dim intStore As Integer

'Tellen hoeveel aflopende contracten er binnen nu en 2 maanden zijn
intStore = DCount("[ContractendatabaseNr]", "[tblContract]", "[EerstVolgendeEinddatum] <=Date()+60")


'Als er geen aflopende contracten zijn dan wordt het startscherm weergegeven
'Anders wordt de pop-up met het aantal aflopende contracten weergegeven
'De gebruiker krijgt de mogelijkheid om deze contracten in te zien.
If intStore = 0 Then
Exit Sub
Else
If MsgBox("Er is / zijn " & intStore & " aflopend(e) contract(en) in een tijdsbestek van nu en 2 maanden" & _
vbCrLf & vbCrLf & "Wil je de aflopende contracten nu zien?", _
vbYesNo, "Aflopende contracten") = vbYes Then
DoCmd.Minimize
DoCmd.OpenForm "frmReminder", acNormal
DoCmd.SelectObject acForm, "frmReminder"
Else
Exit Sub
End If
End If
End Sub

 

[sjobbels]

hoi,

ik heb al zelf een oplossing gevonden, de volgende popup laat ik beginnen door:

Private Sub Form_Current()