Just nu i M3-nätverket
Jump to content

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


Colle_1

Recommended Posts

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.

post-122825-0-16905200-1302451032_thumb.jpg

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...