Проблема в удалении полей из таблиц в откомпелированном ехе-файле
нужно отдновременно удалить поля из 3-х таблиц
при установке set exclusive on происходит удаление только из первой таблицы,
а затем вылазиет сообщение, что доступ запрещен
помогите пожалуйста

Конечно записи, попутал :)
SET EXACT ON
PUBLIC ARRAY C[1]
PUBLIC ARRAY D[1]
SELECT contract.client_id;
FROM base!contract;
INNER JOIN base!client;
ON contract.client_id=client.client_id;
WHERE name1==thisform.clientlist.value INTO ARRAY C
SELECT deliverys.client_id;
FROM base!deliverys;
INNER JOIN base!client;
ON deliverys.client_id=client.client_id;
WHERE name1==thisform.clientlist.value INTO ARRAY D
IF MESSAGEBOX("Вы уверены?",4+64+0,"Сообщение") = 6
*--------delete client---------
*CLOSE DATABASES
OPEN DATABASE base
SET EXCLUSIVE ON
USE client
RECALL ALL
DELETE FROM client WHERE name1=thisform.clientlist.value
PACK
*--------delete contract-------
CLOSE DATABASES
OPEN DATABASE base
SET EXCLUSIVE ON
USE contract
RECALL ALL
DELETE FROM contract WHERE contract.client_id=C[1]
PACK
*--------delete delivery-------
CLOSE DATABASES
OPEN DATABASE base
SET EXCLUSIVE ON
USE deliverys
RECALL ALL
DELETE FROM deliverys WHERE deliverys.client_id=D[1]
PACK
MESSAGEBOX("Информация удалена",0+64+0,"Сообщение")
thisform.Release
CLOSE DATABASES
ENDIF
удаляю вот так, в когда компилишь -не хочет давать доступ к остальным двум таблицам