Tekrar ekledim mesaja
https://www.devhut.net/2018/04/22/access...n-a-query/

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 Function

Sorguda, 

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.

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ş

@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 Function

teşekkürler berduş

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