DetailPage-MSS-KB

기술 자료

기술 자료: 242889 - 마지막 검토: 2004년 6월 24일 목요일 - 수정: 3.0

 
보통: 기본적인 매크로, 코드 작성 및 상호 운용성 기술이 필요합니다.

이 문서에서는 Microsoft Access 데이터베이스 (.mdb) 및 Microsoft Access 프로젝트 (.adp) 적용됩니다.

이 페이지에서

현상

Microsoft Access 2000에서 해당 at 기호 (@) MsgBox 함수를 사용할 때 특수 서식을 제공하지 않습니다.

원인

Microsoft Visual Basic Editor (Vbe6.dll) 제공된 MsgBox 함수를 제공하는 서식을 지원하지 않는 경우 at 기호 (@).

해결 방법

두 가지 가능한 솔루션이 있습니다. 한 가지 해결책은 MsgBox 매크로 함수를 매크로에서 사용할 수 있습니다. 다른 솔루션 Eval 함수를 MsgBox 함수를 호출하는 데 사용하는 사용자 정의 함수를 쓰는 것입니다.

매크로를 만드는 MsgBox 동작 사용

  1. 데이터베이스 창의 개체 아래에서 매크로 클릭한 다음 새로 만들기 를 클릭하십시오.
  2. 매크로 창에서 작업 화살표를 클릭한 다음 작업 목록에서 Msgbox 를 클릭하십시오.
  3. F6을 키를 눌러 매크로 함수 인수 아래에 있는 메시지 상자에 마우스 포인터를 이동합니다.
  4. 다음과 같은 메시지가 메시지 상자에 입력합니다:
    잘못된 button!@This 단추를 선택하십시오 않는 다른.
  5. 파일 메뉴에서 저장을 클릭한 다음 기본 이름으로 매크로를 저장하려면 확인 누릅니다.
  6. 실행 메뉴에서 실행 을 클릭하십시오. 메시지의 첫 번째 줄에 굵게 있음을 유의하십시오.

FormattedMsgBox 함수 만들기

Eval 함수를 별도로 Visual Basic 편집기에서 MsgBox 함수를 계산할 VBA 응용 식 서비스 실행하고 따라서 기호 서식 지정 시 활용할 수 있습니다. 다음은 MsgBox 함수를 대신 FormattedMsgBox 라는 사용자 정의 함수를 사용합니다. FormattedMsgBox 함수를 만들려면 다음과 같이 하십시오.
  1. Microsoft Access를 시작하십시오.
  2. Northwind.mdb 예제 데이터베이스를 엽니다.
  3. 새 모듈을 만듭니다.
  4. 모듈에 다음 프로시저를 추가합니다:
    Function FormattedMsgBox(Prompt As String, _
                             Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
                             Optional Title As String = "Microsoft Access", _
                             Optional HelpFile As Variant, _
                             Optional Context As Variant) As VbMsgBoxResult
        Dim strMsg As String
        If IsMissing(HelpFile) Or IsMissing(Context) Then
           strMsg = "MsgBox(" & Chr(34) & Prompt & Chr(34) & ", " & Buttons & _
                     ", " & Chr(34) & Title & Chr(34) & ")"
        Else
           strMsg = "MsgBox(" & Chr(34) & Prompt & Chr(34) & ", " & Buttons & _
                     ", " & Chr(34) & Title & Chr(34) & ", " & Chr(34) & _
                          HelpFile & Chr(34) & ", " & Context & ")"
        End If
        FormattedMsgBox = Eval(strMsg)
    End Function
    					
  5. 모듈 모듈 이름 상자에 나타나는 기본 이름을 사용하여 저장하십시오.
  6. 때 제공하는 특수 서식을 사용하려는 경우 sign, 기본 제공 MsgBox 함수 대신 FormattedMsgBox 함수를 호출합니다. 예를 들어,:
    Sub TestMsgBox()
        Dim lngResult As Long
        lngResult = FormattedMsgBox("Extremely Important@This is an invalid operation.@Refer to online help.", _
            vbCritical + vbOkOnly, "Microsoft Access")
    End Sub
    					

추가 정보

이전 버전의 Microsoft Access에서 사용할 수 있는 형식으로 부분에 MsgBox 함수 메시지 텍스트에 대한 기호. MsgBox 함수의 텍스트 두 기호 시 사용할 때 텍스트가 구분되는 있는 sign 메시지 상자에 세 단락 첫 번째 단락을 굵게 에서 로 구분됩니다.

이 기능은 Microsoft Access 97 (Vba332.dll) 응용 프로그램 라이브러리에 대한 Visual Basic에서 제공됩니다. Microsoft Visual Basic Editor 통합으로 Microsoft Access 2000 이상 Vba332.dll을 구현합니다.

문제를 재현하기 위한 단계

  1. Microsoft Access를 시작하십시오.
  2. Northwind.mdb 예제 데이터베이스를 엽니다.
  3. 새 모듈을 만듭니다.
  4. 모듈에 다음 코드를 추가하여:
    Option Compare Database
    Option Explicit
    
    Sub FormatMessage()
        Dim strMsgText As String
        strMsgText = "Extremely Important@This is an invalid operation.@" & _
                     "Refer to online help."
        MsgBox strMsgText
    End Sub
    					
  5. 직접 실행 창에서 이 프로시저를 실행하십시오.
참고 메시지를 리터럴 문자열이 포함된 "매우 온라인 도움말에 잘못된 operation.@Refer Important@This 것입니다." Microsoft Access 95, 97이 이 메시지에 서식이 지정된 텍스트가 별도의 세 개의 단락을 붙여 "매우 중요한" 의 다음과 비슷한 굵게,:
매우 중요

잘못된 작업입니다.

온라인 도움말을 참조하십시오.

본 문서의 정보는 다음의 제품에 적용됩니다.
  • Microsoft Access 2000 Standard Edition
키워드: 
kbmt kbprb KB242889 KbMtko
기계 번역된 문서기계 번역된 문서
중요: 본 문서는 전문 번역가가 번역한 것이 아니라 Microsoft 기계 번역 소프트웨어로 번역한 것입니다. Microsoft는 번역가가 번역한 문서 및 기계 번역된 문서를 모두 제공하므로 Microsoft 기술 자료에 있는 모든 문서를 한글로 접할 수 있습니다. 그러나 기계 번역 문서가 항상 완벽한 것은 아닙니다. 따라서 기계 번역 문서에는 마치 외국인이 한국어로 말할 때 실수를 하는 것처럼 어휘, 구문 또는 문법에 오류가 있을 수 있습니다. Microsoft는 내용상의 오역 또는 Microsoft 고객이 이러한 오역을 사용함으로써 발생하는 부 정확성, 오류 또는 손해에 대해 책임을 지지 않습니다. Microsoft는 이러한 문제를 해결하기 위해 기계 번역 소프트웨어를 자주 업데이트하고 있습니다.
공유
추가 지원 옵션
Microsoft Community 지원 포럼
직접 문의하기
Microsoft Certified Partner 찾기
Microsoft Store
소기업이 아닙니까?
다음에서 팔로우하십시오.