Solved record loop: need to append multiple records to table when forms field check box is selected. (1 Viewer)

narrellj

New member
Local time
Today, 06:04
Joined
Feb 13, 2021
Messages
9
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!

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:

Users who are viewing this thread

Top Bottom