Can someone help me understand what this code is doing???
I don't understand the third line and I think that is what is confusing me.
Dim memoContent As String
memoContent = Me.Remarks1
If Nz(Me.BC1Chng1, "") <> 0 Then
Do While Not Me.Recordset.EOF
memoContent = Me.Remarks1
Me.Recordset.MoveNext
Me.Remarks1 = memoContent
Me.Repaint
Loop
Else
MsgBox "Already at last record"
End If
End Sub
I don't understand the third line and I think that is what is confusing me.
Dim memoContent As String
memoContent = Me.Remarks1
If Nz(Me.BC1Chng1, "") <> 0 Then
Do While Not Me.Recordset.EOF
memoContent = Me.Remarks1
Me.Recordset.MoveNext
Me.Remarks1 = memoContent
Me.Repaint
Loop
Else
MsgBox "Already at last record"
End If
End Sub