Har ett menyformulär som jag vill ska ploppa upp på skärmen automatiskt när jag öppnar det register som det är en del av i Access. Samtidigt ska registerfönstret minimeras.
Jag skapade en databas mha en guide för många år sedan och det registret har jag fortfarande kvar. Jag pillar nu med ett nytt register som jag gör helt utan guide men jag kan väldigt lite om VB och hur man får funktioner att fungera osv.
Koden för detta ser hursomhelt ut såhär i händelseproceduren:
Private Sub Form_Open(Cancel As Integer)
' Minimera databasfönstret och initiera formuläret.
On Error GoTo Form_Open_Err
' Minimera databasfönstret.
DoCmd.SelectObject acForm, "Menyformulär", True
DoCmd.Minimize
' Gå till det menyformulär som har angetts som standard.
Me.Filter = "\[ItemNumber\] = 0 AND \[Argument\] = 'Standard' "
Me.FilterOn = True
Form_Open_Exit:
Exit Sub
Form_Open_Err:
MsgBox Err.Description
Resume Form_Open_Exit
End Sub
Formuläret som ska öppnas heter Menyformulär som det står i koden, och "Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Standard' " har angetts i egenskaperna för formuläret för att det ska anges som standard så det kan öppnas genom att koden körs.
Men det funkar fan inte, måste ha glömt nåt?
Jag får öppna manuellt och upptäcker då att minimeringsfunktionen fungerar men jag får fortfarande öppna formuläret för hand och det är inte riktigt så som det är tänkt.
Harkopierat över detta från det gamla registret och där funkar det jättebra. Men det är något som inte stämmer med detta nya register.
Vad kan vara fel?