И на старуху бывает проруха:(
Никогда такого не было и вот опять...
Бэкапа нету.
Не то, чтобы все очень важно, но несколько дней не хочется тратить.
Может поможете? Какие нынче средства для починки используются?
Запуск аксесса с ключом /repair не помогает, ошибка та же.

http://www.sql.ru/forum/1280019/a2013-accdb-fayl-vyros-do-2-gb-i-perestal-otkryvatsya

Добрый день всем!
Имеется такой отчет (на картинке конструктор и результат).
Необходимо рассчитать количество сгруппированных записей (квитанций), в результате показывает, что их 5, а на самом деле 3.
Что-то не доходит до меня, как сделать... подскажите пожалуйста.

http://www.sql.ru/forum/1279985/kolichestvo-sgruppirovannyh-zapisey-v-otchete

Доброго времени суток.

Пытаюсь форматировать данные в таблице Excel из Access:

    Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object
    
    Set oExcel = CreateObject("Excel.Application")
    Set oBook = oExcel.workbooks.Add
    Set oSheet = oBook.worksheets(1)
    oExcel.Visible = True
    
    oSheet.Range("A2", "E2").merge
    oSheet.Range("A2").Value = "Заголовок документа"
    oSheet.Range("A2").HorizontalAlignment = xlCenter

но строчка

oSheet.Range("A1").HorizontalAlignment = xlCenter

выдает ошибку. Что я делаю не так?

P.S. Еще, есть ли способ задать из Access формат ячейки - типа числовой, а еще лучше денежный, с двумя знаками после запятой?

Спасибо.

http://www.sql.ru/forum/1279975/vyravnivanie-v-yacheyki-excel-iz-access

Есть такая проблемка, вроде мелочь, но очень раздражает.
К Access-овскому файлу ACCDB прилинковано несколько Excel-овских таблиц (XLSX).
Таблицы огромные - десятки мегабайт, их подключение занимает десятки минут, поэтому они подключены постоянно, несмотря на то, что нужны один раз в день.
При работе это не мешает, но когда нужно что-то подкорректировать в формах - возникают зависания на 10-15 минут в самых непредсказуемых местах, например при переходе из режима формы в режим конструктора или при закрытии конструктора запросов, если он вызван как источник данных формы.
Проверял неоднократно: если отключить XLSX-файлы - зависания прекращаются.
Есть ли какой-нибудь способ быстрого подключения XLSX-файлов, ведь, по сути дела, линк - это несколько записей в системных таблицах Access?
Или м.б. какое-нибудь другое решение?

http://www.sql.ru/forum/1279947/kak-poborot-zavisaniya-pri-prilinkovannyh-xlsx-faylah

Всем день добрый!
Кто работал с Outlook, подскажите пожалуйста.
На просторах интернета найден нижеприложенный код,
который читает письма во входящих и показывает для примера свойства писем.
В том числе и наименования вложений. (строка OL_Attachment.FileName).
Все работает прекрасно, но...
Как мне получить сам файл? Что бы его залить, предположим INSERT'ом, в таблицу.
Сохранить файл на диск, а потом подцепить его в таблицу, можно, но как-то не красиво. ))
Какие методы и свойтва у Outlook.Application я проглядел?
Спасибо.

Function ListOLInbox()
'Список писем в папке "входящие"
Dim OL_App As Outlook.Application
Dim OL_NameSpace As Outlook.NameSpace
Dim OL_FolderMail As Outlook.MAPIFolder
Dim OL_ItemMail As Outlook.MailItem
Dim OL_Attachment As Outlook.Attachment
' получаем объект Outlook
Set OL_App = CreateObject("Outlook.Application")
'получаем Namespace
Set OL_NameSpace = OL_App.GetNamespace("MAPI")
' получаем ссылку на папку Входящие
Set OL_FolderMail = OL_NameSpace.GetDefaultFolder(olFolderInbox)
' перебираем все письма в папке
For Each OL_ItemMail In OL_FolderMail.Items
With OL_ItemMail
'выводим тему
  Debug.Print "Tema: " & .Subject
' если есть вложения выводим названия вложенного файла
  If .Attachments.Count > 0 Then
   Debug.Print "Вложения: "
     For Each OL_Attachment In .Attachments
        Debug.Print OL_Attachment.FileName
     Next
  End If
End With
Next
End Function

http://www.sql.ru/forum/1279914/vlozheniya-outlook

