Bu arada say olayı @accessman hocamızın hastane dosyasına uygulanabilir.Bu union olayına bir türlü kafam basmıyor okadar video izlememe rağmen
![Img-grin Img-grin](https://accesstr.net/images/smilies/img-grin.gif)
Bende ayırma için kod hazırlamıştım.Kodu ekleyeyim sizin dosyayı ve benim en son dosyayı ilk mesaja ekleyeyim.
Private Sub Komut0_Click() 'Ayirma
Dim Sql As String, i As Integer
Dim rs As Recordset, birlestir
Sql = "SELECT max(SplitStnSay([Alan1])) AS [HsStn1] FROM Tablo1;"
CurrentDb.QueryDefs("Sorgu1").sql = sql
Set rs = CurrentDb.OpenRecordset(sql)
If rs.RecordCount > 0 Then
For i = 0 To rs(0)
birlestir = birlestir & ", SplitVeriBul([Alan1]," & i & ") As [Alan " & i + 1 & "]"
Next
birlestir = Mid(birlestir, 2)
Sql = "SELECT Alan1," & birlestir & " From Tablo1"
CurrentDb.QueryDefs("Sorgu1").sql = sql
DoCmd.OpenQuery "Sorgu1"
End If
rs.Close
Set rs = Nothing
birlestir = vbNullString
Sql = vbNullString
End Sub