ACCESS 2013 VBA |
Sub () X1 = 2 X11 = 5984 X2 = 2 X22 = 6292 For XX1 = X1 To X11 Z1 = Sheets(1).Cells(XX1, 7) FL = 0 For XX2 = X2 To X22 Z2 = Sheets(2).Cells(XX2, 7) If Z1 = Z2 Then FL = 1 Next XX2 If FL <> 1 Then Sheets(1).Cells(XX1, 7)=777 End If Next XX1 End Sub
http://www.sql.ru/forum/1300310/sravnit-dve-tablicy-v-access-2013-pri-pomoshhi-vba