weightinwildcat
Programmer
I need to clone or otherwise duplicate a record set of a sub-form. I need to be able to look at original values to see if any changes have been made.
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim intF As Integer
recOrgin.MoveFirst
recClone.MoveFirst
Do While Not recOrgin.EOF
For intF = 1 To recOrgin.Fields.Count
If recOrgin.Fields(intF).Value <> recClone.Fields(intF).Value Then[green]
'Do your magic here[/green]
End If
Next intF
recOrgin.MoveNext
recClone.MoveNext
Loop