Probleempje met pagina openen

[itsme9x]

Ik ben bezig met iets te programmeren in Acces dmv VB 6.3

maar om 1 of andere reden werkt dit stukje code niet en ik zie niet waarom

Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize

Dim datum As String
Dim MyDate, MyMonth, MyMonthName, MySheetNumber, MyYear

MyDate = Date                                           ' Datum in dd-mm-jjjj
MyMonth = Month(MyDate)                                 ' Maand in mm
MyMonthName = MonthName(MyMonth)                        ' Maand in Long
MyYear = Year(Now())
MyDay = Day(Now())

datum = MyDay & "-" & MyMonth & "-" & MyYear
Forms![Nieuwgebouw]![datum] = datum

Response = MsgBox("Vorig Gebouw opslaan?", vbYesNo, Waarschuwing)
If Response = vbYes Then DoCmd.OpenForm "Opslaan Als", acNormal


End Sub

Als je na de vraag vorig gebouw opslaan op Yes drukt, zie je een kleine flits van een pagina, maar ik krijg dus niet de pagina die ik geopend wil hebben voor mijn neus

 

[itsme9x]

oke ik heb het al gevonden:
De "pagina opslaan als" opent zich achter het huidige form, het probleem is nu dat ik niet kan vinden waar de instelling (of waarom) scherm "altijd on top" is.

 

[itsme9x]

oke probleem is opgelost ik moest modaal bij popup op yes zetten