AutoExec

[Joakim N]

Hi,



I have created a macro AutoExec that run function InitApplication() automatically when database opens.

If I test by double click the macro AitoExec in Navigation Pane everything works fine. However if I close Access and double click the file in Explorer, it doesn't work.

Public Function InitApplication()
    Dim lUnit As Long
    
    DoCmd.OpenForm "FUser", , , , , acDialog
    DoCmd.OpenForm "FMenu"
    
    Form_FMenu.cboUnit.Value = 2
End Function

If I remove the last code, it works when I double click the file in Explorer.

Public Function InitApplication()
    Dim lUnit As Long
    
    DoCmd.OpenForm "FUser", , , , , acDialog
    DoCmd.OpenForm "FMenu"
    
'    Form_FMenu.cboUnit.Value = 2
End Function

I have tried to move the last code to Form_Open() of FMenu. It doesn't work when I double click the file in Explorer. Still works fine when I double click the macro AutoExec inside Navigation Pane.

Private Sub Form_Open(Cancel As Integer)

    Me.cboUnit.Value = 2
End Sub

[aytee111]

Set field value defaults in the form itself, under the Default Value property.

[ranman256]

Forms!form!fmenu!cboUnit=2

or set the combo value in the form that opens,not in the autoexec.

[Joakim N]

Hi,

I tried to set Deafult value of combobox and it behved the same.

I made a test and use the AutoAxec macro in a new file and it worked as it should. So it seems that my issue is a local error in my original file.

Thanks for your response anyway.

\Joakim