Maksimering "forsvinder"

I havent used docmd.Maximize so much but it is for all current forms/reports I think. So if you open a report whcih is NOT maximized you restet the default value. So I think you are going to have to use docmd.Maximize when the form/report gets opened to make sure its is always maximized.

Hmm.... Rapporten åbner maksimeret, men den form, hvorpå knappen er bliver til et normalt vindue bagved.
Jeg har eksperimenteret med docmd.maximize:

Private Sub btn_Group_all_comp_Click()
On Error GoTo Err_btn_Group_all_comp_Click

    Dim stDocName As String
DoCmd.Maximize
    stDocName = "Group Management Structure - All Companies"
    DoCmd.OpenReport stDocName, acPreview
'DoCmd.Maximize
Exit_btn_Group_all_comp_Click:
    Exit Sub

Err_btn_Group_all_comp_Click:
    MsgBox Err.Description
    Resume Exit_btn_Group_all_comp_Click
   
End Sub

Men ligemeget hvor jeg indsætter det, forsvinder maksimeringen :o(

I think you rgoing to have to put it in an event in the report and also in an event in the form in an event so that when the form gets focus again (On GotFocus) it also gets maximized. You have also to think that users can minimize the form when they like and if it MUST be maximized at all times then you have to do it in a number of places.

Private Sub Form_Activate()
DoCmd.Maximize

End Sub

Private Sub Form_Deactivate()
DoCmd.Maximize
End Sub

sæt disse ind i den form

Når du går i rapport, så luk formularen, og åben den igen ved lukning af rapport. Docmd.Mazimer skal stå ved åbning af formularen.

Hvis du vil være helt sikker, skal du bare lægge:
docmd.maximize
på både formens og rapportens VedAktivering-hændelse.

>> kabbak
Du var vist først ude med en brugbar løsning på problemet - takker (også for de andre gode inputs)

/U.K.

Nu er det jo ikke dette du spørger om, men du kan vælge i hvilken størrelse du ønsker rapporten åbnet i ved flg. kode, det i dette tilfælde åbner rapporten i størrelsen 100%: 

DoCmd.OpenReport "Rapport1", acPreview, acNormal
Reports("Rapport1").ZoomControl = 100

Ligeledes kan du lave et ubundet tekstboks i formularen indtaste et tal, og lad dette tal være bestemmende for rapportens størrelse:

Dim A As Integer
A = Me!Størrelse
DoCmd.OpenReport "Rapport1", acPreview, acNormal
Reports("Rapport1").ZoomControl = A

Blot en krølle på ovenstående svar.