| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 액세스 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
다른 사이트에서 올라온 달력을 변형하여 작성하고 있느데 도저히 저의 능력으로 않되는 부분이 있어 도움을 요청합니다.
붙임 달력을 보시면 "이번달 주요할일" 부분에서 월의 주요내용을 입력하고나서 다른 월로 전환이되면 그달의 주요할일이 나타나지를 않읍니다.
이렇게 저렇게 나름 코딩을 해보아도 되지를 않내요
고수분들의 조언을 부탁 드립니다.
==============[구름나그네님 글에 대한 답변입니다]==============
일단 안되는 원인은
Sub OKButton_Click() 이벤트 중간에 보시면
If IsNull(monthwork) Then Me.monthwork = ![monthcontent]
라고 되어있습니다. 이 코드가 실행되면 최초 오픈시에는 이번달주요할일이 비어있으니 쿼리값을 입력합니다. 다만 그 이후로는 값이 들어 있으므로 위 코드 조건이 성립되지않아 입력이 되지 않습니다.
조건문을 지우고
Me.monthwork = !monthcontent
로 변경 하시면 무조건 값을 갱신 하겠죠
그런데.. 이번에는 값이 없어집니다.
코드에는 'qryTask' 쿼리의 모든 레코드를 Do~Loop 문으로 한바퀴 돌게 됩니다.
폼을 띄우고 'qryTask'쿼리를 열어보시면 일일 일정을 등록한, monthcontent 가 비어있는 레코드도 보입니다.
당연히 루프문을 돌면서 빈값을 집어 넣게 됩니다.
따라서, 'qryTask' 는 월간일정이 들어있는 레코드만 나타나야 합니다.
monthcontent 필드의 조건에 Is Not Null 을 걸어주세요.
여기까지 하면 일단 이번달주요할일의 값은 제데로 변경될겁니다.
그러나 또 문제가 있습니다.
일정이 없는 달을 클릭하면,
If rstRec.RecordCount <> 0 Then
에 의해 아무일도 일어나지 않습니다.
다시말해, 3월 월간일정이 표시된 상태에서 일정이 전혀 없는 2월로 바꿔도 3월 일정이 그대로 남아 있게 됩니다.
Else
Me.monthwork = ""
를 추가하시면 됩니다.
그밖에 해당월에 월간 일정을 여러번 등록하면 마지막 등록한것만 나타납니다.
또, 무조건 한번씩만 등록하게 된다면 Do~Loop문은 필요가 없습니다.
적다보니 너무 장황하게 설명 드린거 같네요. 검토 해보시고 안되시면 다시 질문 주세요 |
|
액세스에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
