AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

Bu konuda yardımcı olur musunuz?

1 2
14/09/2009, 19:26

Honolululu

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.
14/09/2009, 19:44

maytas

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
14/09/2009, 20:28

Honolululu

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?
15/09/2009, 09:07

mehmetdemiral

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.
15/09/2009, 10:51

Nurullah_Serdar

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
15/09/2009, 13:32

Honolululu

@ 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ı.
1 2