http://www.sql.ru/forum/1261214/monitoring-deystviy-drugih-polzovateley

http://www.sql.ru/forum/1261183/nuzhna-pomoshh-v-sozdanii-zaprosa

http://www.sql.ru/forum/1261144/poisk-v-forme-cherez-druguu-formu

INSERT INTO tabel(summa)
SELECT aklad.summa
FROM aklad

http://www.sql.ru/forum/1261129/select-into-s-usloviem

Option Compare Database
Option Explicit

Public Function GetNewConnection() As ADODB.Connection
    Dim oCon As New ADODB.Connection
    Dim sCnStr As String    

    If oCon.State = adStateOpen Then
        oCon.Close
    End If
    
    sCnStr = "Provider=SQLNCLI11;Server=dogt;" & _
        "Database=Production;Integrated Security=SSPI;"
    oCon.Open sCnStr
    
    If oCon.State = adStateOpen Then
        Set GetNewConnection = oCon
    End If
    
End Function

Option Compare Database
Option Explicit
Private Sub Form_Load()
    Dim objConn As New ADODB.Connection
    Dim objRs As New ADODB.Recordset

    On Error GoTo ErrHandler:

    Set objConn = GetNewConnection

    With objRs
        Set .ActiveConnection = objConn
        .Source = "select * from ClassUnitMeas"
        .LockType = adLockOptimistic
        .CursorType = adOpenDynamic
        .CursorLocation = adUseClient
        .Open
    End With

    Set Me.Recordset = objRs

    objRs.Close
    objConn.Close
    Set objRs = Nothing
    Set objConn = Nothing

ErrHandler:
    If objRs.State = adStateOpen Then
        objRs.Close
    End If
    If objConn.State = adStateOpen Then
        objConn.Close
    End If

    Set objRs = Nothing
    Set objConn = Nothing

    If Err <> 0 Then
        MsgBox Err.Source & "-->" & _
        Err.Description, , "Error"
    End If
End Sub

http://www.sql.ru/forum/1261120/access-ovskaya-knopka-obnovit-vse-ne-udaetsya-inicializirovat-postavshhika-dannyh

http://www.sql.ru/forum/1261104/pomogite-nikak-ne-mogu-sdelat-zapros-po-ostatkam-tovara-na-skladah-vydaet-oshibku

http://www.sql.ru/forum/1261092/kak-pereyti-na-combobox-v-otdelnuu-formu-iz-drugoy-tablichnoy-formy

http://www.sql.ru/forum/1261065/v-tablice-pri-vkluchenie-itogi-propadaet-poslednyaya-stroka-novaya-zapis

rivate Sub Report_Load()

Dim db As DAO.Database
Dim ds As DAO.Recordset
Set db = CurrentDb
Dim rsQuery As DAO.QueryDef

Dim strSQL As String

strSQL = " SELECT Отказы.Время, Отказы.ID, Отказы.[Наименование отказавшего оборудования], Отказы.[Описание отказа ], Отказы.СЗМН, НПС.НПС, Отказы.[Дата ], Отделы.NameOtdel" _
& " FROM (НПС INNER JOIN Отказы ON НПС.ID = Отказы.ID) INNER JOIN Отделы ON Отказы.IDOtdel = Отделы.IDOtdel"

If Forms![УсловияПечати].Группа10 = 1 Then
    strSQL = strSQL + " order by [Дата]"
ElseIf Forms![УсловияПечати].Группа10 = 2 Then
     strSQL = strSQL + " order by [НПС]"
End If
   
For Each rsQuery In CurrentDb.QueryDefs
        If rsQuery.Name = "Запрос_" Then
              CurrentDb.QueryDefs.Delete "Запрос_"
           Exit For
        End If
    Next


Set rsQuery = CurrentDb.CreateQueryDef("Запрос_", strSQL)

Me.Requery
'Me.Filter = "Отказы.[Дата ]>=#" & Format(Forms![УсловияПечати].Dat1_, "mm\/dd\/yy") & "# And Отказы.[Дата ]<=#" & Format(Forms![УсловияПечати].Dat2_, "mm\/dd\/yy") & "#"
'Me.FilterOn = True

