, 19 2014 . 11:56
+
, :
Dim zp As DAO.Recordset
Set zp = CurrentDb.OpenRecordset("")
If zp.RecordCount = 0 Then
MsgBox " "
Else
MsgBox " "
End If
zp.Close
"" , sql:
SELECT Count(r.) AS [Count-], Count(r.) AS [Count-], Count(r.) AS [Count-], Count(r.) AS [Count-]
FROM _2015 AS r LEFT JOIN [C:\YandexDisk\Plan\Base_Plan_be.accdb]._2015 AS r1 ON (r. = r1.) AND (r. = r1.) AND (r. = r1.) AND (r. = r1.)
GROUP BY r1., r1., r1., r1.
HAVING (((r1.) Is Null) AND ((r1.) Is Null) AND ((r1.) Is Null) AND ((r1.) Is Null));
sql , ?
http://www.sql.ru/forum/1127419/currentdb-openrecordset
