vba formuliernamen

[annetiti]

Hallo

Weet iemand of het mogelijk is om te verwijzen naar formuliernamen om tekstvakken in te vullen ik werk met verschillende tabbladen.
Hieronder een klein voorbeeld.
- momenteel werk ik met een select case om te verwijzen naar de velden uit mijn formulier. Is het ook mogelijk om de variabele vformuliernaam te gebruiken om te verwijzen naar velden in het formulier zodat de select case instructie wegvalt aangezien het formuliernaam gekend is:

Select Case vformuliernaam
Case "frm_beheer_sub"
If Me!frm_BEHEER_sub!Beh_code <> txtcode Then
Me!frm_BEHEER_sub!Beh_methode = cbomethode
Me!frm_BEHEER_sub!Beh_maatregel = cbomaatregel
Me!frm_BEHEER_sub.Form!Beh_doestelling = cbodoel
Me![frm_BEHEER_sub].Form!Beh_code = txtcode
End If

Case "frm_Beheer_sub_puntvormig"
If Me!Frm_BEHEER_sub_puntvormig!Beh_code <> txtcode Then
Me!Frm_BEHEER_sub_puntvormig!Beh_methode = cbomethode
Me!Frm_BEHEER_sub_puntvormig!Beh_maatregel = cbomaatregel
Me!Frm_BEHEER_sub_puntvormig.Form!Beh_doestelling = cbodoel
Me!Frm_BEHEER_sub_puntvormig.Form!Beh_code = txtcode
End If
end select

groeten annetiti

 

[Jootje13]

Ik neem aan dat je wilt weten wat het actieve formulier is.

Dit kun je opvragen dmv het vba commando:

screen.ActiveForm.Name

 

[Harry46]

De variabele vFormilierNaam heeft als waarde de naam van het subformulier?
Dan kun je naar dat subformulier verwijzen met:
Me(vFormulierNaam)
en naar een veld in dat subformulier met b.v.:
Me(vFormulierNaam)!Beh_code

 

[annetiti]

VBA Formuliernaam

Hallo


Hartelijk dank voor de snelle reactie.

Jullie hebben me een grote stap verder gezet in het schrijven van mijn applikatie.

Hartelijk dank

Annetiti