End Sub

Private Sub Report_Load()


Me.Filter = "Отказы.[Дата ]>=#" & Format(Forms![УсловияПечати].Dat1_, "mm\/dd\/yy") & "# And Отказы.[Дата ]<=#" & Format(Forms![УсловияПечати].Dat2_, "mm\/dd\/yy") & "#"
Me.FilterOn = True

Me.OrderByOn = False
If Forms![УсловияПечати].Группа10 = 1 Then
    Me.OrderBy = "Отказы.[Дата ] DESC"
ElseIf Forms![УсловияПечати].Группа10 = 2 Then
    Me.OrderBy = "НПС.НПС DESC"
End If
 Me.OrderByOn = True
Debug.Print Me.OrderBy;
 Me.Requery

End Sub

http://www.sql.ru/forum/1261052/sortirovka-v-zaprose

Option Explicit

Public WithEvents tbx As TextBox

Private Sub tbx_Click()
   MsgBox "You clicked textbox: " & tbx.Name
End Sub

Option Explicit

Dim Coll As Collection

Private Sub Form_Load()
    Dim oh As TextboxHandler
    Dim ctl As Control
    Set Coll = New Collection
       
    For Each ctl In Form.Controls
        With ctl
            Select Case .ControlType
            Case acTextBox
                Set oh = New TextboxHandler
                Set oh.tbx = ctl
                Coll.Add oh
            End Select
        End With
    Next ctl
End Sub

http://www.sql.ru/forum/1261007/odin-obrabotchik-sobytiy-na-neskolko-obektov-formy

http://www.sql.ru/forum/1260979/pomogite-pozhaluysta-obedinit-tablicy

http://www.sql.ru/forum/1260939/zapros-s-usloviem-data

Private Sub Report_Load()


Dim db As DAO.Database
Dim rstData As DAO.Recordset
Dim strSQL As String
Dim rsQuery As DAO.QueryDef
Dim par1, par2 As DAO.Parameter

   SELECT т1.поле1 т2.поле 2, т2.поле3, т1.поле4 FROM т1, т2" _
   & " WHERE  т1.поле1 =  т2 .поле1 and  (т1.поле4>= [par1]) And ( т1.поле4 <=[par2]) 

For Each rsQuery In CurrentDb.QueryDefs
        If rsQuery.Name = "Запрос_" Then
              CurrentDb.QueryDefs.Delete "Çàïðîñ_"
           Exit For
        End If
    Next


Set rsQuery = CurrentDb.CreateQueryDef("Запрос_", strSQL)

  rsQuery.Parameters("par1").Value = CDate(Format(Forms![Форма].Dat1_, "mm\/dd\/yy"))
  rsQuery.Parameters("par2").Value = CDate(Format(Forms![Форма].Dat2_, "mm\/dd\/yy"))


Me.RecordSource = "Запрос_"
rsQuery.Close: Set rsQuery = Nothing
CurrentDb.Close
End Sub

http://www.sql.ru/forum/1260926/zapros-s-parametrami-iz-dannyh-formy

http://www.sql.ru/forum/1260888/imeutsya-li-sobytiya-dlya-oblasti-vydeleniya-lentochnoy-formy

http://www.sql.ru/forum/1260743/cheredovanie-cveta-strok-v-forme

SELECT Занятия.[ФИО ребенка], Занятия.[Дата занятия], Занятия.Время, Занятия.Группа, Занятия.Педагог, Занятия.Статус
FROM Занятия
WHERE (((Занятия.[ФИО ребенка])=[Формы]![КлиентыUp]![КодКлиента]));

http://www.sql.ru/forum/1260737/zapros-ne-nahodit-pole-v-forme-mistika-access

http://www.sql.ru/forum/1260693/kak-peredat-znachenie-polya-formy-pl-sql-zaprosom-v-proceduru-na-servere

Code
AAA
AAB
AAC
AAD
AAE
AAF
AAG 

http://www.sql.ru/forum/1260691/pomogite-sostavit-algoritm

http://www.sql.ru/forum/1260686/sozdanie-formy-avtorizacii

http://www.sql.ru/forum/1260680/nazvanie-konstanty-po-reddiku