Private Sub değişen_lastik_sayısı_AfterUpdate()

If Form_Tablo1.araçtaki_lastik_sayısı <> Form_Tablo2.değişen_lastik_sayısı Then MsgBox "Araçtaki Lastik Sayısı ile değişen lastik sayısı Eşit Değil": Exit Sub

End Sub

SELECT Tablo1.plaka, Tablo1.[araçtaki lastik sayısı], Tablo2.[değişen lastik sayısı]

FROM Tablo1 INNER JOIN Tablo2 ON Tablo1.plaka = Tablo2.plaka

GROUP BY Tablo1.plaka, Tablo1.[araçtaki lastik sayısı], Tablo2.[değişen lastik sayısı]

HAVING (((Tablo2.[değişen lastik sayısı])>[araçtaki lastik sayısı]));