|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 액세스 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
안녕하세요 수고하십니다.
액새스 폼으로 열때 왼쪽 상단에 폼의 이름이 나타나게 됩니다. 이 폼의 이름을 안보이게 할수 있을까요? 물론 디지인뷰애서나 수정상태에서는 폼의 이름이 표시가 됩니다 .. 하지만 폼으로 열었을때 왼쪽 상단의 타이틀탭을 안보이게 하고싶습니다..
리본메뉴는 감추었는데 폼이름이 감춰지지가 않내요.
일정시간.. 약 5분 아니면 10분정도의 시간동안 엑새스를 사용하지 않을경우 자동종료 멧세지와 함께 엑세스가 자동종료가 되게 하려면 어찌 해야할까요?
부탁 드립니다 ..
전화기로 올리는 글이라 오타가 있을수 있습니다 죄송합니다.
==============[박현진님 글에 대한 답변입니다]==============
1. 문서창 옵션을 창 겹치기로 변경하시던지 아니면 팝업폼으로 설정하신후 폼 사이즈를 정교하게 제어 하시면 됩니다.
2. 빈폼을 하나 만들고 타이머 인터벌을 1000으로 설정하신후 온 타이머 이벤트에 아래와 같이 설정합니다.
해당 폼은 매크로를 이용하여 숨김 모드로 자동실행하도록 설정하세요.
(매크로 이름을 'autoexec' 로 설정하시면 해당 파일이 열리면 자동으로 실행됩니다.
Private Sub Form_Timer()
Static OldCtlName As String
Static OldFormName As String
Static ExpTime
'유휴 대기시간 설정 (분)
Const ExpiredMinutes = 0.25
Dim AtvCtlName As String
Dim AtvFormName As String
On Error Resume Next
AtvCtlName = Screen.ActiveControl.Name
AtvFormName = Screen.ActiveForm.Name
If OldCtlName = "" Or OldFormName = "" Or AtvCtlName <> OldCtlName Or AtvFormName <> OldFormName Then
OldCtlName = AtvCtlName
OldFormName = AtvFormName
ExpTime = 0
Else
ExpTime = ExpTime + Me.TimerInterval
End If
If ExpTime / 1000 / 60 >= ExpiredMinutes Then
ExpTime = 0
Application.Quit acQuitSaveAll
End If
End Sub |
|