ACC2000: İşareti (@) biçimlendirme, MsgBox işlev yoksayar

Makale çevirileri Makale çevirileri
Makale numarası: 242889 - Bu makalenin geçerli olduğu ürünleri görün.
Bu makale arşivlenmiştir. "Olduğu gibi" sunulmaktadır ve bundan sonra güncelleştirilmeyecektir.
Orta: temel makro, kodlama ve birlikte çalışabilirlik becerileri gerektirir.

Bu makale, Microsoft Access veritabanı (.mdb) ve Microsoft Access projesi (.adp) için geçerlidir.

Hepsini aç | Hepsini kapa

Bu Sayfada

Belirtiler

Microsoft Access 2000'de, (@) işareti ile MsgBox işlevini kullandığınızda, özel biçimlendirme sağlamaz.

Neden

Microsoft Visual Basic Düzenleyicisi (VBE6.dll) tarafından sağlanan <a1>MsgBox</a1> işlevi tarafından sağlanan biçimlendirmeyi desteklemeyen (@) işareti.

Çözüm

Iki olası çözümü vardır. Iletikutusu eylemini bir makroda kullanmak için bir çözümdür'ı tıklatın. Diğer bir çözüm Eval</a0> işlevi MsgBox</a0> işlevini çağırmak için kullandığı kullanıcı tanımlı bir işlev yazmaktır.

Iletikutusu eylemini kullanan olan bir makro oluşturma

  1. Veritabanı penceresinde, nesneleri altında makrolar ' ı tıklatın ve sonra Yeni ' yi tıklatın.
  2. Makro penceresinde, Eylem oku tıklatın ve Eylem listesinde MsgBox ' ı tıklatın.
  3. Ileti kutusunun altındaki Eylem bağımsız değişkenleri için işaretçiyi taşımak için F6 tuşuna basın.
  4. Aşağıdaki iletiyi ileti kutusunda yazın:
    Yanlış button!@This düğmesini work.@Try olmayan başka bir.
  5. Dosya menüsündeki Farklı Kaydet'i tıklatın ve makroyu varsayılan adla kaydetmek için Tamam ' ı tıklatın.
  6. Çalıştır) menüsünde, Çalıştır ' ı tıklatın. Iletinin ilk satırını kalın olduğunu unutmayın.

FormattedMsgBox işlevi oluşturma

Eval</a0> işlevi ayrıca Visual Basic Düzenleyicisi arasında MsgBox fonksiyonun değerlendirildiği Visual Basic for Applications ifade hizmeti zorlar ve bu nedenle, at işareti biçimlendirme olanaklarından yararlanacak şekilde olanaklıdır. Aşağıdaki örnek, FormattedMsgBox MsgBox işlevini yerine adında bir kullanıcı tanımlı işlevi kullanır. FormattedMsgBox işlevini oluşturmak için şu adımları izleyin:
  1. Microsoft Access'i başlatın.
  2. Northwind.mdb örnek veritabanını açın.
  3. Yeni bir modül oluşturun.
  4. Modüle aşağıdaki yordamı ekleyin:
    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. Modül Modül adı kutusunda görünen varsayılan adı'nı kullanarak kaydedin.
  6. Tarafından sağlanan özel biçimlendirmeyi kullanmak istediğinizde oturum sırasında yerleşik MsgBox işlevini yerine FormattedMsgBox işlevini çağırın. Örneğin:
    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
    					

Daha fazla bilgi

Microsoft Access'in önceki sürümlerinde, kullanabileceğiniz ileti metni bir <a0>MsgBox</a0> işlevinde biçim bölümlerine işareti. MsgBox</a0> fonksiyonunun metni iki adresindeki işaretleri kullandığınızda, metin olarak ayrılmış oturum sırasında ileti kutusunda, ilk paragrafın kalın metin üç paragraf içine ayrılır.

Bu işlevi, Visual Basic for Applications kitaplığı (Vba332.dll), Microsoft Access 97'de sağlanmıştır. Tümleşme Microsoft Visual Basic Düzenleyicisi'nin ile Microsoft Access 2000, artık Vba332.dll uygular.

Davranışı yeniden oluşturma adımları

  1. Microsoft Access'i başlatın.
  2. Northwind.mdb örnek veritabanını açın.
  3. Yeni bir modül oluşturun.
  4. Aşağıdaki kodu modüle ekleyin:
    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. Bu yordam, komut penceresi içinde çalışır.
Iletinin, hazır bilgi dizesi içeren bir not "aşırı Important@This çevrimiçi Yardım için'geçersiz bir operation.@Refer olur." Microsoft Access 95 ve 97'de, bu iletinin biçimlendirilmiş metni üç ayrı paragraflar halinde "Aşırı önemli" de, aşağıdakine benzer kalın:
Son derece önemli

Bu geçersiz bir işlemdir.

Için çevrimiçi yardıma bakın.

Özellikler

Makale numarası: 242889 - Last Review: 7 Şubat 2014 Cuma - Gözden geçirme: 3.0
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Access 2000 Standard Edition
Anahtar Kelimeler: 
kbnosurvey kbarchive kbmt kbprb KB242889 KbMttr
Machine-translated Article
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:242889

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com