Hämta flera fält från en tabell till en annan

[Colle_1]

Hej igen.

 

Jag undrar om man kan hämta information från flera fält från en tabell till en annan? Jag har en tabell som heter tblArtiklar som innehåller artikelnummer, namn, priser o.s.v, och en tabell som heter tblArtiklarPerKalkyl, där jag hämtar artiklar och väljer kvantitet o.s.v. per orderunderlag.

 

Jag har ett lookup field i ArtiklarPerKalkyl där jag hämtar upp mina artiklar. Jag vill även få med mig två fält till, inköpspris och försäljningpris, och lagra dom i ArtiklarPerKalkyl. Dom ska dock inte vara lookup fields utan bara kopiera datan från tblArtiklar. Detta för att priset som är aktuellt för tiden då ordern skapas inte ska påverkas av eventuella framtida ändringar.

 

Är det möjligt att göra? Jag har bifogat en liten bild som beskriver vad jag menar.

[MickeF]

Använd SQL-uttryck istället för DLookup. Det är snabbare och kan ta flera fält.

 

Tex

 

Sub KopieraTillKalkyl(lngArtikelID As Long)
 Dim strSql$

 ' SQL som kopierar Artikel, inköps- och försäljnpris till ArtiklarPerKalkyl
 strSql = "INSERT INTO  tblArtiklarPerKalkyl (Artikel, Inköpspris, Försäljningspris)"
 strSql = strSQL & " SELECT ArtikelID, Inköpspris, Försäljningspris FROM tblArtiklar"
 strSql = strSQL & " WHERE ArtikelID = " & lngArtikelID & ";"

 ' Kör frågan
 CurrentDb.Execute strSql, dbFailOnError

 ' Blev det fel?
 If Err<> 0 Then Msgbox Error
End Sub