+- 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ığı: Sql Söz Dizesi İçinde Split Kullanımı (/konu-sql-soz-dizesi-icinde-split-kullanimi.html)
Cvp: Sql Söz Dizesi İçinde Split Kullanımı - berduş - 07/01/2020
Tekrar ekledim mesaja
https://www.devhut.net/2018/04/22/access-using-split-in-a-query/
Cvp: Sql Söz Dizesi İçinde Split Kullanımı - ozanakkaya - 07/01/2020
Aşağıdaki kodu modüle yaz
Public Function SplitVeriBul(GVeri As String, GSayi) As Variant
On Error Resume Next
Dim var As Variant
var = Split(GVeri, "|", -1)
SplitVeriBul = var(GSayi)
End FunctionSorguda,
SELECT SplitVeriBul([Alan1],0) AS ilksayi, SplitVeriBul([Alan1],1) AS ikincisayi, SplitVeriBul([Alan1],2) AS ucuncucisayi FROM Tablo1;Tablo ismi Tablo1, tablodaki alanın ismi Alan1
Alan1'de 117|50|89|185|81 şeklinde veri olacak.
Cvp: Sql Söz Dizesi İçinde Split Kullanımı - accessman - 07/01/2020
teşekkürler sn.@berduş ve @ozanakkaya
bunu sorgu tasarımı yaparken
ifade1:Split(bütünmetin, "|")(0)
şeklinde yazmak için
ifade1:SplitVeriBul([Alan1],0)
şeklinde kullanabilirmiyiz
diye örneği indirmeden önce sormuştum meğer tam istediğim gibi imiş
Cvp: Sql Söz Dizesi İçinde Split Kullanımı - berduş - 07/01/2020
@ozanakkaya hocamın izniyle bu da ayracını sizin belirleyebildiğiniz kod
Public Function SplitVeriBul(GVeri As String, GSayi, Optional Ayrac As String = "|") As Variant
On Error Resume Next
Dim var As Variant
Dim GAyrac As String
GAyrac = Ayrac
var = Split(GVeri, GAyrac, -1)
SplitVeriBul = var(GSayi)
Debug.Print SplitVeriBul
End FunctionCvp: Sql Söz Dizesi İçinde Split Kullanımı - accessman - 07/01/2020
teşekkürler berduş
Cvp: Sql Söz Dizesi İçinde Split Kullanımı - accessman - 07/01/2020
Neredeyse 15 yıldır Access de debelenip duruyorum ama hiç sorgu tasarımı kısmında modüldeki bir fonksiyonu kullanmamıştım
ne kadar pratikmiş şimdi kulağımı tersten gösterdiğim onca vakit kaybına hayıflanıyorum
başta ozanakkaya tüm ustalara teşekkürler