SELECT * FROM Table1;

SELECT * FROM Query1;

Sub TestQuerySQL()\n    Dim Qry As DAO.QueryDef\n    Set Qry = CurrentDb.QueryDefs("Query2")\n    Debug.Print Qry.SQL\n    Set Qry = Nothing\nEnd Sub

SELECT Поле1 FROM Таблица1;

SELECT *\nFROM (SELECT П1 FROM Таблица1) AS Data;

select iif(true,\'ok\' , 1 / 0 ) as test

select iif(false,\'ok\' , 1 / 0 ) as test

WHERE Field1 >  1  AND Field2 <  1000  AND Field3 BETWEEN  1  TO  100 

WHERE\nIIf(Field1 <=  1 , False,\nIIf(Field2 >=  1000 , False,\nIIf(Field3 >  100 , False\nIIf(Field3 <  1 , False, True))))

WHERE Field1 =  1  OR Field2 =  2  OR Field3 =  3 

WHERE\nIIf(Field1 =  1 , True,\nIIf(Field2 =  2 , True,\nIIf(Field3 =  3 , True, False)))

Sub SetCheckConstraint()
    Dim strSQL AS String

    strSQL = "ALTER TABLE Контракт ADD CONSTRAINT СверкаСуммы CHECK " & _
        "((Контракт.Сумма >= (SELECT SUM(Цена*Количество) FROM Спецификация AS S " & _
        "WHERE S.КодКонтракта = Контракт.КодКонтракта)));"
    CurrentProject.Connection.Execute strSQL
End Sub

Sub DeleteConstraint()
    Dim strSQL AS String

    strSQL = "ALTER TABLE Контракт DROP CONSTRAINT СверкаСуммы"
    CurrentProject.Connection.Execute strSQL
End Sub

SELECT  1  AS F1,  2  AS F2,  3  AS F3,  4  AS F4,  5  AS F5,  6  AS F6,  7  AS F7,  8  AS F8,  9  AS F9,  10  AS F10,
 11  AS F11,  12  AS F12,  13  AS F13,  14  AS F14,  15  AS F15,  16  AS F16,  17  AS F17,  18  AS F18,  19  AS F19,  20  AS F20,
 21  AS F21,  22  AS F22,  23  AS F23,  24  AS F24,  25  AS F25,  26  AS F26,  27  AS F27,  28  AS F28,  29  AS F29,
 30  AS F30,  31  AS F31,  32  AS F32,  33  AS F33,  34  AS F34,  35  AS F35,  36  AS F36,  37  AS F37,  38  AS F38,  39  AS F39,
 40  AS F40,  41  AS F41,  42  AS F42,  43  AS F43,  44  AS F44,  45  AS F45,  46  AS F46,  47  AS F47,  48  AS F48,  49  AS F49,
 50  AS F50,  51  AS F51,  52  AS F52,  53  AS F53,  54  AS F54,  55  AS F55,  56  AS F56,  57  AS F57,  58  AS F58,  59  AS F59,
 60  AS F60,  61  AS F61,  62  AS F62,  63  AS F63,  64  AS F64,  65  AS F65,  66  AS F66,  67  AS F67,  68  AS F68,  69  AS F69,
 70  AS F70,  71  AS F71,  72  AS F72,  73  AS F73,  74  AS F74,  75  AS F75,  76  AS F76,  77  AS F77,  78  AS F78,  79  AS F79,
 80  AS F80,  81  AS F81,  82  AS F82,  83  AS F83,  84  AS F84,  85  AS F85,  86  AS F86,  87  AS F87,  88  AS F88,  89  AS F89,
 90  AS F90,  91  AS F91,  92  AS F92,  93  AS F93,  94  AS F94,  95  AS F95,  96  AS F96,  97  AS F97,  98  AS F98,  99  AS F99,  100  AS F100,
 101  AS F101,  102  AS F102,  103  AS F103,  104  AS F104,  105  AS F105,  106  AS F106,  107  AS F107,  108  AS F108,  109  AS F109,
 110  AS F110,  111  AS F111,  112  AS F112,  113  AS F113,  114  AS F114,  115  AS F115,  116  AS F116,  117  AS F117,  118  AS F118,  119  AS F119,
 120  AS F120,  121  AS F121,  122  AS F122,  123  AS F123,  124  AS F124,  125  AS F125,  126  AS F126,  127  AS F127,  128  AS F128
FROM MSysObjects;

UNION ALL SELECT  1  AS F1,  2  AS F2,  3  AS F3,  4  AS F4,  5  AS F5,  6  AS F6,  7  AS F7,  8  AS F8,  9  AS F9,  10  AS F10,
 11  AS F11,  12  AS F12,  13  AS F13,  14  AS F14,  15  AS F15,  16  AS F16,  17  AS F17,  18  AS F18,  19  AS F19,  20  AS F20,
 21  AS F21,  22  AS F22,  23  AS F23,  24  AS F24,  25  AS F25,  26  AS F26,  27  AS F27,  28  AS F28,  29  AS F29,
 30  AS F30,  31  AS F31,  32  AS F32,  33  AS F33,  34  AS F34,  35  AS F35,  36  AS F36,  37  AS F37,  38  AS F38,  39  AS F39,
 40  AS F40,  41  AS F41,  42  AS F42,  43  AS F43,  44  AS F44,  45  AS F45,  46  AS F46,  47  AS F47,  48  AS F48,  49  AS F49,
 50  AS F50,  51  AS F51,  52  AS F52,  53  AS F53,  54  AS F54,  55  AS F55,  56  AS F56,  57  AS F57,  58  AS F58,  59  AS F59,
 60  AS F60,  61  AS F61,  62  AS F62,  63  AS F63,  64  AS F64,  65  AS F65,  66  AS F66,  67  AS F67,  68  AS F68,  69  AS F69,
 70  AS F70,  71  AS F71,  72  AS F72,  73  AS F73,  74  AS F74,  75  AS F75,  76  AS F76,  77  AS F77,  78  AS F78,  79  AS F79,
 80  AS F80,  81  AS F81,  82  AS F82,  83  AS F83,  84  AS F84,  85  AS F85,  86  AS F86,  87  AS F87,  88  AS F88,  89  AS F89,
 90  AS F90,  91  AS F91,  92  AS F92,  93  AS F93,  94  AS F94,  95  AS F95,  96  AS F96,  97  AS F97,  98  AS F98,  99  AS F99,  100  AS F100,
 101  AS F101,  102  AS F102,  103  AS F103,  104  AS F104,  105  AS F105,  106  AS F106,  107  AS F107,  108  AS F108,  109  AS F109,
 110  AS F110,  111  AS F111,  112  AS F112,  113  AS F113,  114  AS F114,  115  AS F115,  116  AS F116,  117  AS F117,  118  AS F118,  119  AS F119,
 120  AS F120,  121  AS F121,  122  AS F122,  123  AS F123,  124  AS F124,  125  AS F125,  126  AS F126,  127  AS F127,  128  AS F128
FROM MSysObjects;

SELECT Part_all, id, start_date, end_date, Description, Manager\nFROM [\nSELECT *,Part_M1 as Part_all FROM Main_Table \nUNION \nSELECT *,Part_M2 as Part_all FROM Main_Table \nUNION \nSELECT *,Part_M3 as Part_all FROM Main_Table \nUNION \nSELECT *,Part_M4 as Part_all FROM Main_Table \nUNION \nSELECT *,Part_M5 as Part_all FROM Main_Table \nUNION \nSELECT *,Part_M6 as Part_all FROM Main_Table \nUNION \nSELECT *,Part_M7 as Part_all FROM Main_Table \nUNION \nSELECT *,Part_M8 as Part_all FROM Main_Table \nUNION \nSELECT *,Part_M9 as Part_all FROM Main_Table \nUNION\nSELECT *,Part_M10 as Part_all FROM Main_Table ]\nWHERE (end_date>=Date()) and (Part_all<>\'\')\nORDER BY Part_all;

SELECT * FROM Table1

TABLE Table1

SELECT *
FROM [TABLE Table1]. AS X;

SELECT *
FROM [PARAMETERS x Long;
SELECT * FROM MSysObjects AS O WHERE Id = x]. AS Data;

TABLE Table1

SELECT *
FROM [TABLE Table1]. AS X;

SELECT *
FROM [PARAMETERS x Long;
SELECT * FROM MSysObjects AS O WHERE Id = x]. AS Data;

SELECT *
FROM [PARAMETERS x Long;
SELECT * FROM MSysObjects AS O WHERE Id = x]. AS Data;

SELECT *
FROM (PARAMETERS x Long)  AS Data;

SELECT *
FROM [TRANSFORM SUM(S.Quantity) AS Total
SELECT S.SaleDate
FROM tblSale AS S INNER JOIN tblProduct AS P ON S.ProductID=P.ProductID
WHERE S.SaleDate>=# 1 / 1 / 2011 #
GROUP BY S.SaleDate
PIVOT P.Product IN ('Товар№1', 'Товар№2', 'Товар№3')].  AS Sale;

Private Sub txtMyTextBox_KeyPress(KeyAscii As Integer) 
    Dim strTemplate As String 

    strTemplate = "!@#$%^&*()_+="
    If InStr( 1 , strTemplate, Chr(KeyAscii)) >  0  Then KeyAscii =  0  
End Sub

s = ("от " + Format(vDate, "dd\.mm\.yyyy")) & ""

SELECT
     "от " + Format(Null, "dd\.mm\.yyyy"),
     Format(Null, "от dd\.mm\.yyyy"),
     "от " + Format(# 1 / 1 / 2011 #, "dd\.mm\.yyyy"),
     Format(# 1 / 1 / 2011 #, "от dd\.mm\.yyyy");

Dim xQuery AS DAO.Querydef
Dim RecSet AS DAO.RecordSet

SET xQuery = CurrentDB("Запрос1")
xQuery.Parameters("Число") =  1 
xQuery.Parameters("Дата") = # 1 / 1 / 2010 #
SET RecSet = xQuery.Openrecordset

Dim RecSet As DAO.Recordset
Dim strSQL As String

strSQL = "PARAMETERS Число Long = 1, Дата Datetime = #1/1/2010#;" & vbCrLf & _
    "TABLE (Запрос1)"
Set RecSet = CurrentDb.OpenRecordset(strSQL)

Dim RecSet As ADODB.Recordset
Dim strSQL As String

strSQL = "EXECUTE Запрос1 @Число=1, @Дата=#1/1/2011#;"
Set RecSet = New ADODB.Recordset
RecSet.Open strSQL, CurrentProject.Connection, adOpenKeyset

SELECT
    CurrentDB.Name AS DBFullName,
    CurrentProject.Name AS DBName,
    Currentproject.Path AS DBPath,
    Currentproject.AccessConnection AS AccessConnection,
    Currentproject.BaseConnectionString AS Connection;

SELECT CDate(CurrentProject.AllForms!Форма1.DateModified) AS DateModified

SELECT CurrentDB.Openrecordset("SELECT Name FROM MSysobjects").Fields("Name")

SELECT EVAL("CurrentDB.Openrecordset(""SELECT Name FROM MSysobjects"").Fields(""Name"")")

SELECT
    ID,
    EVAL("CurrentProject.Connection.Execute(""" &
        IIf(Id< 100 , "SELECT Field1 AS X FROM Table1", "SELECT Field2 AS X FROM Table2") &
            """).Fields(""Name""")") AS SomeValue
FROM Table3

SELECT * FROM MSysObjects
WHERE
    IIf(IsNull(Eval("CurrentDB.Execute(""INSERT INTO Table1 VALUES(1, 'Test')"")"))=False, True,
    IsNull(Eval("CurrentDB.Execute(""UPDATE Table1 SET Num = Num + 10"")")))

SELECT IIf(DCount("Name", "MSysobjects", "Name='Запрос1'")> 0 ,
   IsNull(EVal("CurrentProject.Connection.Execute('DROP PROCEDURE Запрос1').ActiveConnection"))=False,
   False) AS Deleted;

SELECT
Eval("Shell(""""""C:\Program Files\Microsoft Office\OFFICE11\MSACCESS.EXE""""
""""C:\Test.mdb"""""")");

With CurrentDB.QueryDefs("")

Public Function sBin(ByVal b As Byte) As String
    Dim i As Integer
    
    For i =  0  To  7 
        If b And  2  ^ i Then
            sBin =  1  & sBin
        Else
            sBin =  0  & sBin
        End If
    Next i
End Function

SELECT  3  And  7 

? 3  And  7 
 3 

CREATE FUNCTION fBin (@Value Tinyint) RETURNS Char( 8 )
AS
BEGIN
	DECLARE @I Tinyint, @V Char( 8 );

	/*	По умолчанию все переменные пустые (Null), поэтому им нужно присвоить
		первоначальные значения.
	*/
	SELECT @I =  0 , @V = '';

	WHILE @I <  8 
	BEGIN
		SELECT @V = CASE WHEN (@Value & POWER( 2 , @I)) >  0  THEN '1' ELSE '0' END + @V;
		SET @I = @I +  1 ;
	END

	RETURN @V;
END

?CurrentProject.Connection.Execute("SELECT 3 Band 7 as A").Fields("A").Value
  3  

Dim strSQL As String

strSQL = "SELECT N.*, T.*" & vbCrLf & _
"FROM Настройка AS N, [~TMPCLP_Table] AS T" & vbCrLf & _
"WHERE (N.ID Band T.ID) > 0"
With CurrentProject.Connection.Execute(strSQL)
    Do Until EOF
        ' Здесь получаем значения свойств и настраиваем БД.
        ' К примеру, устанавливаем запрет открытия какой-либо формы или отчёта
        ' определённым группам пользователей
        .MoveNext
    Loop

Function MsgBoxExt(Prompt As String, Optional Buttons As VbMsgBoxStyle = vbOKOnly, _
        Optional Title, Optional ByVal SecondsToWait As Integer) As Integer
    ' Аналог MsgBox с возможностью самовыключения.
    ' Возвращает код нажатой клавиши или -1, если время ожидания исчерпано.
    Dim wshShell As Object
    
    Set wshShell = VBA.CreateObject("WScript.Shell")
    MsgBoxExt = wshShell.PopUp(Prompt, SecondsToWait, Title, Buttons)
End Function

SELECT * FROM [C:\Test.mdb].MSysObjects AS O