Прошу помощи:
adp проект, Форма содержит ленточную подформу, источник записи - функция (записей порядка 28000 на сегодня).
При загрузки формы проходит около 1 минуты, прежде же загрузятся данные.
Декомпиляция, изменение источника записей, уменьшение сортировочных полей, до одного не решило мою проблему. Единственное, что помогло, это - отказаться от сортировки. Это не вариант, поскольку поле по которому идет сортировка отображает deadline.
Можно ли как то увеличить скорость загрузки? Спасибо.

http://www.sql.ru/forum/1279895/medlenno-zagruzhautsya-dannye-v-forme

Добрый день, возникла такая ситуация: нужно вставить записи одной таблицы в другую, согласно значения одного поля первой таблицы. Например, в нижеприведенном рисунке в table1 нужно вставить записи из table2 только в те строки где поле N имеет значение "1". Как осуществить? Помогите, пожалуйста.

http://www.sql.ru/forum/1279853/vstavka-dannyh-iz-odnoy-tablicy-v-druguu-soglasno-znacheniya-drugogo-polya

Недавно почему-то при запуске VBA редактора стали автоматически открываться и accdb, на которые сеть ссылки в референсах. Такое происходит только если приложение было нормально запущено без шифта, а затем открыт редактор VBA. Раньше такого не наблюдалось. Версия 2010. Было у кого такое?

http://www.sql.ru/forum/1279818/stali-otkryvatsya-bibliotechnye-accdb-iz-referensov

Всем привет!
Споткнулся на ровном месте...
Тривиальная задача, заезженный код, но ошибка run-time 1004 (типа выберите другое расширение, с таким так нельзя)...
Нужно из акцеса (в данном случае 2010, а может и не важно) открыть файл экселя (формат 2007) с макросами *.xlsm, задублировать в нем один из листов, сохранить и закрыть...
Ниже код, который отрабатывает с форматами *.xlsx, *.xls на ура, но на формате *.xlsm падает в ошибку в строке сохранения

Dim sfile As String
Dim xl As Object
Dim wb As Object
Dim ws As Object
sfile = CStr(Application.CurrentProject.Path) & "\OSV.xlsm"
    Set xl = CreateObject("Excel.Application")
    Set wb = xl.Workbooks.Add(sfile)
    xl.Visible = False   'сам процесс делаем не видимым
    xl.Application.DisplayAlerts = False ' чтоб эксель не спрашивал подтверждение при сохранении  
    wb.Sheets(2).Select     ' выбираем второй лист                                                                                                     
    wb.Sheets(2).Copy After:=wb.Sheets(2)     ' делаем его копию после него же
    wb.SaveAs Application.CurrentProject.Path & "\OSV.xlsm" ' и вот тут падаем в ошибку при попытке сохранить, причем только на  *.xlsm
    wb.Close
    xl.Quit
    Set wb = Nothing
    Set xl = Nothing

Причем если процесс отображать, предупреждения не отключать, то руками сохранить результат можно, выбрав принудительно формат книгу с макросами xlsm...
Какая то фигня с wb.SaveAs (имя другое пробовал, не помогает, ругается конкретно на xlsm)
Короче глобально вопрос так, программно файл .xlsm открывается и модифицируется, но потом проблема сохранить его в .xlsm

Кто чем может плиз, заранее снимаю шляпу...

http://www.sql.ru/forum/1279815/kak-pere-sohranit-xlsm

Всем добрый день! Помгите решить задачку, при подсчете суммы в sql запросе выходит null, судя по всему нет значений, как решить проблему путем sql запроса, что бы ответ был 0?!

http://www.sql.ru/forum/1279806/pri-podschete-summy-sql-v-zaprose-est-null-vyhodit-oshibka

Всем добрый день!
Просьба помочь!
Есть процедура, которая в 2010 офисе вставляет строки в форму.
Как заставить ее работать в 2016 версии 64бита?
Проект большой, все остальное в нем работает в 2016 версии.
Ошибка во вложении.

