선언 관련 메모 form, subform

Dim Frm as form
Dim Ctl as control
Dim SFrm as subform

Parent & Child 구조로 되어 있는 긴 레퍼런스를 줄일 때 

가령 아래와 같은 폼구조에서 

 

Forms!A000프로그램틀!CHILD_menu.Childsub.Form.접속자Label.Caption

 

컨트롤을 제외한 

Forms!A000프로그램틀!CHILD_menu.Childsub.Form

까지 줄이고 싶다면,

 

--// 일반적인 프로시저에서는
private sub xxx()
Dim Frm as form

Frm = Forms!A000프로그램틀!CHILD_menu.Childsub.Form

debug.print Frm.접속자label.caption
End sub


--// public function으로 사용할 때는
Public Function 자식메뉴() As Form

Set 자식메뉴 = Forms!A000프로그램틀!CHILD_menu!Childsub.Form

End Function

​
debug.print 자식메뉴.접속자lable.caption

이런식으로 치환해서 사용하고,

 

차일드 = 서브폼인 경우는

 

--// public function으로 사용할 때는
Public Function 자식메뉴2() As subForm

Set 자식메뉴2 = Forms!A000프로그램틀!CHILD_menu!Childsub

End Function