|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 액세스 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
직원들에게 날짜 단위로 한가지만의 업무를 할당 하고자 합니다
그런데 이미 중복된 데이터가 있으면 이를 미리 알려주는
기능을 구현하고자 합니다
1. New 직무할당 폼에서
ㅇ날짜 ㅇ사원번호 ㅇ업무내용 이 세가지 정보를 테이블1에
Add 위해 "업무할당" 버튼을 클릭할 경우
테이블1을 검색해서 이미 해당날짜에 해당 직원 데이터가
있을 경우
"이미 업무가 배정되었다"라는 메세지 보여 주고
더이상 진행이 안되게 하고 싶습니다,,,
▶ 업무내용은 무엇이든 관계없이 오직 날짜와 사원번호
만을 가지고 검색하고자 합니다
2. New 직무할당 폼에서 "Add A업무 테이블" 버튼을 클릭할 경우
테이블2_A업무를 검색해서 마찬가지로 동일한 날짜에 동일한
사원이 있는지를 검색해서 있을 경우
안내 메세지를 보여주고 Stop 하고자 합니다
첨부 샘플 예제를 이용하여 이 기능을 구현해 주시면
고맙겠습니다 ~~~
==============[qqqq님 글에 대한 답변입니다]==============
-.선행
'신규업무할당' 폼을 언바운드로
1) 폼 속성 - 레코드 원본 삭제
2) 날짜,사번,담당직무 필드의 컨트롤 원본 삭제
1. 버튼 [업무할당]
If DCount("*", "테이블1", "사원번호='" & Me.사번 & "' AND 날짜=#" & Me.날짜 & "#") > 0 Then
MsgBox "이미 업무가 배정되어있습니다"
Else
MsgBox "직무가 배정되었습니다!!"
CurrentDb.Execute "INSERT INTO 테이블1 (날짜,사원번호,담당직무) VALUES (#" & Me.날짜 & "#,'" & Me.사번 & "','" & Me.담당직무 & "');"
End If
2. 버튼 [Add A업무테이블]
If DCount("*", "테이블2_A업무", "사원번호='" & Me.사번 & "' AND 날짜=#" & Me.날짜 & "#") > 0 Then
MsgBox "이미 업무가 배정되어있습니다"
Else
MsgBox "A 업무 테이블로 전송하였습니다!!"
CurrentDb.Execute "INSERT INTO 테이블2_A업무 (날짜,사원번호,담당직무) VALUES (#" & Me.날짜 & "#,'" & Me.사번 & "','A 업무');"
End If
|
|