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

Ö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.

242889
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.

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 DatabaseOption ExplicitSub FormatMessage()    Dim strMsgText As String    strMsgText = "Extremely Important@This is an invalid operation.@" & _                 "Refer to online help."    MsgBox strMsgTextEnd 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.
SORUN

Uyarı: Bu makalenin çevirisi otomatik olarak yapılmıştır

Özellikler

Makale No: 242889 - Son İnceleme: 02/07/2014 01:50:49 - Düzeltme: 3.0

  • Microsoft Access 2000 Standard Edition
  • kbnosurvey kbarchive kbmt kbprb KB242889 KbMttr
Geri bildirim