OfficeTutor 365

액세스에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.

"000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.

[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !

[필독] 저작권법 개정에 따른 이용안내

작성자:    winsco (samdashg) 추천:  3 파일:     조회:  3414 제목:   자료입력시 팝업창 띄우기
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.  - 액세스 버전(95,97,2000,xp,2003,2007): * 아래줄에 질문을 작성하세요 >> 2010 인적사항등록폼으로 자료등록후 메인창 자료입력폼에 'ID'를 입력하면 이름,생년월일등 자료가 자동으로 뜨도록 쿼리(dlookup)로 만들었지만 자료에 없거나 잘못된 ID를 입력했을때는 인적사항등록창이 팝업되도록 할 수 있는 방법 좀 부탁드립니다. 자료입력창은 아래 순서로 되어 있습니다. 개인자료라 파일을 올리기가 어려워서 글로 문의합니다. ID  성명   생년월일 국적 성별..... 　 [불량 게시물 신고]
황동준 Private Sub ID_AfterUpdate()     If DCount("*", "t_인적사항", "ID=" & Me.ID) > 0 Then         Me.성명 = DLookup("성명", "t_인적사항", "ID=" & Me.ID)         Me.생년월일 = DLookup("생년월일", "t_인적사항", "ID=" & Me.ID)         Me.국적 = DLookup("국적", "t_인적사항", "ID=" & Me.ID)         Me.성별 = DLookup("성별", "t_인적사항", "ID=" & Me.ID)     Else         If MsgBox("등록된 ID가 없습니다." & vbLf & "신규 등록하시겠습니까?", vbYesNo) = vbYes Then             DoCmd.OpenForm "f_인적사항등록", , , , acFormAdd         End If         Me.ID = Null     End If End Sub 09-04 (17:56) ⓧ삭제 ■신고 winsco ID에 값이 없을 경우 단순히 창만띄는 방법 부탁드립니다. 다른 입력과정은 만들어져 있어서요. 09-05 (13:02) ⓧ삭제 ■신고 황동준 댓글을 제데로 보셨으면 그런질문은 하지 않으셨을텐데... 저걸 저대로 쓰시란 말은 당연히 아니지요....... If DCount ..... > 0 Then  이부분이 값이 있는 조건입니다. 그러면 당연히 Eles 이후가 값이 없을때 부분이겠죠? 조건을 반대로 해서.. 원하시는데로 간단히 하면 If DCount("*", "테이블명", "ID=" & Me.ID) = 0 Then DoCmd.OpenForm "폼이름" 이 되겠네요. 09-05 (13:57) ⓧ삭제 ■신고 winsco 감사합니다. 09-05 (17:54) ⓧ삭제 ■신고 황동준 ID를 콤보상자로 선택하신단 말씀이시지요? 1. 인적사항테이블을 행원본으로 하는 콤보상자로 ID를 선택 입력하는경우에는 없는 ID에 대해서는 생각하지 않으셔도 됩니다. 당연히 등록되어있는 아이디만 나타나니까요. 속성중 목록값만허용=예 로 하시면 더 안전하겠지요? 2. 콤보상자이더라도 선택이 아닌 키보드 입력에 대비할 경우 마찬가지로 해당 ID가 있는지 없는지에 대한 조건으로 위와 같습니다. 09-05 (18:00) ⓧ삭제 ■신고 winsco 친절한 설명 감사합니다.  그런데 If DCount("*", "테이블명", "ID=" & Me.ID) = 0 에서 계속 에러가 나네요;; 테이블이름과 필드명등 잘 적었는데도요. 09-05 (18:49) ⓧ삭제 ■신고 황동준 ID 필드가 숫자가 아닌가요? "ID='" & me.ID & "'") 로 한번 해보세요 09-06 (10:18) ⓧ삭제 ■신고 winsco 감사합니다. 꾸벅 09-06 (17:44) ⓧ삭제 ■신고
작성일 : 2018-09-04(16:37) 최종수정일 : 2018-09-04(16:37)