Selam arkadaşlar
Bir yerde takıldım. Sorunum şöyle:
tablomdaki kod alanındaki değerler satır satır şöyle gibi
123.23.5321
245.678
34.980.2.3557.32.24
67.77.347.32.3
68
90.345.312.56.22.56.21.65
uzunluğu sabit olmayan verilerim var ama en fazla 10 sayı kümesi olur, bu belki işinizi kolaylaştırır, benim istediğim noktalar arasındaki her rakamın ayrı bir alana gelmesi. Sorgu yada rapor olsun farketmez. Tabii her satırın yanına gelmeli örneğin 4. satır şöyle olmalı..
67.77.347.32.3 67 -- 77 -- 347 -- 32 -- 3
gibi umarım anlatabilmişimdir.
Bu konuda yardımcı olur musunuz?
Merhaba.
Split fonksiyonunu kullanabilirsiniz.
Örneğin:
Yazi="67.77.347.32.3"
Split(yazi,".")(0) => 67 rakamını döndürür
Burada Split fonksiyonu metni belirtilen kritere göre bölüp bir diziye sokar.
Dizinin ilk endeksi 0 ve dizideki ilk veriyi döndürür.
İstenirse bir döngü bile oluşturulur:
Split fonksiyonunu kullanabilirsiniz.
Örneğin:
Yazi="67.77.347.32.3"
Split(yazi,".")(0) => 67 rakamını döndürür
Burada Split fonksiyonu metni belirtilen kritere göre bölüp bir diziye sokar.
Dizinin ilk endeksi 0 ve dizideki ilk veriyi döndürür.
İstenirse bir döngü bile oluşturulur:
Kod:
Dim Dizi As Variant
Dizi = Split(yazi, ".")
For say = LBound(Dizi) To UBound(Dizi)
MsgBox Dizi(say)
Next
Mesajlarımızı Türkçe yazım kurallarına uygun yazalım.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Emeğe saygı gösterelim, bir teşekkürü çok görmeyelim.
Yanıt için teşekkür ederim.
Verdiğiniz kodla bir sonuca ulaşabilirim sanırım. Ama benim bu değerleri ayrı ayrı tabloya kaydetmem lazım. Bu veriler (yaklaşık 3000 kayıt)bana bir Excel dosyasından birleşik olarak geliyor. Ben bağlı tablo ile bunları accesse alıyorum. bunları aynı kayırttaki diğer alanlara parçalayarak yazdırmam gerek. Bunu nasıl yapabilirim?
Verdiğiniz kodla bir sonuca ulaşabilirim sanırım. Ama benim bu değerleri ayrı ayrı tabloya kaydetmem lazım. Bu veriler (yaklaşık 3000 kayıt)bana bir Excel dosyasından birleşik olarak geliyor. Ben bağlı tablo ile bunları accesse alıyorum. bunları aynı kayırttaki diğer alanlara parçalayarak yazdırmam gerek. Bunu nasıl yapabilirim?
Son Düzenleme: 14/09/2009, 20:30, Düzenleyen: Honolululu.
Belki şu örnek daha yol gösterici olabilir. Maytas'ın verdiği kodları form üzerindeki bir liste kutusuna aktardım.
Listekutusuna aktarmak yerine alternatif olarak metin kutularına aktarmak için tekrar bir döngü yazılıp her bir nokta ayıracı ile teker teker metin kutularına aktarılabilir.
Listekutusuna aktarmak yerine alternatif olarak metin kutularına aktarmak için tekrar bir döngü yazılıp her bir nokta ayıracı ile teker teker metin kutularına aktarılabilir.
İnadına, ille de Accesstr.net...
ben en fazla 10 alan olur dediğin için ona göre ayarladım. fazla olan olursa sen değişiklikleri yaparsın.
kolay gelsin
kolay gelsin
İyiki Varsın Access
@ Nurullah_Serdar
Kesinlikle budur isteğim. Çok teşekkür ederim. Oluşturduğunuz diğer tabloda productname yoktu. Bu raporumda gerekli alan olduğu için tabloya bunuda kaydetmem gerekiyor. Bunu yazdığınız koda ne tür bir ilave yaparak yazdırabilirim. case 1den 10a kadar tüm kısımlara rstver!productname = Dizi(0) yazdım ama olmadı.
Kesinlikle budur isteğim. Çok teşekkür ederim. Oluşturduğunuz diğer tabloda productname yoktu. Bu raporumda gerekli alan olduğu için tabloya bunuda kaydetmem gerekiyor. Bunu yazdığınız koda ne tür bir ilave yaparak yazdırabilirim. case 1den 10a kadar tüm kısımlara rstver!productname = Dizi(0) yazdım ama olmadı.
Konuyu Okuyanlar: 1 Ziyaretçi