Sammenlign tabeller

Nedenstående kan måske fremme forståelsen for det ønskede resultat.

Før indlæsning:
===============

Tabel 1:
ID    Status    Timer
1    A        7
2    A        7
3    A        7
4    A        7
5    A        7


Tabel 2:
ID    Status   
1    A       
2    F       
3    A       
4    S       
5    A

Efter indlæsning:
=================

Tabel 1:
ID    Status    Timer
1    A        7
2    F        0
3    A        7
4    S        0
5    A        7


Tabel 2:
ID    Status   
1    A       
2    F       
3    A       
4    S       
5    A

Ingen med et bud?

Altså der er jo den omstændige!~)

Lav en TEMP tabel, med id, status og timer, herefter:

Forespørgsel0
DELETE TEMP.*
FROM TEMP;

Forespørgsel1
INSERT INTO TEMP ( id, Status, Timer )
SELECT Tabel1.id, Tabel2.Status, Tabel1.Timer
FROM Tabel1 INNER JOIN Tabel2 ON Tabel1.id = Tabel2.id;

Forespørgsel2
UPDATE TEMP SET TEMP.Timer = 0
WHERE (((TEMP.Status)>"A"));

Herefter på din formular:

Private Sub Form_Open(Cancel As Integer)
DoCmd.OpenQuery "forespørgsel0"
DoCmd.OpenQuery "forespørgsel1"
DoCmd.OpenQuery "forespørgsel2"
End Sub

Du har nu en temp tabel, som indeholder de data du ønsker og du kan bruge temp som din postkilde eller du kan lave en forespørgsel3, som overskriver dataerne i tabel1, så du er klar påny!~)

Jeg har ikke noget at teste men jeg har ikke glemt det, og jeg vender tilbage når jeg har testet.
I mellemtiden er alternative forslag velkomne.

Foreløbig tak.

Det kan vist gøres enklere:

UPDATE Tabel1 INNER JOIN Tabel2 ON Tabel1.ID = Tabel2.ID
SET Tabel1.Status = [Tabel2].[Status], Tabel1.Timer = 0
WHERE (((Tabel2.Status)<>"A"));

I stedet for at lade knappen åbne formularen direkte, kunne du lige køre ovenstående først og så åbne formularen, altså:

Docmd.SetWarnings False
Docmd.OpenQuery "Forespørgslen"
Docmd.SetWarnings True
Docmd.OpenForm "Formularen"

Det virker fint, tak for hjælpen til begge.

Anytime. Tak for point.