Code:
Private Sub Save_Click()
Dim dbs As Database
Set dbs = CurrentDb
'Insert all records of selected film id in tickets table
dbs.Execute ("INSERT INTO tickets_tbl ( pid, seats, total )SELECT projections_tbl.pid, temp1.seats, " & Str(Froms!tickets!total)