주소 12925 경기도 하남시 미사대로 540, B동 917호 (현대지식산업센터 한강미사2차) ㈜팀데이터이십일 | 고객센터 전화번호 02-467-2998 | 대표이사 염기웅
개인정보관리책임자 염기웅 ([email protected]) | 사업자등록번호 120-86-79260 | 통신판매업신고번호 제 2021-경기하남-1166 호 [사업자 정보 확인]
TD21의 사전 서면 동의 없이 TD21 사이트 일체의 정보, 콘텐츠 및 UI 등을 상업적 목적으로 전시, 전송, 스크래핑 등 무단 사용할 수 없습니다.
글쎄요, 액세스에서는 마우스 커서를 제어할 수 있는 속성이나 매서드가 거의 없습니다.
마우스 커서는 시스템에서 관리하는 옵션입니다.
액세스에서 마우스 커서를 제어하였는지 확인해 보려면, 해당 파일을 다른 PC에서 실행해 보는 겁니다.
다른 PC에서도 동일 증상이라면 커서를 액세스에서 제어한 것이겠죠.
그런데 다른 PC에서는 다르게 나타난다면, 액세스에서 커서를 제어한 것이 아닐 것입니다.
앞에서도 말씀드렸지만, 액세스에서 커서를 제어하는 옵션은 거의 없습니다.
액세스에서 커서를 제어했다면 Windows API를 사용했을 것입니다.
이것은 저도 거의 사용해 보지 못해서 뭐라고 말씀드리기가 어렵네요.
구글에서 'Windows API Cursor' 정도로 검색해 보심이 좋겠습니다.
VBA에서 Screen.MousePointer 속성을 이용해서 제한적으로 마우스 커서를 제어할 수 있기는 합니다.
Screen.MousePointer = 7
다음 링크도 참고하시고요.
Screen.MousePointer property (Access) | Microsoft Learn
ChatGPT에게 물어보았더니, Windows API를 이용하여 커서를 제어하는 다음과 같은 코드를 설명해 주네요.
Declare PtrSafe Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As LongPtr
Declare PtrSafe Function SetCursor Lib "user32" (ByVal hCursor As LongPtr) As LongPtr
Sub SetCustomCursor()
Dim cursorHandle As LongPtr
cursorHandle = LoadCursorFromFile("경로\커서파일.cur")
SetCursor cursorHandle
End Sub
제 생각에는 선생님의 PC설정 문제일 가능성이 매우 높아 보입니다.