AccessTr.neT

Tam Versiyon: Bu konuda yardımcı olur musunuz?
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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.
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:
Kod:
Dim Dizi As Variant
Dizi = Split(yazi, ".")
For say = LBound(Dizi) To UBound(Dizi)
    MsgBox Dizi(say)
Next
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?
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.
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
@ 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ı.
Sayfalar: 1 2