| |
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 액세스 버전(95,97,2000,xp,2003,2007): 2016
* 아래줄에 질문을 작성하세요 >>
안녕하세요?
버튼관련 질문이 있어서 질문 드립니다.
첨부파일 보시면 100개의 버튼이 있습니다.
단순히 버튼하나를 클릭하면 색상변경은 가능한데요..
각각의 버튼을 클릭했을때 색상변경을 하려니, 잘 안되네요
click이벤트 100개를 만들기에는 한계가 있고, 어떤 방법이 있는지....
도와 주세요~
==============[stardy님 글에 대한 답변입니다]==============
※ 각 명령단추의 동작이 일관성이 없다면 하나 하나 각각 입력 하던지 다른 방법을 찾으셔야 합니다.
1. vba 편집기에서 삽입-모듈 하여 아래 코드를 넣어줍니다.
Public Function cmdBtn_color()
Dim btn
btn = Screen.ActiveControl.Name
Forms!버튼.Controls(btn).BackColor = RGB(255, 0, 0)
End Function
2. 버튼 폼에서 모든 명령단추를 선택 한 후 속성-이벤트-온클릭에 아래와 같이 넣어줍니다.
┌────┬────────┐
│On Click │=cmdBtn_color() │
└────┴────────┘
3. 마우스가 올라가 있는 상태에서는 변경된 배경색이 보이지 않습니다. 이때는 호버 색상을 같이 바꾸시면 됩니다.
Forms!버튼.Controls(btn).HoverColor = RGB(255, 0, 0) |
|
액세스에 대한 질문과
답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
