Kod:
Private Sub Form_Open(Cancel As Integer)
On Error GoTo HATA
DoCmd.RunSQL "DELETE '*' FROM Tablo1"
Metin6 = Null
For c = 1 To DCount("Sr", "Sorgu2") + 1
If IsNull(Tanı) Then
DoCmd.GoToRecord , , acNext
Else
For i = 1 To Len(Tanı)
If i = 1 Then
Metin6 = Mid(Tanı, i, 1)
Else
If Mid(Tanı, i, 1) = "," And Mid(Tanı, i - 1, 1) = " " Then
DoCmd.RunSQL "INSERT INTO Tablo1 ( SrNO, Tani ) SELECT Sr, Metin6;"
Metin6 = ""
Else
Metin6 = Metin6 & Mid(Tanı, i, 1)
End If
End If
Next i
DoCmd.RunSQL "INSERT INTO Tablo1 ( SrNO, Tani ) SELECT Sr, Metin6;"
DoCmd.GoToRecord , , acNext
End If
Next c
Forms!RptProtokolDefteriYeni2!Liste10.Requery
DoCmd.Close
CIKIS: Exit Sub
HATA: MsgBox Err.Description
Resume CIKIS
End Sub