+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Bu konuda yardımcı olur musunuz? (/konu-bu-konuda-yardimci-olur-musunuz.html)
Sayfalar:
1
2
Bu konuda yardımcı olur musunuz? - Honolululu - 14/09/2009
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.
Cvp: Bu konuda yardımcı olurmusunuz? - maytas - 14/09/2009
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)
NextCvp: Bu konuda yardımcı olurmusunuz? - Honolululu - 14/09/2009
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?
Cvp: Bu konuda yardımcı olur musunuz? - mehmetdemiral - 15/09/2009
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.
Cvp: Bu konuda yardımcı olur musunuz? - Nurullah_Serdar - 15/09/2009
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
Cvp: Bu konuda yardımcı olur musunuz? - Honolululu - 15/09/2009
@ 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ı.