콘텐츠

• 지침

Microsoft Access를 사용할 때 텍스트 상자 컨트롤을 사용하여 사용자의주의를 쉽게 끌 수 있습니다. VBA (Visual Basic for Applications)를 사용하여 컨트롤러에서 텍스트를 스크롤하는 프로세스를 자동화 할 수 있습니다. VBA는 Microsoft Office 응용 프로그램을 확장하는 데 사용되는 프로그래밍 언어입니다. "Form.Timer"이벤트 (양식 시간)를 사용하여 텍스트 상자의 내용을 지속적으로 업데이트하는 하위 프로 시저를 실행합니다.

지침

Access에서 VBA를 사용하여 컨트롤 업데이트 (Comstock / Comstock / 게티 이미지)

1. "만들기"탭을 클릭 한 다음 "양식 프로젝트"를 클릭하여 새 양식을 만듭니다. 컨트롤 패널에서 "텍스트 상자"를 누른 다음 양식에서 새 텍스트 상자 컨트롤을 추가하십시오. "서식"탭을 마우스 오른쪽 단추로 클릭하고 "텍스트 맞춤"속성을 "오른쪽"으로 설정하십시오. "기타"탭을 누르고 "이름"아래에 "txtMarquee"를 입력하십시오.

2. 폼을 마우스 오른쪽 단추로 클릭 한 다음 "이벤트 작성"을 클릭하고 "코드 작성기"를 두 번 클릭하여 VBA 편집기 창을 실행하십시오. "Ctrl"과 "A"를 눌러 모든 기본 코드를 선택한 다음 "Delete"키를 눌러 코드를 제거하십시오.

3. 코드에 복사 할 전역 변수를 추가하려면 다음 코드를 복사하여 붙여 넣습니다.

   Dim textStr As String Dim padstr As String Dim 문자로 txtScroll Dim txtLength 정수로 희미 iLength로 정수로 지정 Dim로 정수로 표시 iView로 정수로 표시 Dim로 정수로 표시

4. 텍스트 상자의 컨트롤을 탐색 할 텍스트를 정의하려면 다음 코드를 추가하십시오.

   Microsoft Access에 텍스트 상자 유형을 추가하는 방법 "padstr =" "txtScroll = textStr & padstr txtLength = Len (txtScroll) iLength = Len (padstr) Me.TimerInterval = 500 iPos = 1 iView = 1 End Sub

   
   

5. "moveText"를 호출 할 하위 프로세스를 만듭니다.

   Private Sub Form_Timer () moveText End Sub

6. 텍스트 상자 컨트롤에 표시된 텍스트를 실제로 스크롤 할 "moveText"하위 프로 시저를 만듭니다.

   Private Sub moveText ()

   txtMarqee.SetFocus txtMarqee.Text = 중간 (txtScroll, iPos, iView) iRem = txtLength - (iPos + iView - 1)

   iView <20 및 iView <iRem이면 iView = iView + 1 End If

   iPos <txtLength 및 iView> = 20이면 iPos = iPos + 1 End If Else txtMarqee.Text = ""iPos = 1 iView = 1 End If End Sub

7. Microsoft Access로 돌아가서 "보기"아이콘을 클릭하여 프로그램을 실행하십시오. 4 단계에서 정의한 텍스트가 텍스트 상자를 스크롤합니다.