View Query, Select Items, Append to new table

[BTD]

Spit-balling here:

I've got a query that shows all records of a specific incident. I'm wondering if with the query living on a form, I can select multiple specific items out of that query, and then append those results to a different table for emailing. I've already developed a method to email with an HTML table for other requests, I'd just have to adapt it for my purposes.

More details: The query only shows records of associate damaged materials, I'd like to be able to click the grey box on the side of the record and then press a button on my form to only have those results show up in my email body. OR Have some kind of control item on the form itself to control which items get sent.

Any insight would be amazing seeing as Google has come up empty on my searches.



Thanks

 

[arnelgp]

maybe you need a "record selector".
on the demo form Click on the record selector to add/remove from selection.

 

[BTD]

I'll give it a shot! Forgot entirely about that feature

 

[CJ_London]

or take a look at this link https://www.access-programmers.co.uk/forums/threads/multi-select-form.289116/

 

[isladogs]

Similar to both of the above, I just add a bound boolean field to the form. Check the records you want to select then click a filter button

 

[BTD]

Got the multiselect from ArnelGP working! now the next step is to figure out how to email the data i've got highlighted. I'll see what I can dig up.
I'm going to try making a second query to only show records filtered on that form by the txtSelected box and see what works.

Thanks all!

 

[arnelgp]

txtSelected contains all ID (of selected records).
you will then need to create a Insert SQL:

dim sID as string, sSQL as string
dim db as dao.database

sID = Me!txtselected
'remove the trailing ","
if Right$(sID,1)="," then sID = Left$(sID,Len(sID)-1)

'insert record here
set db=currentdb
sSQL = "insert into TargetTable (field1, field2) select field1, field2 from SourceTable Where ID IN (" & sID & ");"
db.Execute sSQL

 

[BTD]

txtSelected contains all ID (of selected records).
you will then need to create a Insert SQL:

dim sID as string, sSQL as string
dim db as dao.database

sID = Me!txtselected
'remove the trailing ","
if Right$(sID,1)="," then sID = Left$(sID,Len(sID)-1)

'insert record here
set db=currentdb
sSQL = "insert into TargetTable (field1, field2) select field1, field2 from SourceTable Where ID IN (" & sID & ");"
db.Execute sSQL

ok that's BEAUTIFUL. Now I can use my loop query to add all the fields into an HTML Email Table! The only error I'm getting is this: I have a Date Column that's throwing out an INSERT INTO error

Private Sub EmailResults_Click()
DoCmd.SetWarnings False

DoCmd.OpenQuery ("ClearDroppedRackTable")

Dim sID As String, sSQL As String
Dim db As dao.Database

sID = Me!txtSelected
'remove the trailing ","
If Right$(sID, 1) = "," Then sID = Left$(sID, Len(sID) - 1)

'insert record here
Set db = CurrentDb
sSQL = "insert into DroppedRackTable (ID, Date, QN, Shift, Material, QTY, Reason, AssociateDamaged, Cost) select ID, Date, QN, Shift, Material, QTY, Reason, AssociateDamaged, Cost from [STR Database] Where ID IN (" & sID & ");"
db.Execute sSQL
End Sub

 

[arnelgp]

you enclosed Date on square bracket [Date], since date is a reserved word.