|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 액세스 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
안녕하세요?
벌써 8월도 다 지나갔네요 ㅠㅠ
항상 도움 주셔서 감사드립니다.
다름이 아니라 버튼관련 질문이 있어서 이렇게 글 남깁니다.
파일을 열어보시면, 예약 테이블이 존재하고, 좌석선택 테이블이 존재합니다.
제가 질문드릴 부분은 예약테이블에서 관람일이 오늘이면서 좌석번호가 같으면 파란색으로 표시를 하려고 하는데 오류가 나오네요~
표시가 되긴 하는데 오늘날짜의 한 좌석만 표시되고 나머지 부분들은 표시가 되질 않습니다.
액세스 고수님들의 조언 부탁 드립니다.
감사합니다.
==============[stardy님 글에 대한 답변입니다]==============
For i = 1 To 100
If DCount("*", "예약", "관람일 = # " & Date & " # and 좌석= '" & Me("command" & i).Caption & "'") = 1 Then
Me("COMMAND" & i).BackColor = RGB(0, 0, 255)
'중복 예약된 좌석 다른색으로 표시
ElseIf DCount("*", "예약", "관람일 = # " & Date & " # and 좌석= '" & Me("command" & i).Caption & "'") > 1 Then
Me("COMMAND" & i).BackColor = RGB(200, 50, 0)
End If
Next |
|