Aynı tabloda işlemin yapılmasını istiyorsanız tüm kodları silin aşağıdaki kodu yapıştırın...

Option Compare Database

Private Sub Komut0_Click()

Dim Sql As String

Dim rs, rt As DAO.Recordset

Set DB = CurrentDb()



SQL = "SELECT * FROM Tablo1"

Set rs = DB.OpenRecordset(SQL)

SQL = "SELECT * FROM Tablo1"

Set rt = DB.OpenRecordset(SQL)



rs.MoveFirst

Do Until rs.EOF

   ARA = rs!kisiler

   

10:

   A1 = InStr(ARA, ",")

   If A1 > 0 Then

      YENIISIM = Trim(Left(ARA, A1 - 1))

      ARA = Mid(ARA, A1 + 1)

      rt.AddNew

      rt!sınıf = rs!sınıf

      rt!kisiler = YENIISIM

      rt![sınıf durumu] = rs![sınıf durumu]

      rt.Update

      GoTo 10

   End If

   If A1 = 0 Then

      YENIISIM = Trim(ARA)

      rt.AddNew

      rt!sınıf = rs!sınıf

      rt!kisiler = YENIISIM

      rt![sınıf durumu] = rs![sınıf durumu]

      rt.Update

   End If

rs.Delete

rs.MoveNext

Loop



MsgBox "Tablo dolduruldu..."

End Sub