È corretto il codice per "Porta in primo piano" o "Send to back"?

voti
-5

È corretto il codice qui sotto per Porta in primo piano o Send to back un campo / oggetto in Access VBA 2010?

Il mio codice è:

Private Sub Report_Load()

If IsOpen(Details_ME) Then

    Me.Controls(DRAFT_Logo).InSelection = True
    DoCmd.RunCommand acCmdBringToFront
Else

    Me.Controls(DRAFT_Logo).InSelection = True
    DoCmd.RunCommand acCmdSendToBack

End If

End sub

VBA mostra l'errore giallo sul codice qui sotto:

Me.Controls(DRAFT_Logo).InSelection = True

Qualsiasi aiuto o consiglio è apprezzato

È pubblicato 14/09/2016 alle 17:40
fonte dall'utente
In altre lingue...                            


1 risposte

voti
0

Ho fatto un po 'di correzione ed è stato utile, quindi funziona correttamente :)

Devo mettere i codici in "Event corrente" Invece "Load Event".

Private Sub Report_Current()

If IsOpen("Details_ME") Then

    Me.Controls("DRAFT_Logo").InSelection = True
    DoCmd.RunCommand acCmdBringToFront

Else

    Me.Controls("DRAFT_Logo").InSelection = True
    DoCmd.RunCommand acCmdSendToBack

End If

End Sub

Grazie ...

Risposto il 14/09/2016 a 18:27
fonte dall'utente

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more