Sikring af Access aplikation

2)
Du sætter Access op til at starte en form under Tools/startup. her sætter du også Applikationsnavnet "Title".

Denne form giver du følgende Subrutine:

Private Sub Form_Open(Cancel As Integer)
    SendKeys "% n", True
    AppActivate "Applikationsnavn"
End Sub

Og desuden sætter du følgende properties for denne form:

Popup = Yes
Modal = Yes

2) Det virker som det skal - bortset fra at jeg ny ikke kan se et preview af div. reporter der bliver lavet ? Findes der et argument til OpenReport som både preview'er og popup'er ?

Ved kaldet fra en Form:

Private Sub Oversigt_Click()
On Error GoTo Err_Oversigt_Click

    Dim stDocName As String, Presentation As Integer

    stDocName = "Totaloversigt"
    ReturnToForm = Me.Name 'Dette er en global variabel
    Me.Visible = False
    SendKeys "% x", True
    Presentation = acPreview
    DoCmd.OpenReport stDocName, Presentation

Exit_Oversigt_Click:
    Exit Sub

Err_Oversigt_Click:
    MsgBox Err.Description
    Resume Exit_Oversigt_Click
   
End Sub

I selve Report'en skal du så have:

Private Sub Report_Open(Cancel As Integer)
    DoCmd.RunMacro "DoMaximize"
End Sub

Private Sub Report_Close()
    If ReturnToForm <> "" Then
        SendKeys "% n", True
        Forms(ReturnToForm).Visible = True
        AppActivate "Applikationsnavn"
    End If
End Sub

moses...

Har du noget specielt i din DoMaximize macro ?

Jeg kan med ovestående programstump nu lukke access idet selve access vinduet 'kommer frem' for at preview'e raporten!?

Ja det har jeg da !!
Sorry - det glemte jeg:

Action:  Maximize

Så enkelt er det.

Håber det virker nu.

Men jeg kan stadig lukke access når raporten er i preview?

Den eneste udvej jeg kender er simpelthen at lave selve grafen i en form.
Der har du nemlig muligheden for at sætte Popup og Modal til Yes, så Access knapperne udenfor formen ikke kan aktiveres og Access dermed ikke kan kukkes ned.

PS.

Du kan så endda holde Access vinduet minimized, som ved eksemplet herover med den anden form.

Mange tak !

En anden løsning er at forklarer brugerne at de ikke må lukke det skide vindue...
(er der nogle der kan kroatisk?)