Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Lukas
Создаем в базе две связанные таблички к текстовым файлам с разделителем "=",
Первое поле текстовое, называем "Account"
Второе поле денежное, называем "Amount".
Называем таблички соответственно "1txt" и "2txt".
Создаем запрос, и смотрим в нем разницу:

SELECT u.Acc As [Счет], Sum(u.Amn) As [Разница] FROM ( SELECT Mid(t1.Account,3) As Acc, t1.Amount As Amn FROM 1txt t1 WHERE Left(t1.Account,2) In ('10','11','20','21') UNION ALL SELECT Mid(t2.Account,3) As 1, -t2.Amount As 2 FROM 2txt t2  WHERE Left(t2.Account,2) In ('50','51') UNION ALL SELECT Mid(t3.Account,3) As 3, t3.Amount  As 4 FROM 2txt t3 WHERE Left(t3.Account,2) In ('60','61') UNION ALL SELECT Mid(t4.Account,3) As 5, -t4.Amount As 6 FROM 2txt t4 WHERE Left(t4.Account,2) In ('10','11','20','21')) u Group By u.Acc Order By u.Acc

Кстати ваша арифметика в примере расчета не учитывает 51 и 61 счета.
Если все получиться, в дальнейшем достаточно будет заменить текстовые файлы, все должно будет продолжить работать на последующие дни.

В прицепе бд с импортированными таблицами и запрос с результатами к ним.