Microsoft Excel bir raporun çıktısını, herhangi bir kısa not alanı en fazla 255 karakterden kesilir. Rapor Önizleme sırada, MS Excel ile Çözümle komutu tıklattığınızda, bu davranışı da görebilirsiniz.
Excel'de, metin ve hücre içeriğinin uzunluğu en fazla 32.000 karakterdir. Ancak, Access bir raporu, metin ve hücre içeriğinin uzunluğu en fazla 255'tir, Excel 5.0/95 biçimine dönüştürür.
Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna satılabilirlik veya belirli bir amaca uygunluk zımni garantileri de dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.
Not alanı 250 karakter dizeleri bölmek rapordaki metin kutuları oluşturun. Bu dize, rapor, çıktı sonra yeniden birleştirmek.
Örneğin, Notlar adlı bir kısa not alanı olan ve bazı kayıtlar, bu alanın içeriğini ise 700 karakterden uzun varsayalım. Metin kutuları için denetimin kaynağı olarak her üç aşağıdaki deyimleri rapordaki üç metin kutusu oluşturabilirsiniz:
=Mid([Notes],1,250)
=Mid([Notes],251,250)
=Mid([Notes],501,250)
Raporu bir elektronik tabloya, çıktı sonra <a0>Not</a0> alanının kesimleri yeniden birleştirmek. Örneğin, ilk kaydının <a1>Not</a1> alanının kesimleri hücrelerde B2, C2 ve D2 sırasıyla görüntülenir. Not alanı, E2 başka bir hücresine aşağıdaki formülü yazarak yeniden birleştirmek:
=CONCATENATE(B2,C2,D2).)
Sonra bu formül diğer tüm kayıtlar için <a2>Notlar</a2> alanını yeniden birleştirmek için E sütunundaki hücreleri kopyalayabilirsiniz.
Formülün kullanmaya çalıştığınızda girilmezse BIRLEŞTIR fonksiyonunu verir unutmayın.
=CONCATENATE(B2:D2).)
Her hücrenin içeriği art arda eklenmiş sonucu eklemek istediğiniz adres ayrı olarak listeleniyor olması gerekir.
Birden çok birkaç metin kutuları oluşturmak için gerekli kolaylaştırır <a0>Not</a0> alanında verilerin uzunluğu, bu metin kutuları oluşturulmasını otomatik hale getirmek için bir Visual Basic for Applications yordamı kullanabilirsiniz. Aşağıdaki örnek, bir yordam metin kutularını oluşturma rapor çıktısı ve metin kutusunun içeriğini yeniden birleştirmek için nasıl kullanılacağını gösterir.
1'Den 7'ye bu makalenin ilerisindeki "Adımlar için oluşturma davranışı" bölümündeki adımları izleyin.
Tasarım görünümünde tblMemoOutput tabloyu temel alan yeni bir rapor oluşturun.
Function MemoSplitter(strReportName As String, _
strFieldName As String, lngMemoLength As Long)
Dim NewControl As Control
Dim intLoopCount As Integer
For intLoopCount = 0 To lngMemoLength / 250
Set NewControl = CreateReportControl(strReportName, _
acTextBox, acDetail)
NewControl.Name = intLoopCount & "MemoText"
NewControl.ControlSource = "=Mid([" & _
strFieldName & "]," & 250 * intLoopCount + 1 _
& ",250)"
Next intLoopCount
End Function
Derleyin ve modül mdlSplitFunction kaydedin.
Aşağıdaki komut penceresi içinde yazın ve ENTER tuşuna basın:
?MemoSplitter("rptMemoOutput","Notes",5200)
Raporu Baskı Önizleme'de görüntüler. Araçlar menüsünde Office Bağlantıları ' nın üzerine gelin ve sonra MS Excel ile Çözümle'yi tıklatın.
Verileri bir Microsoft Excel elektronik tablo dosyasındaki görününce tıklatın A1 hücresi; verilerin tümünü seçmek için CTRL + ÜST KRKT + END tuşlarına basın.
Biçim menüsünden, satır ' ı işaretleyin ve Otomatik Sığdır</a1>'ı tıklatın.
YapıştırÖzel Yapıştır iletişim kutusunda altında değerler ' i tıklatın ve sonra Tamam ' ı tıklatın. Bu ikinci satıra formüllerde <a0>Notlar</a0> alanının kesimleri sıralamak için kullanabileceğiniz değerleri dönüştürür.
Hücre A2 ' ı tıklatın ve tüm seçin, ancak ilk veri satırı için CTRL + ÜST KRKT + END tuşlarına basın.
Veri menüsünden Sırala ' yı tıklatın.
Sırala iletişim kutusunda, <a3>Seçenekler</a3>'i tıklatın.
Sıralama seçenekleri</a0> iletişim kutusunda Yönlendirme ' altında İçin sıralama sol sağ tıklatın. Tamam ' ı tıklatın.
Sırala iletişim kutusunda, Row2Sort By listesinde tıklatın ve segmentleri <a0>Notlar</a0> alanının sıralamak için Tamam ' ı tıklatın.
Tabloyu Veri Sayfası görünümünde açın ve aşağıdaki kayıtlara girin:
ID Notes
-- -----
a a
b b
c c
Yeni bir modülü açın ve aşağıdaki yordamı yazın:
Function FillMemo(strTableName As String, _
strFieldName As String)
Dim db As Database
Dim rs As Recordset
Dim intLoopCount As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset(strTableName)
Do Until rs.EOF
rs.Edit
For intLoopCount = 1 To 26
rs(strFieldName) = rs(strFieldName) _
& String(200, Chr(intLoopCount + 64))
Next intLoopCount
rs.Update
rs.MoveNext
Loop
db.Close
End Function
Derleyin ve modül mdlDataFunction kaydedin.
Aşağıdaki komut penceresi içinde girin ve ENTER tuşuna basın:
?FillMemo("tblMemoOutput","Notes")
Otomatik rapor kullanın: sütun halinde bir rapor oluşturmak için Sihirbazı tblMemoOutput üzerinde temel. Raporu Baskı Önizleme'de görüntüler.
Araçlar menüsünde Office Bağlantıları ' nın üzerine gelin ve sonra MS Excel ile Çözümle'yi tıklatın.
Microsoft Excel'deki bir elektronik tablo dosyasındaki veriyi göründüğünde, aşağıdaki formülü C2 hücresine yazın:
=LEN(B2)
Veriler <a0>Notlar</a0> alanındaki en fazla 255 karakterden kesildi unutmayın.
Rapor çıktısını Microsoft Excel'e yükleme hakkında daha fazla bilgi için Yardım menüsünden Microsoft Access Yardımı ' nı tıklatın, sonra da veri yazdırılıyor Office Yardımcısı'na veya Yanıt Sihirbazı'nı yazın ve sonra döndürülen konuları görüntülemek için Ara ' yı tıklatın.
Ö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:208801
(http://support.microsoft.com/kb/208801/en-us/
)
Bu makaleyi kullanmak için ne kadar kişisel çaba harcadınız?
Çok az
Az
Orta
Fazla
Çok fazla
Bu bilgiyi geliştirmemiz için nedenleri ve bu konuda neler yapabileceğimizi paylaşın
Teşekkürler! Görüşleriniz, destek içeriğimizi geliştirmemize yardımcı olmak için kullanılmaktadır. Diğer yardım seçenekleri için, lütfen Yardım ve Destek Giriş Sayfasını ziyaret edin.