Merhabalar,

Tablomda "xxxxxxx yyyyyyy" şeklinde boşluklu veriler bulunmaktadır. Soldan başlayarak boşluğa kadar kaç karakter varsa bir sütunda nasıl ayırabiliim. Karakter sayım sabit olmadığı için bir türlü yapamadım.

Yardımlarınızı rica ederim.

İyi Günler.

Tabloda YeniAlan adinda sutun olusturun
Update TabloAdi Set YeniAlan=mid([SutunAdi],1 , instr(1,[SutunAdi],' ')-1)
SQL'i le sorgu olusturup calistirin.

Sayın dsezgin83260;

Yardımınız için çok teşekkür ederim. Elinize sağlık.

Birşey daha sormak isterim. Kodda denedim ama yapamadım.

"xxxxxxx yyyyyyy zzzzzzz"

şeklinde olduğu durumda ayrı bir sütuna da "yyyyyyy" sadece bu kısmı 1.boşluktan 2.boşluğa kadar ayırmak istediğimde formülü nasıl değiştirmem gerekiyor?

Tekrar teşekkürler.

ZorlamaSQL ile
UPDATE TabloAdi SET TabloAdi.YeniAlan1 = Mid([SutunAdi],1,InStr(1,[SutunAdi],' ')), TabloAdi.YeniAlan2 = Mid([SutunAdi],InStr(1,[SutunAdi],' '),InStr(InStr(1,[SutunAdi],' ')+1,[SutunAdi],' ')-InStr(1,[SutunAdi],' ')), TabloAdi.YeniAlan3 = Mid([SutunAdi],InStr(InStr(1,[SutunAdi],' ')+1,[SutunAdi],' '),Len([SutunAdi]))
yapilabilir, bosluk olcutu artmasi ile deyimlerde hata olabilir.

VBA kod ile
Tabloda YeniAlan1, 2, 3,.... bosluklara ait sutun sayisi kadar, asagida ki koyu yazan yer degistirilebilir.
Function Guncelle()
Dim Kyt As Recordset
Const SUTUNSAYISI As Long = 3
Set Kyt = CurrentDb.OpenRecordset("Select * from TabloAdi")
Kyt.MoveFirst
Do Until Kyt.EOF
Dim bilgi As Variant, i As Integer, veri As String
veri = Kyt!SutunAdi
bilgi = Split(veri, " ") '....Bosluk veya ayrac karakteri yazilabilir....
For i = 0 To UBound(bilgi)
Kyt.Edit
If SUTUNSAYISI >= (i + 1) Then Kyt.Fields("YeniAlan" & (i + 1)) = CVar(Trim(bilgi(i))) Else GoSub HATA
Kyt.Update
Next i
Kyt.MoveNext
Loop
Kyt.Close: Set Kyt = Nothing
Exit Function
HATA:
MsgBox "Bosluk sayisi kadar Sutun Yok." & vbNewLine & "ISLEM SONLANDIRILDI"
Return
End Function

Sayın dsezgin83260,

Çok çok teşekkür ederim.

Emeğinize sağlık.

İyi Akşamlar.

(11-05-2016, 18:30)dsezgin demiş ki: Tabloda YeniAlan adinda sutun olusturun
Update TabloAdi Set YeniAlan=mid([SutunAdi],1 , instr(1,[SutunAdi],' ')-1)
SQL'i le sorgu olusturup calistirin.

Bu sorguya ek olarak eğer içeriğinde boşluk olmayan satıra denk gelirse metni olduğu gibi getirmesi için bir ekleme yapabilir misiniz?