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