Private Sub CommandAddA_Click()
    On Error GoTo Err_CAA_C
    If IsNull(cdsc.Value) = True Or cdsc.Value = "" Then
        MsgBox "Warning, vbOKOnly + vbDefaultButton1 + vbExclamation, "Microsoft Access"
        Exit Sub
    End If
    Dim fid As Integer, cid As Integer
    Dim RSset As ADODB.Recordset
    Set RSset = New ADODB.Recordset
    With RSset
        .Source = "SELECT fid FROM filial WHERE fdsc = '" & fdsc.Value & "'"
        .ActiveConnection = CurrentProject.Connection
        .Open
    End With
    fid = RSset(0)
    RSset.Close
    With RSset
        .Source = "SELECT cid FROM cfo WHERE cdsc = '" & cdsc.Value & "'"
        .ActiveConnection = CurrentProject.Connection
        .Open
    End With
    cid = RSset(0)
    RSset.Close
    Set RSset = Nothing
    Dim rssel As ADODB.Recordset, rsins As ADODB.Recordset
    Set rssel = New ADODB.Recordset
    Set rsins = New ADODB.Recordset
    With rssel
        .Source = "SELECT aid FROM article"
        .ActiveConnection = CurrentProject.Connection
        .CursorType = adOpenKeyset
        .Open
        .MoveFirst
    End With
    With rsins
        .Source = "SELECT * FROM article_data"
        .ActiveConnection = CurrentProject.Connection
        .CursorType = adOpenKeyset
        .LockType = adLockOptimistic
        .Open
    End With
    Dim i As Integer
    For i = 0 To rssel.RecordCount - 1
        rssel.Move i, adBookmarkFirst
        rsins.AddNew
        rsins(0) = fid
        rsins(1) = cid
        rsins(2) = rssel(0)
        rsins.Update
    Next i
    rssel.Close
    rsins.Close
    Set rssel = Nothing
    Set rsins = Nothing
    ArticleList.Enabled = True
    ArticleList.SetFocus
    ArticleList.Requery
    CommandAddA.Visible = False
    CommandUpdateA.Visible = True
Exit_CAA_C:
    Exit Sub
Err_CAA_C:
    MsgBox Err.Number & Chr(13) & Err.Description
    Resume Exit_CAA_C
End Sub

http://www.sql.ru/forum/1279803/procedura-ne-zapuskaetsya-v-access-2016

Добрый день уважаемые участники форума.
У меня такой вопрос, есть две таблицы table1 и table2. В первой таблице есть данные, во второй пусто. Нужно вставить из первой таблицы данные во вторую, только до определенной строки. Например до 99-й строки. Как осуществить данный запрос?
Я делаю следующее,

INSERT INTO table2 (a1, a2, a3)
SELECT a1, a2, a3
FROM table1;

а дальше как добавить условие, чтобы вставить записи только до 99-й строки, не пойму.

Прошу посодействовать.
Заранее благодарю.

http://www.sql.ru/forum/1279732/vstavka-dannyh-iz-odnoy-tablicy-v-druguu-do-opredelennoy-stroki

в Access2010 открыта таблица в режиме конструктора.
в VBA-модуле надо обратиться к ней по имени, так как может быть открыта любая таблица.
Как записать в переменную имя открытой таблицы?

Dim rst As New ADODB.Recordset
Dim tdf As TableDef
Dim aa As String
aa = tdf.Name ' ошибка на этой строке Object variable or With block variable not set

Cпасибо за помощь.

http://www.sql.ru/forum/1279717/imya-tekushhey-tablicy

