hjælp til udregning

jeg kan ikke få denne vb tila t virke som den skal ..

Her sammenligner jeg tabellerne 4 og 6 og den der er billigt bliver insat i tabel 7. godt det virker.

Nu vil jeg gerne have at den skal sige:

hvis prisen i tabel4 er > end prisen i tabel 6 x 1.02%
hvis priser i table4 er < end prisen i tabel 6 træk da 100 fra prisen i tabel6.

og det resultat skal indsættes i tabel7. men det vil den ikke...

hjælp håber I forstår


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