Insert values into a table

[sven2]

Hello,

I want to copy some values into a table (kwaliteitswaarde) with a query.
The fields that need to be filled are moederrolnummer, kwaliteitid, kwaliteitswaarde.


So what do I have so far:

First of all I have a query that gives all the ID's and the values that need to be copied (see example below):

strSQL = " SELECT TblKwaliteitswaarde.Kwaliteitswaarde, tblkwaliteitgegevens.KwaliteitID " & _
" FROM TblKwaliteitgegevens INNER JOIN TblKwaliteitswaarde ON TblKwaliteitgegevens.KwaliteitID = TblKwaliteitswaarde.KwaliteitID " & _
" WHERE (TblKwaliteitgegevens.FrequentieID = " & [Forms]![FrmIngaveparametersfrq]![txtfrequentie] & ") AND (TblKwaliteitgegevens.MachineID = " & [Forms]![FrmIngaveparametersfrq]![txtmachine] & ") AND (TblKwaliteitswaarde.Moederrolnummer = " & [Forms]![FrmIngaveparametersfrq]![txtvorigemoederrol] & ") " & _
" AND tblkwaliteitgegevens.kwaliteitID not in (" & _
" SELECT tblkwaliteitgegevens.KwaliteitID " & _
" FROM TblKwaliteitgegevens INNER JOIN TblKwaliteitswaarde ON TblKwaliteitgegevens.KwaliteitID = TblKwaliteitswaarde.KwaliteitID " & _
" WHERE (TblKwaliteitgegevens.FrequentieID = " & [Forms]![FrmIngaveparametersfrq]![txtfrequentie] & ") " & _
" AND (TblKwaliteitgegevens.MachineID = " & [Forms]![FrmIngaveparametersfrq]![txtmachine] & ") " & _
" AND (TblKwaliteitswaarde.Moederrolnummer =" & [Forms]![FrmIngaveparametersfrq]![Txtmoederrolnr] & ") " & _
")"


Now I want to copy these query values into the same table with a different moederrolnummer. This moederrolnummer can be found in the form like:
[Forms]![FrmIngaveparametersfrq]![txtmoederrolnr]

So how can I make this happen?

Thanks in advance,
Sven.

 

[WayneRyan]

Sven,

strSQL = "Insert Into kwaliteitswaarde (moederrolnummer, kwaliteitid, kwaliteitswaarde) " & _
         " SELECT " & [Forms]![FrmIngaveparametersfrq]![txtmoederrolnr] & ", " & _
         "        TblKwaliteitswaarde.Kwaliteitswaarde, " & _
         "        tblkwaliteitgegevens.KwaliteitID " & _ 
         " FROM TblKwaliteitgegevens INNER JOIN TblKwaliteitswaarde ON " & _
         "      TblKwaliteitgegevens.KwaliteitID = TblKwaliteitswaarde.KwaliteitID " & _ 
         " WHERE (TblKwaliteitgegevens.FrequentieID = " & [Forms]![FrmIngaveparametersfrq]![txtfrequentie]) & " AND " & _
         "       (TblKwaliteitgegevens.MachineID = " & [Forms]![FrmIngaveparametersfrq]![txtmachine] & ") AND " & _
         "       (TblKwaliteitswaarde.Moederrolnummer = " & [Forms]![FrmIngaveparametersfrq]![txtvorigemoederrol] & ") And " & _ 
         "       tblkwaliteitgegevens.kwaliteitID not in (" & _ 
         "           SELECT tblkwaliteitgegevens.KwaliteitID " & _ 
         "           FROM TblKwaliteitgegevens INNER JOIN TblKwaliteitswaarde ON TblKwaliteitgegevens.KwaliteitID = TblKwaliteitswaarde.KwaliteitID " & _ 
         "           WHERE (TblKwaliteitgegevens.FrequentieID = " & [Forms]![FrmIngaveparametersfrq]![txtfrequentie] & ") " & _ 
         "              AND (TblKwaliteitgegevens.MachineID = " & [Forms]![FrmIngaveparametersfrq]![txtmachine] & ") " & _ 
         "              AND (TblKwaliteitswaarde.Moederrolnummer =" & [Forms]![FrmIngaveparametersfrq]![Txtmoederrolnr] & "))"

Wayne

 

[sven2]

Hello Wayne,

code works just fine.

Thanks a lot.

Sven.