Consider:
Code:
Sub GetData()
Dim aryS As Variant, rsDest As DAO.Recordset, rsSrc As DAO.Recordset, x As Integer, strField As String, strData As String
Set rsDest = CurrentDb.OpenRecordset("SELECT * FROM Requests_temp")
Set rsSrc = CurrentDb.OpenRecordset("SELECT Contents FROM EmailForms")
Do While Not rsSrc.EOF
aryS = Split(rsSrc!Contents, Chr(13) & Chr(10))
rsDest.AddNew
For x = 0 To UBound(aryS)
If InStr(aryS(x), "=") > 0 Then
strField = Left(aryS(x), InStr(aryS(x), "=") - 2)
strData = Replace(Replace(Trim(Mid(aryS(x), InStr(aryS(x), "=") + 1)), vbCr, ""), vbLf, "")
rsDest(strField) = strData
End If
Next
rsDest.Update
rsSrc.MoveNext
Loop
End Sub
These new records do not have a relationship with the original records. That would require a unique identifier in the source data and I am not seeing one. There is nothing to prevent the same records to be repeatedly created.