Друзья, доброго времени суток! Такой вопрос: есть открытая одиночная форма, которая тупо привязана к таблице и, соответственно, отображает одну из записей этой таблицы. Из этой формы кнопкой была вызвана вторая форма (никак не связанная с первой), с помощью которой различными манипуляциями были внесены изменения в запись, отображаемую формой №1. При закрытии формы №2 эти изменения появились на форме №1 (не пришлось делать ни Refresh, ни что-то в этом жанре). Но вот беда, от поля, в котором изменилось значение, зависит кнопка, которая должна активироваться в том случае, если новое значение отлично от нуля.
При переходе по записям на событие Form_Current сделана процедура, которая смотрит, какое значение поле№1 появляется при отображении очередной записи. Если больше 0, то Кнопка активируется, меньше - блокируется. Также сделано на After_Update поле №1. Но насколько я понял, изменение "не руками" значения не является событиями ни After_Update ни Before_Update... :(:(

Пробовал я при закрытии второй формы делать так:

If CurrentProject.AllForms("MainListForm").IsLoaded = True Then Forms![MainListForm].Form.Rrefresh

реакции - 0 :(

То же самое с Recalc, Repaint... А Requery - не годиться, так как сбрасывает форму к первой записи...

Чем бы заставить проиграться еще разок событие Form_Current на этой несчастной форме? Уж оно то бы разблокировало точно эту чертову кнопку... И форма бы осталась на текущей записи, без всяких перескоков...

Заранее спасибо.

http://www.sql.ru/forum/1279688/proigrat-dlya-otkrytoy-formy-sobytie-form-current-eshhe-raz-bez-perehoda-na-druguu-zapis

Здравствуйте мне нужно разработать информационную систему «Колледж»
При помощи базы данных Access. При заполнении таблицы выскакивает ошибка конкретно "Шифр нарушения" выдает вот такую ошибку "Невозможно добавление или изменение записи. Для обеспечения целостности данных необходимо наличие связанной записи в таблице "Преподаватель" что делать я уже не знаю помогите и объясните что да как..

http://www.sql.ru/forum/1279652/problema-so-svyazu-form

Доброе время суток всем! Люди голову сломал уже! Казалось бы простейшее задание а побороть не могу!
Есть форма на ней 4 текстовых поля и одна кнопка
Есть таблица с двумя полями 1 поле - дата, 2 поле числовой, пусть она называется Table2
На форме
Вводимые:
Текстовое поле 1 = Текущая дата
Текстовое поле 2 = вводимая цифра
Только просмотр:
Текстовое поле 3 (только просмотр)
Текстовое поле 4 (только просмотр)
При нажатии кнопки, VBA отправляет данные из текстовых полей 1 и 2 в таблицу

как сделать так чтобы последняя введенная строка из таблицы сразу выводилась на форму в текстовое поле 3 (дата) И текстовое поле 4 (введенные данные) (тксксть для контроля введенного)




По нажатию кнопки ОК из Текстовых полей 1 и 2 данные падают в Table2
Событие по нажатию кнопки:

Private Sub Ok_Click()
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("Table2", dbOpenDynaset)
rs.AddNew
rs!Дата = Me!Текстовоеполе1
rs!Число = Me!Текстовоеполе2
rs.Update
rs.Close
Set rs = Nothing
End Sub

как теперь Текстовомуполю 3 и 4 присвоить значение последней введенной записи из Table2

http://www.sql.ru/forum/1279641/kak-vstavit-v-polya-na-forme-dannye-iz-tablicy

Спасибо:

Программист-Любитель
Владимир Саныч
Karfaqen
Hummer
marak
Restavraciya
barrabas
Анатолий Кудрявцев
ё Guest
sdfgsdfgsdf
mds_world
Анатолий ( Киев )
_restavraciya
Joss
Бенедикт - отдельное спасибо за триггеры
BULK INSERT
proposed amendment
bubucha

http://www.sql.ru/forum/1279636/kogda-u-sayta-den-rozhdeniya

Собственно как составить запрос, чтобы в запрос из таблицы list столбца Обозначение в соседний столбец попали значения из таблицы basa столбца Obozn содержащиеся в записях таблицы list столбца Обозначение? Для тех кто не понял, приложил файл с примерной, где в таблице итого то что должно получиться после запроса.

http://www.sql.ru/forum/1279623/zapros-na-vhozhdenie-2-tablic

Здравствуйте!

В прикрепленном файле есть отчёт с параметров (Введите "Наумова", если не хотите заморачиваться). Отчёт берет свои данные через запрос ("Поиск автора по фамилии"), обращающийся к таблице "Контракты с автором". На отчёте ("Договор") есть кнопка "Печать".

Мне нужно, чтобы после нажатия этой кнопки поле "Завершен?" становилось True. Было бы ОЧЕНЬ здорово, если бы он ещё сохранялся в формате PDF, но это нужно не так сильно.

Спасибо!

Не смог прикрепить файлом, пришлось заливать на файлообменник, тыц

http://www.sql.ru/forum/1279620/izmenenie-parmetrov-tablicy-posle-nazhatiya-knopki-otchyota-i-ego-pechat

Доброго времени суток!
Имеется определённая форма, в ней есть подчинённая таблица.
Вопрос: как внести все значения таблицы в одно поле, причём вписать нужно не просто набором данных, а с вводом описания
(типа:
в таблице ->>> [кол-во];[наименование];[направление];[место]
а что бы вышло в форме ===>>> Установлен в [место] выходящее на [направление] прибор [наименование] в количестве [кол-во])
Чтобы на выходе было удобоусвояемый текст для простого обывателя(ну его я сам впишу, нужен сам принцип)
Как то так.
Если можно то ответ, пожалуйста, в готовом виде, а то с меня не очень программист, не много подредактировать могу,
а вот в новь что-то создать уже проблемы!

http://www.sql.ru/forum/1279612/kak-vpisat-vse-znacheniya-strok-podchinyonnoy-tablicy-v-odno-pole-formy