009. xfnIsBoundControl

xfnIsBoundControl 함수

구문

반환값

참고

예제

코드

Private Sub cmdTest_Click()

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

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

   

    '디버그창에는 컨트롤이 바운드가 되어 있다면 True 값이 출력됨

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

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

   

    '실행결과

'    선택하신 컨트롤은 EmpID 입니다. 바운드 여부는

'    True

End Sub