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