바코2://#18. 하위 개념 사용해보기(3)

고객등록 폼에 고객 담당자라는 버튼을 만들고 이름을 버고객담당자 라고 지정한 후, on click() 에 코드 삽입을 하겠습니다.

새로 배우는 명령어가 있습니다.

폼을 열어라! DoCmd.OpenForm “ “

https://docs.microsoft.com/en-us/office/vba/api/access.docmd

DoCmd object (Access)

크롬에서 MS문서 한글로 보는법은

https://support.google.com/translate/answer/2534559?hl=ko&co=GENIE.Platform%3DDesktop

웹페이지 및 문서 번역 - 컴퓨터 - Google Translate 고객센터

Private Sub 버고객담당자_Click() DoCmd.OpenForm "고객담당자" End Sub

여기서 한번 실행을 해봅니다.

폼은 잘 열립니다.

자 그러면~ 하나 더 추가해봅시다.

바보코딩을 선택했을때,
고객 담당자 등록 폼에서 고객 ID가 선택되면서
바보코딩에 속해 있는 고객담당자 리스트를 출력하도록 해야
바로바로 사용할 수 있을 겁니다.

여러가지 방법이 있지만 가장 기본적인 OpenArgs를 사용해보겠습니다.
https://support.microsoft.com/ko-kr/office/openargs-%EC%86%8D%EC%84%B1-c8616938-cd58-4b1a-84cf-3d043f59e13b

OpenArgs 속성

고객 등록폼에 OpenArgs를 심어놓고, 고객 담당자 폼에서 OpenArgs 값을 테스트 해봅니다.

고객등록 폼

Dim OPid As Long OPid = ID DoCmd.OpenForm "고객담당자", , , , , , OPid End Sub

고객담당자 폼

Private Sub Form_Load() MsgBox Me.OpenArgs End Sub

고객등록 폼에서 바보코딩의 업체ID는 ID가 1입니다.
MsgBox의 출력은 고객담당자 폼에 넣었기 때문에 메시지 박스가 뜨면 정상적으로 전달되는걸 확인 할 수 있습니다.
메시지 박스를 닫으면 고객담당자 폼이 열릴것입니다.

이제 고객 담당자폼의 Form_Load() 부분을 수정해줍니다.

Private Sub Form_Load() 'MsgBox Me.OpenArgs 고객ID = Me.OpenArgs End Sub

바보 코딩이 고객ID로 들어왔습니다.
이제 리스트 리쿼리를 해주면 되겠습니다.

Private Sub Form_Load() 'MsgBox Me.OpenArgs 고객ID = Me.OpenArgs 고객ID_AfterUpdate End Sub

정상적으로 작동합니다.




[이전 글]: 바코2://#17. 하위 개념 사용해보기(2)
[다음 글]: 바코2://#19. 하위 개념 사용해보기(3) - 중간 오류 수정