Dim conn As ADODB.Connection

Set conn = New ADODB.ConnectionconnString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Database1.accdb;Persist Security Info=False;"

conn.Open connStringDim records As ADODB.Recordset

Set records = New ADODB.Record
Set records = New ADODB.Recordset

records.ActiveConnection = conn

records.Open "select st1,st2,FuncInAccess(st1,st2) from names "

http://www.sql.ru/forum/1072914/zapros-iz-excel-k-access

Select Case dtTemp
   Case CampFrom To CampTo
'бла-бла-бла
   Case dtTemp < CampFrom
'вот сюда я должен попасть
   Case dtTemp > CampTo
   GoTo nextt
   End Select

http://www.sql.ru/forum/1072892/sravnenie-korotkogo-i-dlinnogo-formata-daty

http://www.sql.ru/forum/1072885/spiski-v-access

                        rs4 = CurrentDb.OpenRecordset("SELECT max(tblOffNames.to) as to " _
                            & "FROM tblOffers LEFT JOIN tblOffNames ON tblOffers.offer_id = tblOffNames.offer_id " _
                            & "WHERE tblOffers.client_id=" & rs1.client_id & " and tblOffNames.offer_id NOT IN (SELECT tblResp.offer_id " _
                            & "FROM tblResp LEFT JOIN tblRespAction ON tblResp.resp_id = tblRespAction.resp_id " _
                            & "WHERE tblResp.client_id=" & rs1.client_id & " AND Not tblResp.offer_id Is Null)")

http://www.sql.ru/forum/1072869/ne-rabotaet-debug-print

http://www.sql.ru/forum/1072861/sinhronnyy-perehod-na-odnu-i-tu-zhe-zapis-mezhdu-glavnoy-i-podchinennoy-v-razdelennoy-forme

http://www.sql.ru/forum/1072821/mozhno-li-sushhestvenno-sekonomit-ne-svyazyvaya-tablicy-po-vyrozhdennomu-polu

http://www.sql.ru/forum/1072817/dostup-iz-vba-6-k-bd-aksess-2010

SELECT tblOffNames.to, tblOffNames.offer_id
FROM tblOffers LEFT JOIN tblOffNames ON tblOffers.offer_id = tblOffNames.offer_id
WHERE (((tblOffers.client_id)=3375771));

SELECT tblResp.client_id, tblRespAction.action_id, tblResp.offer_id,
tblRespAction.data, tblRespAction.time 
FROM tblResp LEFT JOIN tblRespAction ON tblResp.resp_id = tblRespAction.resp_id
WHERE tblResp.client_id=3375771 AND Not tblResp.offer_id Is Null

http://www.sql.ru/forum/1072756/zapros-vlozhennyy-v-zapros

    Screen.PreviousControl.SetFocus
    DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70

     select * from table t where t.text like '*слово*'

http://www.sql.ru/forum/1072688/poisk-v-pole-memo

http://www.sql.ru/forum/1072669/prava-dostupa-k-bd-aksess-2013-na-vba

http://www.sql.ru/forum/1072663/pri-otkrytii-formy-poyavlyaetsya-menushka-nastroyki

http://www.sql.ru/forum/1072626/access-2013-portit-fayl-bazy-accdb

http://www.sql.ru/forum/1072618/vstavka-krivogo-polya-v-otchet

Option Compare Database
 
Private Sub cmdLogin_Click() 'cmdLogin - это имя кнопки для которой пишется сценарий
Dim rst As DAO.Recordset
 
Set rst = CurrentDb.OpenRecordset("Пользователи") 'Пользователи - указываем с какой таблицей будет работать сценарий
  With rst
  If IsNull(Me.cboCurrentEmployee.Value) Then 'Условие если поле выпадающего списка на момент клика пустое, то
  MsgBox "Ошибка входа! Введите Логин."
  Exit Sub
  Else:
  .FindFirst ("Логин=" & Me.cboCurrentEmployee.Value)'<- Здесь ошибка "Операция не поддерживается для обьектов данного типа"
If .NoMatch Then ' Если нет совпадений, то
  MsgBox "Ошибка входа! О данном пользователе нет информации в БД."
  Exit Sub
  Else:
  If Me.Поле_для_пароля.Value <> .Fields("Пароль").Value Then 'Условие для сравнения введенных данных в поле для пароля с колонкой пароль в таблице "Сотрудники"
  MsgBox "Пароль неправильный или не соответствует имени пользователя"
  Exit Sub
  End If
  If IsNull(Me.Поле_для_пароля.Value) Then ' Условие для ошибки в случае, если поле для пароля не заполненное
  MsgBox "Вы не ввели пароль!"
  Exit Sub
  End If
  DoCmd.Close 'Команда на закрытие текущей формы, в данном случае формы входа
  Select Case .Fields("Номер_роли").Value
  Case "1"
  DoCmd.OpenForm "Литература"
  Case "2"
  DoCmd.OpenForm "Сотрудники"
  Case "3"
  DoCmd.OpenForm "Графики" 'отбор по полю должность и команда открытие указаной формы для соответсвующей должности
End Select
  End If
  End If
  End With
rst.Close
Set rst = Nothing
End Sub

http://www.sql.ru/forum/1072612/pomogite-ispravit-oshhibku

http://www.sql.ru/forum/1072595/hranit-jpg-i-png-kartinki-v-pole-bd-shtatno-bez-vba

http://www.sql.ru/forum/1072585/import-tablic-s-obedinennymi-yacheykami-iz-word-v-excel

http://www.sql.ru/forum/1072511/konflikt-zapisi

http://www.sql.ru/forum/1072503/posovetuyte-kak-luchshe-organizovat-proverku-usloviya-na-forme

Private Sub Otchet_AfterUpdate()
   Me.Дата_отчета = Date
End Sub

Private Sub Otchet_AfterUpdate()
 [color=yellow]If Otchet Is Null Then[/color]
   Me.Дата_отчета = Null
 Else
   Me.Дата_отчета = Date
 End If
   ' Me!Дата_отчета = IIf(Me!Otchet Is Null, Null, Дата_отчета = Date)
End Sub

Private Sub Otchet_AfterUpdate()
 [color=yellow]If Not Otchet Then[/color]
   Me.Дата_отчета = Date
 Else
   Me.Дата_отчета = Null
 End If
   ' Me!Дата_отчета = IIf(Me!Otchet Is Null, Null, Дата_отчета = Date)
End Sub

Private Sub Дата_заявки_AfterUpdate()
 If Not Дата_заявки Then
  Me.Дата_выполнения_план = Round(Me.Дата_заявки + 10)
  Me.Дата_занесения_заявки = Date
  Me.Неделя_план = DatePart("ww", Round(Me.Дата_заявки + 10), 2)
 Else
  Me.Дата_выполнения_план = Null
  Me.Дата_занесения_заявки = Null
  Me.Неделя_план = Null
 End If
End Sub

http://www.sql.ru/forum/1072472/kak-pri-udalenii-znacheniya-polya-sdelat-drugoe-pole-pustym

http://www.sql.ru/forum/1072449/pole-so-spiskom