If CheckBox True INSERT into Temp Table.

[Gee]

I have a form where the user selects check boxes to choose what fields to include in a report.


Because of the massive amount of data, I need to send it to a temp table and then on to Excel and not use a query.
I have this line of code, for the insert into temptables for other forms that don't require the yes/no box and it works very well, but I can't figure out how to do it with these yes/no conditions.

This is the execute line that inserts into the TempTable for the other forms:
db.Execute "INSERT INTO TempPicktbl (Field1, Field2, Field3, Field4, Field5)" & strQuery, dbFailOnError

How would I write: If Check1=True Then INSERT INTO TempPicktbl Field1
If Check 2=True Then INSERT INTO TempPicktbl Field2
If Check 3=True Then INSERT INTO TempPicktbl Field 3
etc.

I'm pretty sure it's the INSERT level where I need to put this code.

[pbaldy]

I would conditionally add to the SQL string (both the insert and select clauses) for each true check box.

[Gee]

Yes, but how would I write it?

[pbaldy]

Along these lines, from an automated import routine I happen to be working on:

    Case "Lead Passenger Name"
      strInsert = strInsert & "LeadPassName, "
      strValues = strValues & Chr(34) & strDataAfterColon & Chr(34) & ", "

Later on

        strInsert = Left(strInsert, Len(strInsert) - 2)
        strValues = Left(strValues, Len(strValues) - 2)
        strSQL = "INSERT INTO tblTravelocity(" & strInsert & ") " _
               & "VALUES(" & strValues & ")"