Avatar billede rickie Juniormester
13. december 2006 - 15:45 Der er 1 løsning

insert i flere tabeller

Hej,

Har fölgende kode:

    sSQL = "INSERT INTO tblSekvenslista ([sekKundnummer], [sekPersonnummer], [sekNamn1], [sekNamn2], [sekAdress1], [sekAdress2], [sekPostnummer], [sekStad], [sekTelefon1], [sekTelefon2], [sekTelefon3], [sekEmail], [sekBelopp], [sekOCR], [sekDatum], [sekSekvens], [månMånadsbelopp], [månMånadsbeloppFörsäkring])" & vbCrLf & _
    "SELECT (CUS.[No_]), (CUS.[Personal ID No_]), (CUS.[First Name]), (CUS.[Last Name]), (CUS.[Address]), (CUS.[Address 2]), (CUS.[Post Code]), (CUS.[City]), (CUS.[Phone No_]), (CUS.[Private Mobile No_]), (CUS.[Job Phone No_]), (CUS.[E-Mail]), SUM(CLE.[Remaining Amount]), (CUS.[New Rental KID]), Date(), (RBC.[Rent Sequence]), VAL(PTE.[Unit Price]), VAL(RSL.[Insurance Premium])" & vbCrLf & _
    "FROM [dbo_vw_Thorn_Svenska_AB$Customer] AS CUS, [dbo_vw_Thorn_Svenska_AB$Cust__Ledger_Entry] AS CLE, [dbo_vw_Thorn_Svenska_AB$Rent_Billing_Customer] AS RBC, [dbo_vw_Thorn_Svenska_AB$Pay_Terms] AS PTE, [dbo_vw_Thorn_Svenska_AB$Rent_Sales_Line] AS RSL" & vbCrLf & _
    "WHERE RSL.[Document No_] = PTE.[Contract No_] AND RSL.[Line No_] = PTE.[Contract Line] AND CLE.[Customer No_] = RBC.[Customer No_] AND CUS.[No_] = RBC.[Customer No_] AND PTE.[Customer No_] = RBC.[Customer No_] AND PTE.[Customer No_] = CUS.[No_]" & vbCrLf & _
    "GROUP BY (CUS.[No_]), (CLE.[Ledger Type]), (RBC.[Customer Status Rent]), (RSL.[Termination Posting Date]), (PTE.[End Date]), (CUS.[Personal ID No_]), (CUS.[First Name]), (CUS.[Last Name]), (CUS.[Address]), (CUS.[Address 2]), (CUS.[Post Code]), (CUS.[City]), (CUS.[Phone No_]), (CUS.[Private Mobile No_]), (CUS.[Job Phone No_]), (CUS.[E-Mail]), (CUS.[New Rental KID]), (RBC.[Rent Sequence]), (RSL.[Insurance Premium]), (PTE.[Unit Price]), (RSL.[Insurance Premium])" & vbCrLf & _
    "HAVING CUS.[No_] = '17004524' AND CLE.[Ledger Type] = 2 AND RBC.[Customer Status Rent] = 0 AND RSL.[Termination Posting Date] = #1753-01-01# AND PTE.[End Date] BETWEEN date() AND #2049-12-31#"
    DoCmd.RunSQL sSQL


Hvad nu hvis jeg vil have de 2 sidste ([månMånadsbelopp], [månMånadsbeloppFörsäkring]) ind i en anden table (tblMånadsbelopp). Hvordan gör jeg så nemmest?

Er jeg nöd til at skrive det hele forfra med insert into, tbl...value osv. eller kan man bare adde noget nemt?
Nu bruger jeg jo heller ikke kommandoet value!
Avatar billede rickie Juniormester
31. marts 2011 - 11:40 #1
Lukker!
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester