kan jeg få denne til at køre på min access lokalt

Du kan bare plukke selve SQL'en ud og smide den ind i en forespørgsel og køre den:
INSERT INTO tabel4 (levnavn, pris, varenummer, DescShort) SELECT t1.levnavn, t1.pris * 1.27, t1.varenummer, t1.DescShort FROM (SELECT levnavn, pris, varenummer, DescShort FROM tabel1 UNION ALL SELECT levnavn, pris, varenummer, DescShort FROM tabel2 as t1, (SELECT min(pris) as mpris, varenummer FROM (SELECT pris, varenummer FROM tabel1 UNION ALL SELECT pris, varenummer FROM tabel2 ) GROUP BY varenummer) as t2 WHERE t1.pris = t2.mpris AND t1.varenummer = t2.varenummer ORDER BY t1.varenummer;

hvordan helt præsist

jeg kan ikke finde ud af det med en forspørsel enten skal jeg opret med designvisnig eller guiden..

men der kan jeg ikke se hvor jeg kan paste min kode ind..:-(s

Åbn en ny forespørgsel (luk eventuelle dialogboke, som måtte dukke op)
Gå i menuen Vis->SQL visning og indsæt koden. Luk den og gem den. Herefter er det bare at dobbeltklikke på den.

den skriver der er en ugyldig sql sætning delete , insert og noget mere var ventet

ok nu går det bedre jeg sætter denne ind :
INSERT INTO tabel4 (levnavn, pris, varenummer, DescShort) SELECT t1.levnavn, t1.pris * 1.27, t1.varenummer, t1.DescShort FROM (SELECT levnavn, pris, varenummer, DescShort FROM tabel1 UNION ALL SELECT levnavn, pris, varenummer, DescShort FROM tabel2 as t1, (SELECT min(pris) as mpris, varenummer FROM (SELECT pris, varenummer FROM tabel1 UNION ALL SELECT pris, varenummer FROM tabel2 ) GROUP BY varenummer) as t2 WHERE t1.pris = t2.mpris AND t1.varenummer = t2.varenummer ORDER BY t1.varenummer;


men nu siger den at der er en syntaks i FROM sætningen ?

hej thoams er du der ?

ja, sorry, jeg er her....jeg har bare ikke lige kunnet komme på en løsning :o(

Men jeg kan i hvert fald se, at der mangler en parentes-slut til sidst. Gør det nogen forskel?

må jeg maile db til dig ? så kan du sætte den ind så kan jeg godt selv resten :-)

ja gerne...:o)

så skal jeg bare have din mail adr :-)

nå men den finder du skam ved at klikke på mit navn og vælge brugerinfo...

tjek din mail :-)

håber du kan løse regnestykket..

Har løst det med denne funktion, da Access slet ikke kunne håndtere så mange niveauer af nested queries:
Public Function OpdaterTabel7()
    Dim SQL As String
    Dim Antal As Long
    Dim cn As ADODB.Connection
    Set cn = CurrentProject.Connection
    SQL = "INSERT INTO tabel7 (levnavn, pris, varenummer, DescShort) SELECT t1.levnavn, t1.pris, t1.varenummer, t1.DescShort "
    SQL = SQL & "FROM (SELECT levnavn, pris, varenummer, DescShort FROM tabel4 "
    SQL = SQL & "UNION ALL SELECT levnavn, pris, varenummer, DescShort FROM tabel6) "
    SQL = SQL & "as t1, "
    SQL = SQL & "(SELECT min(pris) as mpris, varenummer "
    SQL = SQL & "FROM (SELECT pris, varenummer FROM tabel4 "
    SQL = SQL & "UNION ALL SELECT pris, varenummer FROM tabel6 "
    SQL = SQL & ") GROUP BY varenummer) as t2 "
    SQL = SQL & "WHERE t1.pris = t2.mpris AND t1.varenummer = t2.varenummer ORDER BY t1.varenummer;"

    cn.Execute SQL, Antal
    MsgBox Antal & " poster blev tilføjet!", vbExclamation, "Done!"
End Function

lækkert se mail

Prøv med denne:
Public Function OpdaterTabel7()
    Dim SQL As String
    Dim Antal As Long
    Dim cn As ADODB.Connection
    Set cn = CurrentProject.Connection
    SQL = "INSERT INTO tabel7 (levnavn, pris, varenummer, DescShort) SELECT t1.levnavn, t1.pris, t1.varenummer, t1.DescShort "
    SQL = SQL & "FROM (SELECT levnavn, pris, varenummer, DescShort FROM tabel4 "
    SQL = SQL & "UNION ALL SELECT levnavn, pris, varenummer, DescShort FROM tabel6) "
    SQL = SQL & "as t1, "
    SQL = SQL & "(SELECT min(pris) as mpris, varenummer "
    SQL = SQL & "FROM (SELECT pris, varenummer FROM tabel4 "
    SQL = SQL & "UNION ALL SELECT pris, varenummer FROM tabel6 "
    SQL = SQL & ") GROUP BY varenummer) as t2 "
    SQL = SQL & "WHERE t1.pris = t2.mpris AND t1.varenummer = t2.varenummer ORDER BY t1.varenummer;"

    cn.Execute SQL, Antal
   
    'opdater efter reglen: hvis prisen i tabel4 er > end prisen i tabel6 gang prisen i tabel4 med 1.02
    SQL = "UPDATE tabel4 INNER JOIN tabel6 ON tabel4.varenummer = tabel6.varenummer SET tabel4.pris = [tabel4].[pris]*1.02 " & _
        "WHERE tabel4.pris>[tabel6].[pris]"
    cn.Execute SQL
   
    'opdater efter reglen priser i table4 er < end prisen i tabel 6 træk da 100 fra prisen i tabel6.
    SQL = "UPDATE tabel4 INNER JOIN tabel6 ON tabel4.varenummer = tabel6.varenummer SET tabel6.pris = [tabel6].[pris]-100 " & _
        "WHERE tabel6.pris>=[tabel4].[pris]"
    cn.Execute SQL
   
    MsgBox Antal & " poster blev tilføjet!", vbExclamation, "Done!"
End Function

desværre den tager bare priserne fra table6 og ligger over. :-( men det er tæt på kan jeg mærke...

hvis du kan lave det er du gud...!

med den sidste kode der indsætter den så hvem der er billigst.. den får ikke udregningen med... men som jeg læser din kode er det helt rigtig set... den vil bare ikke gøre det..

"den tager bare priserne fra table6 og ligger over" ? Hvad mener du med det? I hvilken tabel lægges blot prisen fra tabel6 over?

det var fordi der var to ens priser .. he  nej den ligger priserne rigtigt over den finder den billigste og ligger over.. men det laver ikke regnestykket

Er problemet ikke, at når du har ganget tabel4.pris med 1,02, så er den ikke længere mindre end tabel6.pris?
Det oplevede jeg i hvert fald...?

anden ting jeg har prøvet at kopi din markro og vb og derefter udskirftet koden, men den vil ikke, hvordan laver jeg en til?

det er makro afspillingen der ikke vil. jeg har kopi dine "funktioner" og kaldt den "p" kode:

Public Function p()
    Dim SQL As String
    Dim Antal As Long
    Dim cn As ADODB.Connection
    Set cn = CurrentProject.Connection
    SQL = "INSERT INTO tabel4 (levnavn, pris, varenummer, DescShort) SELECT t1.levnavn, t1.pris * 1,27, t1.varenummer, t1.DescShort "
    SQL = SQL & "FROM (SELECT levnavn, pris, varenummer, DescShort FROM tabel1 "
    SQL = SQL & "UNION ALL SELECT levnavn, pris, varenummer, DescShort FROM tabel2) "
    SQL = SQL & "as t1, "
    SQL = SQL & "(SELECT min(pris) as mpris, varenummer "
    SQL = SQL & "FROM (SELECT pris, varenummer FROM tabel1 "
    SQL = SQL & "UNION ALL SELECT pris, varenummer FROM tabel2 "
    SQL = SQL & ") GROUP BY varenummer) as t2 "
    SQL = SQL & "WHERE t1.pris = t2.mpris AND t1.varenummer = t2.varenummer ORDER BY t1.varenummer;"

    cn.Execute SQL, Antal
    MsgBox Antal & " poster blev tilføjet!", vbExclamation, "Done!"
End Function


den skulle være god nok, men når jeg kopi din makro vil den ikke.. øv

jamen det er først efter den har fundet ud af om den er mindre den skal gange 1.02.
hvis den er mindre end pris table6 så skal den bare gange 1.02 og ikke mere .

det samme med -100.

håber du er med..

hvis ikke vi er billigst så x 1.02
hvis vi er billigst jamen så -100 den billigst pris i tabel 6.

og det er den pris den kommer frem til den skal sætte ind i table7, der må ikke komme priser fra tabel6 ind i tabel7.....

som koden er nu ændre den også tallene i tabel6 :-)

den er ikke helt nemt denne her...

hvordan går det :-)

Sorry, jeg har først nu set, at du har skrevet en masse - jeg plejer jo at få besked, når der er nye indlæg, men det er vist smuttet :o(

Okay, jeg kan se, at jeg har misforstået opgaven. Jeg troede, at du ville have ændret værdierne i tabel6 og tabel4 :o(

Jeg må indrømme, at jeg ikke umiddelbart kan gennemskue hvordan det skal gøres i den samme forespørgsel...Alternativet er at lave det hele vha recordsets og cykle gennem alle poster og sammenligne, men det er en større gang kodeskrivning, som ligger lidt ud over hvad jeg har af tid pt.

Hvis jeg var dig, så ville jeg oprette et nyt spm som henvender sig til nogle af SQL-hajerne (f.eks. ProAccess). Det er jo også lidt uden for dette spm's oprindelige beskrivelse :o)

jamen hvis du gerne vil have flere point så er de oki..

jeg prøver også proaccess...

kan du hjælpe med 04/05-2004 12:18:42

Hvis du kopiere funktionen og vil kalde den fra en makro, skal du også ændre funktionsnavnet i makroen.

Men du kan til hver en tid også køre funktionen med F5, når du står i koden

prøv a se din mail..

btw, kennder du nogen der kan løse udregnings problemmet måske for lidt håndøre ?