Vaste naam aan veld koppelen

[RV2010]

Goedemorgen,

Ik ben in VBA bezig en nu heb ik daar een aantal velden in staan, met redelijk lange namen. Dit heb ik gedaan voor de duidelijkheid.

Nu wil ik eigenlijk in de programmacode een afkorting voor die naam zetten, het liefst in die formule, zodat ik niet steeds de gehele naam hoef te gebruiken. Is dit mogelijk?

[b]Module ShortNames[/b]
Sub ShortName()
kort1 = langveld1
kort2 = langveld2
End Sub

[b]UserForm code[/b]
Run "ShortName"

  If kort1= "" Then MsgBox "Field '" & kort2 & "' is empty": mpArticleAdd.Value = 0: kort1.SetFocus: Exit Sub

Helaas krijg ik hierbij een foutmelding dat er een object vereist is. Ook verschijnt er gewoon een leeg stuk tussen de ' ipv de bedoelde tekst. Wat doe ik verkeerd?

Bedankt!!

 

[Superzeeuw]

RV2010,

Dat is niet mogelijk omdat in VBA verwezen wordt naar de naam van het object.
Je kunt dus geen synoniemen gebruiken.

 

[RV2010]

Ok dat is duidelijk. Bedankt!