сами кнопки есть, но не работают( а должны открывать определенные формы БД( вот что в OnAction писать не знаю( или мб что то еще надо сделать? уже больше суток сижу с этой БД "совокупляюсь" бошка уже взрывается(( плиз хелп.. желательно разжевать как для первоклассника(

Option Compare Database

Public Sub Form_Open()
Dim cbar As CommandBar
Dim Exist As Boolean
Exist = False
For Each cbar In CommandBars
If cbar.Name = "MainMenu" Then
Exist = True
Exit For
End If
Next cbar
If Not Exist Then
Set cbar = CommandBars.Add(Name:="MainMenu", _
Position:=msoBarTop, MenuBar:=True, Temporary:=False)End If
cbar.Enabled = True
cbar.Visible = True
With cbar
With .Controls
With .Add(Type:=msoControlButton)
.Style = msoButtonCaption
.Caption = "Добавить"
.Enabled = True
.OnAction = ""
End With

http://www.sql.ru/forum/1127543/kak-privyazat-formu-iz-access-k-makrosu-menu-nadstroek

Имеется Access 2010
Делаю линк таблицы ADDRESS в схеме EQUOTING - все замечательно линкуется, но отображается плохо.
Та же копия таблицы в схеме dbo отображается правильно.
Подозреваю, что Акцесс не понимает точку в имени таблицы.
Вопрос - как лечить?

http://www.sql.ru/forum/1127542/link-tablicy-iz-sql-server-v-sheme-ne-dbo

Разработано и используется приложение на MS Access 2003. В качестве базы данны используется MS SQL Server 2000. Для ведения базы данных разработано около 200 хранимых процедур, которые обеспечивают выполнение операций вставки и обновления. Каждая процедура имеет свой определенный набор параметров. По результатам выполнения процедуры возвращают код ошибки, и если он не 0 то и описание ошибки.

При попытке перехода на 2013 Access выясняется, что DAO больше не поддерживается. Т.е. код:
Set wrkODBC = CreateWorkspace("ODBCWorkspace7", CurrentUser, "", dbUseODBC)

Set cnnSQL = GetConnection(wrkODBC)

Set rs = cnnSQL.OpenRecordset(Zapros, dbOpenDynaset, 0),

где Zapros=Update1_01 1,1,’Delivery’,1010, и т. д. Запрос формируется программным путем.

Больше не работает. Предлагают использовать ADO. Но использовать напрямую, указывая, что выполняется хранимая процедура – кошмар. Описывать вручную все параметры для каждой процедуры – безнадежный случай. Любое изменение структуры и лезть в код?

Пробовал два варианта.
Первый.

Set cnn = New ADODB.Connection
StrConn = "Provider=SQLOLEDB;" & "Data Source=MDB;" &
"Initial Catalog= Violations; Trusted_Connection=Yes;"
cnn.ConnectionString = StrConn
cnn.ConnectionTimeout = 15
cnn.CommandTimeout = 30
cnn.Open

Set CnnRecordset = cnn.Execute(Zapros)

Процедура отрабатывает. Данные в БД изменяются. Но результаты обрботки не возвращаются.
Оператор While Not CnnRecordset.EOF не работает, так как набор не открыт.

Второй.

Set cnn = New ADODB.Connection
Set Cmd = CreateObject("ADODB.Command")
Cmd.ActiveConnection = cnn
Cmd.CommandType = adCmdUnknown
Cmd.CommandText = Zapros
Set CnnRecordset = CreateObject("ADODB.Recordset")
On Error GoTo AdoError
Set CnnRecordset = Cmd.Execute()

Процедура отрабатывает. Данные в БД изменяются. Но результаты обрботки не возвращаются.
Оператор While Not CnnRecordset.EOF не работает, так как набор не открыт.

Как добиться и выполнения процедуры и возврата результатов выполнения. Возврат параметров выполняется по команде Return.

http://www.sql.ru/forum/1127537/kak-vypolnit-cherez-ado-hranimuu-proceduru-i-poluchit-rezultaty-obrabotki-nazad-v-access

На главной форме находятся три табличные, подчиненные формы.
Нужно чтобы при перемещении по записям в первой форме, записи обновлялись в двух других.
Подскажите как это сделать? Или подкиньте какой-нибудь образец

http://www.sql.ru/forum/1127533/kak-obnovit-podchinennuu-formu

Доброго времени суток! Обращаюсь с немного необычной просьбой. Необычная она потому, что поручено задание автоматизации еженедельного отчета (который пользователи вручную заполняют в Word) автоматизировать в MS Access.

Собственно, на основе формы во вложении нужно реализовать следующее:

Допустим, такая задачка. Сдача еженедельных отчетов происходит по пятницам с 9 утра до 12 дня. Файл Access условно находится в локальной папке сети, доступ к которой имеет каждый сотрудник компании. Пользователи в этот промежуток времени заходят в локальную папку что бы заполнить еженедельный отчет.
Делают все по инструкции, заполняют форму своими данными.


Далее, пользователи заполнили данные и тут (!) важный момент, что они должны делать дальше. Допустим, сохраняют данные просто в форме.

Что нужно:
1. Нужно что бы администратор по окончании срока заполнения отчета заходил в локальную папку с файлом и мог просмотреть весь список тех пользователей (всего их 100 человек) кто заполнили, и не успели заполнить отчет.
2. Администратор может внести правки в заполненный отчет пользователей с целью проверки правописания и тд
3. Отчеты каждого пользователя должны суммироваться в единственный Word (т.е. консолидироваться. Если заполняют 100 человек, что сохранятся должно в 1 файл в количестве 100 листов, 1 отчет - 1 лист)
4. Наконец, проверенный администратором файл отправляется по почте директору, где он идет на печать.

Надеюсь, я выразился понятно. Проще говоря, мне нужно реализовать систему сохранения данных каждого из 100 пользователей в одном файле любым возможным способом, пускай даже самым банальным/замудренным или простым/сложным. Далее, администратор каждого департамента (HR, IT, Логистика) заходит в группу своих подчиненных ( у HR - 20 человек, у IT - 50 человек, у Логистики - 30 человек) заходит самым последним и проверяет количество заполненных отчетов (как вариант - поле с выпадающим списком или количество нажатых checkBox). Он может проверить правильность их заполнения и после корректировки отправляет их генеральному директору для печати.

Что Вы можете посоветовать в реализации этих действий?

http://www.sql.ru/forum/1127515/avtomatizaciya-processa-zapolneniya-ezhenedelnogo-otcheta-sredstvami-ms-access

Товарищи! подскажите:

В отчете можно через VBA присваивать значения к обекту через VBA?

Например:
Private Sub Report_Open(Cancel As Integer)
If DLookup("[№ заявки]", "[Заявка]")= 1 Then
Me.Поле81 = 1
end if
End Sub

ругается на: Me.Поле81 = 1 "невозможно присвоить значение обекту".

http://www.sql.ru/forum/1127493/formirovanie-otcheta

Здравствуйте, для выполнении существования записей использую:

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

Необходимо установить связь с таблицей excel. Заголовки столбцов находятся в 8 строке. Пытаюсь так:

Sub test()
 
AddLinkTable "[Excel 8.0; HDR=Yes;DATABASE=C:\Users\ARM_Fin_info_27807160.xlsx].[Лист1$A8:AF50000]", "Лист1", "Данные"
End Sub


Public Sub AddLinkTable(connect As String, tblName As String, newTblName As String)
    Dim NewTableDef As TableDef
    Set NewTableDef = CurrentDb.CreateTableDef(newTblName)
 
    NewTableDef.connect = connect
    NewTableDef.SourceTableName = tblName
    CurrentDb.TableDefs.Append NewTableDef
 End Sub

Выдает ошибку.

http://www.sql.ru/forum/1127383/pomogite-ustanovit-svyaz-s-faylom-excel

объяясните плиз популярно, а лучше вариант исправленния((( при запуске выдает ошиибку "User - defined type not defined" и пробегитесь по коду, мб еще где косяки есть( За ранее спасибо

Option Compare Database

Public Sub MainMenu()
Dim cbar As CommandBar
Dim Exist As Boolean
Exist = False
For Each cbar In CommandBars
If cbar.Name = "MainMenu" Then
Exist = True
Exit For
End If
Next cbar
If Not Exist Then
Set cbar = CommandBars.Add(Name:="MainMenu", _
Position:=msoBarTop, MenuBar:=True, Temporary:=False)
End If
cbar.Enabled = True
cbar.Visible = True
With cbar
With .Controls
With .Add(Type:=msoControlButton)
.Style = msoButtonCaption
.Caption = "Äîáàâèòü"
.Enabled = True
.OnAction = "Íîâàÿ ýêñêóðñèÿ"
End With
With .Add(Type:=msoControlPopup)
.Caption = "Äîáàâèòü"
With .Controls
With .Add(Type:=msoControlButton)
.Caption = "Íîâàÿ ýêñêóðñèÿ"
.Enabled = True
.OnAction = "Íîâàÿ ýêñêóðñèÿ"
End With
With .Add(Type:=msoControlButton)
.Caption = "Íîâàÿ òåìà"
.Enabled = True
.OnAction = "Íîâàÿ òåìà"
End With
With .Add(Type:=msoControlButton)
.Caption = "Íîâûé ýêñêóðñîâîä"
.Enabled = True
.OnAction = "Íîâûé ýêñêóðñîâîä"
End With
With .Add(Type:=msoControlButton)
.Caption = "Íîâûé àäìèíèñòðàòîð"
.Enabled = True
.OnAction = "Íîâûé àäìèíèñòðàòîð"
End With
End With
End With
With .Add(Type:=msoControlPopup)
.Caption = "Óäàëèòü"
With .Controls
With .Add(Type:=msoControlButton)
.Caption = "Óäàëèòü ýêñêóðñèþ"
.Enabled = True
.OnAction = "Óäàëèòü ýêñêóðñèþ"
End With
With .Add(Type:=msoControlButton)
.Caption = "Óäàëèòü òåìó"
.Enabled = True
.OnAction = "Óäàëèòü òåìó"
End With
With .Add(Type:=msoControlButton)
.Caption = "Óäàëèòü ýêñêóðñîâîäà"
.Enabled = True
.OnAction = "Óäàëèòü ýêñêóðñîâîäà"
End With
With .Add(Type:=msoControlButton)
.Caption = "Óäàëèòü àäìèíèñòðàòîðà"
.Enabled = True
.OnAction = "Óäàëèòü àäìèíèñòðàòîðà"
End With
End With
End With
With .Add(Type:=msoControlPopup)
.Caption = "Çàïðîñû"
With .Controls
With .Add(Type:=msoControlButton)
.Caption = "Ýêñêóðñèè"
.Enabled = True
.OnAction = "Ýêñêóðñèè Çàïðîñ"
End With
With .Add(Type:=msoControlButton)
.Caption = "Çàêîí÷åíî"
.Enabled = True
.OnAction = "Çàïðîñ_çàêîí÷åíî?"
End With
With .Add(Type:=msoControlButton)
.Caption = "Çàíÿòû"
.Enabled = True
.OnAction = "Çàïðîñ_çàíÿò?"
End With
End With
End With
With .Add(Type:=msoControlPopup)
.Caption = "Îò÷åò"
With .Controls
With .Add(Type:=msoControlButton)
.Caption = "ïîä÷èíåííûé îò÷åò Ýêñêóðñèè"
.Enabled = True
.OnAction = "ïîä÷èíåííûé îò÷åò Ýêñêóðñèè"
End With
End With
End With
With .Add(Type:=msoControlButton)
.Style = msoButtonCaption
.Caption = "Îáíîâèòü ìåíþ"
.Enabled = True
.OnAction = "ResetMainMenu"
End With
End With
End With
End Sub

http://www.sql.ru/forum/1127374/ne-poluchaetsya-sdelat-menu-nadstroek-v-access-ne-ponimau-chto-on-hochet

Пишу простенькую "базу данных" для бухгалтерии - учет продуктов. Задача - ввести наименование продукта, цену, приход, расход, в первом месяце остаток. Переходим на другой месяц и туда должны перенестись наименования, цены и остатки на конец месяца из предыдущего.
За уникальный идентификатор взято сочетание название+цена (скрытое поле, которое создается автоматически и оператору не видно), потому что может быть один продукт по разным ценам.

В общем и целом все написано и работает. Проблема возникает, когда уже начали вводить новый месяц, а тут пришли дополнительные данные за предыдущий. Причем может измениться не только приход/расход, но и количество наименований.

Никак не могу разобраться, как перенести остатки из предыдущего месяца так, чтобы не затронуть уже введенные в новом месяце данные про приход и расход. Помогите, пожалуйста, ткните носом в похожий пример

http://www.sql.ru/forum/1127274/perenos-ostatkov-iz-predydushhego-mesyaca-tknite-nosom

Как через VBA узнать версию Access, а именно запущен ли через Access Runtime или через Access полноценный?
Access.Application.Version просто выдает версию 12.0

http://www.sql.ru/forum/1127265/versiya-access

Всем добрый день!
Помогите пожалуйста!
У меня есть Таблица!
Вот:

Номер заказ Работа Дата начало Дата завершение День 408 Лазер 19.11.2014 22.11.2014 3 408 Подряд 20.11.2014 28.11.2014 8 408 Сборка 28.11.2014 30.11.2014 2 408 Гибка 20.11.2014 21.11.2014 1

Мне нужно создать запрос вот в таком виде:

408 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 Лазер 1 1 1 1 Подряд 1 1 1 1 1 1 1 1 1 Сборка 1 1 1 Гибка 1 1

И нужно создать диаграмму которые должен отображать в виде шкалу! (Это в форму!)
Надеюсь Я правильно объяснил.
За ранее всем Спасибо!

http://www.sql.ru/forum/1127257/otobrazhenie-dni-v-vide-shkaly

Здравствуйте. Моя база данных размещена в яндекс.диске. В ней только таблицы. У 2 пользователей установлены базы с формами, запросами, связными таблицами. Раньше было просто, вели просто работу анализа, данные не вносили. А вот теперь возникла необходимость во внесении данных пользователями. Строю работу так:
1. Отключаю синхронизацию диска
2. Пользователи одновременно заносят данные.
3. Включаем синхронизацию

Проблема: при добавлении данных пользователи возможно добавляют одну и туже строку. Синхронизация не проходит
Как бы мне решить эту проблему?

http://www.sql.ru/forum/1127179/baza-v-yandeks-diske

Суть проблемы:
человеку распорядительными или другими документами выдаются задания и сроки его выполнения. по ходу выполнения на каждом этапе человек разрабатывает один или несколько документов (напрмер первый этап - приказ на выделения финансирования(тоже может быть несколько), второй этап - разработка технического решения(их может быть несколько)) и таких этапов 20.
Для понятия сути решения поставленной задачи рассмотрим простую базу из 3-х таблиц (прилагается). В первой отображены поставленые задания и сроки выполнения, в остальных документы разработанные по ходу выполнения задачи.
Задача в следующем:
нужно наглядно отобразить все документы разработанные на каждом этапе выполнения задания в след форме:
_______________________________________________________________________________
|Наименование.|Основание для |Сроки.........|Приказ на |Техническое|Наименование
|задания..........|выполнения......|выполнения.|финансы...| решение.....| техрешения
=======================================================================
|Задание 1........основание 1......01.01.2015....Приказ 1....Техрешение1...Наименование1
|....................................................................Приказ 2....Техрешение3...Наименование3
|....................................................................Приказ 4
|....................................................................Приказ 5
|
|Задание 2........основание 2......01.01.2015....Приказ 3...Техрешение2....Наименование2
|....................................................................Приказ 6... Техрешение4....Наименование4
|.................................................................................... Техрешение5....Наименование5
|.................................................................................... Техрешение6....Наименование6
|.................................................................................... Техрешение7....Наименование7
=========================================================================

Отобразить их нужно прежде всего на созданной в access форме(планируется сделать гиперссылки на сканированные документы) и желательно в отчете.

http://www.sql.ru/forum/1127145/sozdanie-slozhnogo-zaprosa-otcheta-formy

Здравствуйте. Мне нужно узнать ответы на следующие вопросы:
- как отменить появление присоединенной надписи при добавлении поля на форму или отчет при помощи панели элементов?
- что произойдет, если держать нажатой клавишу Shift во время открытия базы данных Microsoft Access?
Вопросы довольно подковыристые, в Access найти такого не смог; с клавишей shift трюк тоже не удался, сколько ни пробовал.
Пробовал в Access 2007.

http://www.sql.ru/forum/1127119/voprosy-po-access

вообще-то у меня 2 критерия, но нужно сделать, чтобы хотя бы один работал.
таблица1
Код Поле1
1 2
2 3
3 4
4 1
5 5

в поле2 нужно максимальное значение из всех ячеек выше поля1
Код Поле1 Поле2
1 2
2 3 2
3 4 3
4 1 4
5 5 4
пробовал различные варианты
DMax("Поле1";"Таблица1";"[Таблица1]![Код]<[Код]")
но ничего не срабатывает
в чем ошибка?

http://www.sql.ru/forum/1127060/dmax-dsum-i-analogi-v-zaprose-ne-rabotaut

Открываем форму на которой имеется ComboBox, открываем его список данных, а там нужных данных, нет. Нажимаем кнопку, открываем форму ввода данных в таблицу, источника данных для ComboBox, вводим новые данные в таблицу, закрываем форму ввода, но на той форме, где находится ComboBox, обновление списка самого ComboBox, не происходит. Собственно, все.
Как на открытой форме можно обновить значения ComboBox если значение в таблицу, добавлено через другую форму? Спасибо!

http://www.sql.ru/forum/1126977/kak-mozhno-obnovit-znacheniya-combobox-na-otkrytoy-forme

В БД две таблицы (Table_1 и Table_2). В них абсолютно одинаковые данные записи (а полей около 15-ти).
Далее в Table_2 были удалены несколько десятков записей.
Как мне определить те, которые были удалены?
Ведь я имею первоисточные данные в Table_1 и данные после удаления в Table_2

т.е. в Table_1 и Table_2 было 100 одинаковых записей. А потом в Table_2 стало 80
Как мне определить 20 удаленных записей?

http://www.sql.ru/forum/1126926/kak-opredelit-udalennye-zapisi-imeya-to-chto-bylo-i-to-chto-stalo-posle

Здравствуйте, можете подсказать, пожалуйста, еще вот с таким вопросом: как сделать, чтобы столбец P3 таблицы "Результаты_исследований" автоматически заполнялся на существующее количество записей (заполняются тоже автоматически из текстового файла). Это можно сделать с помощью цикла (в vba)? Т.е. есть время t=0,39063, первое значение записи, последующее будет уже 0,78126 и т.д.

Dim N As Integer
Dim i As Integer
Dim t As Single
t=0,39063
For i = 1 To N
   t = t + 0,39063
   Next

N - количество записей, на всякий случай выложила базу http://dropmefiles.com/Brr69 , спасибо!

http://www.sql.ru/forum/1126902/zapolnenie-polya-na-kolichestvo-zapisey

Что лучше использовать в ленточной форме для представления данных в виде дерева и работы - TreeView или Listview? В моем случае дерево имеет 6 уровней:
Уровень1
|_Уровень2
|_Уровень3
|_Уровень4
|_Уровень5
|_Уровень6
И, если у кого-то есть файлы с примерами для заполнения и работы с такими объектами - буду очень благодарен т.к. никогда еще не доводилось работать с ними. Спасибо!

http://www.sql.ru/forum/1126800/treeview-ili-listview