Opgelost Code Me. .... werkt bij mij nooit! Wat kan hiervan de oorzaak zijn?

Dit topic is als opgelost gemarkeerd
Status
Niet open voor verdere reacties.
H

HansFRAP

Gebruiker
Lid geworden
12 jul 2011
Berichten
202
Probleem
Bij alle voorbeelden waarin de code: Me. staat loopt bij mij de code vast.
Ik snap er niets van want er is nogal wat code waar Me. in voorkomt.
Of het nu Excel, Access of Word is, bij mij werkt dat dus niet (dus met mijn instellingen)

vraag
Wat moet ik aanzetten, wijzigen, extra opnemen om deze code wel te laten lopen?
Maw waarom gaat dit bij mij toch mis.
(ik heb al eens eerder gepost maar de tip om dit te kunnen gebruiken, heeft daar nooit bij gezeten )
 
Hoe bedoel je? Loopt vast?
 
Bij alle voorbeelden waarin de code: Me. staat loopt bij mij de code vast.
Klik om te vergroten...

Ik zie geen voorbeelden.

In de codemodule van 'thisworkbook'; resultaat de naam van het werkboek

Code: 
Private sub Workbook_Open()
   MsgBox Me.Name
End Sub
In de codemodule van Sheet1; resultaat de naam van het het werkblad

Code: 
Sub M_snb()
   MsgBox Me.Name
End Sub

In een Userform; resultaat de naam van het Userform
Code: 
Private Sub Userfom_Initialize()
   MsgBox Me.Name
End Sub

Als je Me gebruikt in een gewone macromodule (bijv Module1) krijg je een foutmelding; logisch toch ?
Me kan alleen maar verwijzen naar een Object. De gewone macromodule is geen object; een werkbook, werkblad of Userform wél.
Me is dus een relatiever verwijziing naar het object dat de VBAcode bevat.
Vergelijk het bijv. met de relatieve verwijzing '.Parent'.
 
Laatst bewerkt:
En dat geldt uiteraard óók voor Access :). Om daar nog wat extra info te geven: Daar kun je bijvoorbeeld een functie maken in een aparte module die iets met het actieve formulier doet. Dan kun je die code op elk formulier zetten, maar je kunt dus ook een generieke functie maken die voor elk formulier werkt. Die functie begint dan ongeveer zo:

Code: 
Public Function funReSizeForm(frm As Form)
    MsgBox frm.Name
End Function

En je roept hem zo aan:
Code: 
    funReSizeForm Me
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan