copy values

[sven2]

Hello,

how can I copy values in a viewlist to a table with a different number?

I have a listview with a recordsource like this:

SELECT TblKwaliteitgegevens.Kwaliteitsnaam, TblKwaliteitswaarde.Kwaliteitswaarde, TblKwaliteitgegevens.Eenheid, TblKwaliteitgegevens.KwaliteitID
FROM (TblMachine INNER JOIN (TblKwaliteitgegevens INNER JOIN TblKwaliteitswaarde ON TblKwaliteitgegevens.KwaliteitID = TblKwaliteitswaarde.KwaliteitID) ON TblMachine.MachineID = TblKwaliteitgegevens.MachineID) INNER JOIN TblMoederrollen ON TblMachine.MachineID = TblMoederrollen.MachineID
GROUP BY TblKwaliteitgegevens.Kwaliteitsnaam, TblKwaliteitswaarde.Kwaliteitswaarde, TblKwaliteitgegevens.Eenheid, TblKwaliteitgegevens.KwaliteitID, TblKwaliteitswaarde.Moederrolnummer, TblKwaliteitgegevens.Frequentie
HAVING (((TblKwaliteitswaarde.Moederrolnummer)=[Forms]![FrmIngaveparametersPM7frq]![txtvorigemoederrol]) AND ((TblKwaliteitgegevens.Frequentie)=[Forms]![FrmIngaveparametersPM7frq]![txtfrequentie]));

And i have a textbox (me.txtmoederrolnr ) with the number of another (new) moederrolnummer.

What I want is when I push A button all the records that are in the listview should be copied into the table "kwaliteitsgegevens" with the new (new) "moederrolnummer" that is in the textbox.

The table "kwaliteitsgegevens" has the following fields:

moederrolnummer --> coming from the textbox
machineId --> is always 3
kwaliteitsiD --> coming from the viewlist
kwaliteitswaarde --> coming from the viewlist

So the last 2 should be in a loop for all the records that are in the viewlist.

Can this be done (I hope so) and more important how?

Thank in advance,
Sven.

 

[sven2]

Hello,

about my problem I try to do it like this:

Dim teller As Integer
Dim rs As Recordset
Dim VarItem As Variant

Set rs = CurrentDb.OpenRecordset("TblKwaliteitswaarde")
For teller = 0 To lstvorigemoederrol.ListCount - 1
rs.AddNew
rs!Moederrolnummer = Me.Txtmoederrolnr
rs!MachineID = Me.txtmachine
rs!KwaliteitID = Me.lstvorigemoederrol.Column(3, VarItem)
rs!Kwaliteitswaarde = Me.lstvorigemoederrol.Column(1, VarItem)
rs.Update
Next teller
rs.Close

Set rs = Nothing

When I execute this code all the figures are right but I get an error "wrong type" ... (error 13)

What is wrong with this code?

Thanks in advance,
Sven.