|
- 액세스 버전: 2010
* 아래줄에 질문을 작성하세요 >>
--- 폼닫기 버튼 이벤트 소스
Private Sub 폼닫기_Click()
Call 폼닫기("고객입력폼") '모듈호출
End Sub
---
--- 모듈소스
Public Function 폼닫기(a As Variant)
'폼닫기 이벤트 소스를 공용으로 사용하기 위해서...
'a변수에는 폼이름값이 들어온다.
'변수확인 - 잘 작동됨
MsgBox a
'폼을 닫을때 레코드가 변경되었는지 확인메세지 내보내고 사용자가 저장할지 선택권을 넘긴다.
If [Forms]!a.Dirty Then '<------///// 에러발생위치 a 을 인식못함
If MsgBox("데이터가 변경 되었습니다. " & Chr(13) & Chr(13) & "변경된 데이터로 저장할까요? ", vbYesNo + vbDefaultButton2 + vbQuestion, " 안내") = vbYes Then
'저장 선택시
DoCmd.Close , , acSaveYes
Else
'취소 선택시
a.Undo
DoCmd.Close , , acSaveNo
End If
Else
'변한게 없으면
DoCmd.Close , , acSaveNo
End If
End Function
-- 에러증상
2450 런타임 오류가 발생
참조폼 'a' 를 찾을수 없습니다.
폼에서 작동하면 잘됩니다.
그러나 모듈에 넣고 호출하여 작동시키면 에러가 발생합니다.
전달된 폼이름값 a 를 어떻게 해야 하는지 모르겠습니다.
부탁드립니다.
감사합니다. |
|