Sub Tbl_Veri()
Dim Kyt As Recordset
Set Kyt = CurrentDb.OpenRecordset("SELECT [CR ID], [Approval Pending] FROM tb_19th_WF_CR_Pending WHERE (((tb_19th_WF_CR_Pending.[CR ID]) Is Not Null))")
If Kyt.RecordCount = 0 Then Exit Sub
Do Until Kyt.EOF
Call alan1(Kyt![CR ID], Kyt![Approval Pending])
Kyt.MoveNext
Loop
Kyt.Close
Set Kyt = Nothing
End Sub

Public Function alan1(Sicil, veri As String) As String
Dim v As Variant, Syc As Long
v = Split(veri, ", ")
For Syc = LBound(v) To UBound(v)
CurrentDb.Execute "INSERT INTO tb_sicil_no_name (y_cr_id, y_adi_soyadi, y_sicil_no) " & _
"VALUES('" & Sicil & "', '" & Mid(v(Syc), 1, InStrRev(v(Syc), "(") - 2) & "', '" & Mid(Split(v(Syc), "(")(1), 1, 8) & "')"
Next Syc
End Function

Public Sub BirButon Adi_Click()
Call Sub Tbl_Ver
end sub