THANK YOU @arnelgp !!!! ... amazing!!! your idea helped me with another issue today! you are a master programmer. truly grateful for your continued support and time from your day!!! clearly this for you guys is like putting together blank 2000+ piece jigsaw puzzles. lol 
also thanks to @apr pillai ! His code is also wonderfully helpful (attached below). Very similar to your .dirty code @arnelgp !! just needed to add the date to differentiate. i would have never taken the directions you all provided!

also thanks to @apr pillai ! His code is also wonderfully helpful (attached below). Very similar to your .dirty code @arnelgp !! just needed to add the date to differentiate. i would have never taken the directions you all provided!
Code:
Private Sub Command271_Click()
Dim strSQL As String
Me.Refresh
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO TblAssetsOut (IRQNumber, ID, Rented, OnRentalDate)" & _
"SELECT AssetsExtended.IRQNumber, AssetsExtended.ID, AssetsExtended.Rented, AssetsExtended.DateOfMovement " & _
"FROM AssetsExtended WHERE (((AssetsExtended.Rented)=True));"
DoCmd.SetWarnings True
End Sub
Last edited by a moderator: