-Ïîèñê ïî äíåâíèêó

Ïîèñê ñîîáùåíèé â rss_sql_ru_access_programming

 -Ïîäïèñêà ïî e-mail

 

 -Ïîñòîÿííûå ÷èòàòåëè

 -Ñòàòèñòèêà

Ñòàòèñòèêà LiveInternet.ru: ïîêàçàíî êîëè÷åñòâî õèòîâ è ïîñåòèòåëåé
Ñîçäàí: 16.03.2006
Çàïèñåé:
Êîììåíòàðèåâ:
Íàïèñàíî: 4


Ñðàâíèòü äâå òàáëèöû â ACCESS 2013 ïðè ïîìîùè VBA

×åòâåðã, 02 Àâãóñòà 2018 ã. 17:33 + â öèòàòíèê
Äîáðîãî äíÿ!
Ðàáîòàþ ñ òàáëèöàìè ÁÄ, êîòîðûå äîñòàëèñü ïî íàñëåäñòâó.
Íåîáõîäèìî ñðàâíèòü òàáëèöó 1 (íàïðèìåð ïî çíà÷åíèþ ñòîëáöà 7) ñ òàáëèöåé 2 (ñòîëáåö 7).
Åñëè ïîçèöèÿ îòñóòñòâóåò â òàáë.2, òî â òàáëèöå 1, íàïðèìåð â ñòîëáöå 8 ïðîñòàâèòü öèôðó 777.

Ðàíåå ïðîãðàììèðîâàë â VBA EXCEL.
 VBA EXCEL ýòî âûãëÿäåëî áû òàê:

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


Êàê ýòî ìîæåò âûãëÿäåòü â ACCESS (äîëæíî áûòü ÷òî-òî ïîõîæåå - è òàì è òàì VBA) ?

Åñëè ÷òî - òàïêàìè è áîòèíêàìè ïðîøó íå êèäàòüñÿ...)))

http://www.sql.ru/forum/1300310/sravnit-dve-tablicy-v-access-2013-pri-pomoshhi-vba


 

Äîáàâèòü êîììåíòàðèé:
Òåêñò êîììåíòàðèÿ: ñìàéëèêè

Ïðîâåðêà îðôîãðàôèè: (íàéòè îøèáêè)

Ïðèêðåïèòü êàðòèíêó:

 Ïåðåâîäèòü URL â ññûëêó
 Ïîäïèñàòüñÿ íà êîììåíòàðèè
 Ïîäïèñàòü êàðòèíêó