010. xfnHasPairControl

xfnHasPairControl 함수

구문

반환값

참고

예제

코드

Private Sub cmdTest_Click()

    'xfnHasPairControl(ctr As Control) As Boolean  함수 Test

    '지정한 컨트롤의 짝 컨트롤이 존재하는지 판별하는 함수입니다

    '폼화면에 EmpID 라는 텍스트상자가 있습니다.

   

    '디버그창에는 컨트롤이 짝이 있다면 True 값이 출력됨

    Debug.Print "선택하신 컨트롤은 " & Forms(Me.Form.Name).Controls("EmpID").Name & " 입니다.  컨트롤이 짝여부는 "

    Debug.Print xfnHasPairControl(Forms(Me.Form.Name).Controls("EmpID"))

   

    '실행결과

'    선택하신 컨트롤은 EmpID 입니다.  컨트롤이 짝여부는

'    True

End Sub