Доброго времени суток.
Столкнулась с очередной проблемой..
Если в комбобоксе обновляю RowSource по мере набора символов, то он начинает глючить.
Причем в mde через runtime на совершенно другой системе ровно такие же глюки..

А именно - выпадающий список как бы не фильтруется, а если выбрать один из пунктов, то оказывается, что в нём на самом деле пустые строки.
Пример в приложении. Не знаю, правда, воспроизведётся ли глюк.
Порядок действий - в выпадающем списке набрать любую букву, стереть и набрать, например 7.

http://www.sql.ru/forum/1242576/gluchit-rowsource-v-podchinyonnoy-forme

При открытии базы, появляется ошибка (Ошибка 3343) Нераспознаваемый формат базы данных 'filename.mdb' Подскажите, что делать?

http://www.sql.ru/forum/1242492/access-2016

Добрый день!
Пытаюсь создать БД, для учета измерительного комплекса в электросетевой компании. Это моя первый опыт работы с Accessом и заплюхался я уже капитально. Вопрос в следующем:
имеется основная таблица "Присоединение" к которой прикручены 4 таблицы справочники. Имеется основная форма "Форма просмотр", через которую можно только просматривать данные. На этой форме есть кнопка добавления нового присоединения, при нажатии которой появляется форма "ФормаДобавленияОбщая". На данной форме описывается новое присоединение и измерительный комплекс установленный на нем. Если какие то данные уже имеются в справочниках (потребители, типы счетчиков, ТТ) то они выбираются из выпадающего списка и должны автоматически подставляться в поля. Если их нет, то с помощью соответствующих кнопок вызываются формы для внесения новых данных в справочники.
И вот что то не работает у меня это как задумано.

http://www.sql.ru/forum/1242383/pomogite-s-vvodom-dannyh

Уважаемые форумчане!
Как программно получить доступ к свойствам элементов activex типа treeview и сторонних производителей через индексы этих свойств? Я не нашел коллекции свойств в этих элементах, а мне нужно к ним обратиться не по именам, а по индексам. Существует ли способ сделать это? Задача присваивать этим свойствам значения в ответ на действия пользователя; значения свойств брать из служебной таблицы. Или может есть какой другой способ доступа к этим свойствам, чтобы через циклы в процедурах к ним обращаться и устанавливать значения? Заранее благодарю за помощь)

http://www.sql.ru/forum/1242376/dostup-k-svoystvam-elementov-activex

Доброго дня!
Снова прошу помощи, никак мне не победить эту штуку..

Смысл в том, что юзеры повадились вводить новые товары с пробелами в начале.
Я ставлю Trim в процедуре NotInList.
Если после Trim оказывается, что товар уже есть, то нужно его выбрать в комбобоксе.
Если нет - то оттриммить и добавить через форму acDialog.
Через тернии я вроде поняла примерно, как должен работать код, но теперь новая проблема.

У меня стоит проверка комбобокса BeforeUpdate. Если эту проверку товар не проходит, то NotInList стопорится с ошибкой, причём ошибки выдаёт разные... Мне надо, чтобы вновь созданный товар нельзя было выбрать в комбо, если не пройдена проверка.

Не знаю, понятно ли объясняю (( Может, меня вообще не в ту степь занесло?
Если использовать ctl = NewData вместо ctl.Text = NewData, то BeforeUpdate не возникает.
Если использовать acDataErrAdded, то ошибка вылезает, что отсутствует в списке.

Код ниже, пример в приложении. Проблема при добавлении товара типа ' Пельмени 5' или ' Пельмени 19' с пробелом в начале.

Private Sub ВидПельменей_BeforeUpdate(Cancel As Integer)
    MsgBox "До обновления. Такое значение нельзя добавить."
    Cancel = True
    ВидПельменей.Undo
End Sub

Private Sub ВидПельменей_NotInList(NewData As String, Response As Integer)
    Dim ctl As Control
    Set ctl = Me.ActiveControl
    NewData = Trim(NewData)
    If DCount("ВидПельменей", "Пельмени", "ВидПельменей='" & NewData & "'") > 0 Then
        ctl.Undo
        ctl.Text = NewData
        Response = acDataErrContinue
        GoTo ExitSub
    End If
    If MsgBox("'" & NewData & "'" & " отсутствует в каталоге." & vbNewLine & "        Добавить?", vbYesNo) = vbYes Then
        DoCmd.OpenForm "Пельмени", , , , acFormAdd, acDialog, NewData
        NewData = DLookup("ВидПельменей", "Пельмени", "Код=" & DMax("Код", "Пельмени"))
        ctl.Undo
        ctl.RowSource = ctl.RowSource
        ctl.Text = NewData
        Response = acDataErrContinue
        GoTo ExitSub
    Else
        MsgBox "Выберите из списка."
        With ctl
            .Undo
            .Dropdown
        End With
        Response = acDataErrContinue
    End If
ExitSub:
    Set ctl = Nothing
End Sub

http://www.sql.ru/forum/1242325/obrabotka-beforeupdate-vo-vremya-notinlist

Здравствуйте! (Бессмысленная предыстория) В vba excel создал скрипт позволяющий поочередно открыть все текстовые файлы в каталогах и подкаталогах, получить адрес, название файла, тему файла (по формализованного строке), и записать содержимое в всех файлов в один тхт построчно. Хочу реализовать этот скрипт а аксесс, но абсолютно с ним не знаком. Гугление многого не дало. Костяк много есть, нужна только оболочка. Вопрос: как выглядит скрипт в аксесс, как добавлять данные в поля и как их создавать?

http://www.sql.ru/forum/1242309/sozdanie-bazy-dannyh-nabora-faylov

Здравствуйте!
Почему не работает такой запрос?

DELETE * FROM
  (SELECT * FROM sysAdType t 
   RIGHT JOIN sysAd a ON t.IdAdType = a.AdType) d
   WHERE t.AdType='Routine'

;

+ Из кода пишет ошибку:

-2147467259 (80004005) Невозможно удаление записей из указанных таблиц

+ Если запрос сохранить:

Невозможно удаление записей из указанных таблиц. (Ошибка 3086) Не удается завершить удаление данных из одной или нескольких таблиц. Возможные причины: Отсутствуют разрешения на изменение таблицы. Для изменения разрешений обратитесь к системному администратору или создателю таблицы. База данных была открыта только для чтения. База данных может оказаться доступной только для чтения по одной из следующих причин: - Для открытия базы данных с доступом только для чтения был использован метод OpenDatabase. - Файл базы данных определен с доступом только для чтения в операционной системе сервера базы данных или в сети. - Пользователь не имеет привилегий записи в этот файл базы данных в сетевой среде. - В программе Microsoft® Visual Basic использован элемент управления Data, и для свойства ReadOnly задано значение True. Для удаления данных закройте базу данных, устраните ограничение доступа и вновь откройте файл с доступом для чтения и записи.

С правами на файл (и директорию) всё нормально...
Спасибо!

http://www.sql.ru/forum/1242138/pochemu-ne-rabotaet-takoy-zapros

Доброго всем дня, уважаемые форумчане!
Столкнулся с необходимостью ограничивать время выполнения функции, так как по прошествии длительного интервала результат работы уже не важен и чрезвычайно не желателен для пользователя приложения.
Функция Public, лежит в отдельном модуле. К ней обращаются формы и запросы.
Не бросайте камни, ткните носом, куда копать....
Заранее всем спасибо за любые ответы!

http://www.sql.ru/forum/1242135/ogranichenie-vremeni-vypolneniya-funkcii

На форуме мне посоветовали мспользовать очень хорошую ссылку
http://www.sql.ru/forum/463376/excel-outlook-otpravka-v-tele-pisma-tablicy

Private Sub Отправить_Email()
'Процедура отправки таблицы в теле письма:
Dim mailApp As Outlook.Application
Dim dfg As Object
Dim n As Integer
Dim WB As Workbook

Set ExcelApp = CreateObject("Excel.Application")
Set WB = ExcelApp.Workbooks.Open("G:\103_01_Proba.xls")

WB.Application.Visible = True

'поиск окна Microsoft Outlook
lngRetVal = FindWindowByClass("rctrl_renwnd32", 0&)
If lngRetVal <> 0 Then
Set mailApp = GetObject(, "Outlook.Application")
Else
Set mailApp = CreateObject("Outlook.Application")
End If
Set objMail = mailApp.CreateItem(olMailItem)
Set dfg = objMail.Recipients.Add("vlad_cher@mail.ru")
dfg.Type = olTo

With objMail
.Importance = olImportanceHigh
.Subject = "Передача таблицы"
.BodyFormat = olFormatHTML 'формат HTML
.HTMLBody = SheetToHTML(WB.Worksheets("Аттестация"))
End With

'Предварительный просмотр письма
objMail.Display
'Отправка письма
' objMaib.Send
' Закрыть книгу
ActiveWorkbook.Close Fal
ExcelApp.Application.Quit

Set WB = Nothing
Set ExcelApp = Nothing
Set objMail = Nothing
Set mailApp = Nothing
End Sub

'"Функция-хак" псевдопреобразования таблицы в набор html'ных тегов для BODY письма.
Public Function SheetToHTML(sh As Worksheet)

Dim TempFile As String
Dim fso As Object
Dim ts As Object
'Debug.Print sh
sh.Copy
TempFile = sh.Parent.Path & "\TempHtml.htm"

With ActiveWorkbook.PublishObjects.Add(xlSourceRange, _
TempFile, "Аттестация", "A1:C22", xlHtmlStatic, "333_8568", "")
.Publish (True)
.AutoRepublish = False
End With

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.GetFile(TempFile).OpenAsTextStream(1, -2)
ActiveWorkbook.Close False
SheetToHTML = ts.ReadAll
ts.Close

Set ts = Nothing
Set fso = Nothing
Kill TempFile
End Function
'Декларация функции поиска запущенных процессов
Declare Function FindWindowByClass Lib "user32" _
Alias "FindWindowA" (ByVal lpClassName As String, _
ByVal lpWindowName As Long) As Long

Все программы прекрасно отрабатывают но только один раз
при повторном запуске функция затыкается
Ручное закрытие Excel и остановка программ может приводить к восстановлению работы на один разю

http://www.sql.ru/forum/1242104/vba-vvod-tablicy-telo-email-pomogite-seromu

Помогите, пожалуйста, найти ошибку в синтаксисе.

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

Стоимость звонка: IIf([Звонки]![Время исходящего звонка]>08:00 And [Звонки]![Время исходящего звонка]<"22:00";[Звонки]![Длительность разговора (в минутах)]*[Тарифы]![Стоимость за минуту разговора (день)];[Звонки]![Длительность разговора (в минутах)]*[Тарифы]![Стоимость за минуту разговора (ночь)])

Пробовала с before, все равно не помогает. Обрамляла время в ## - тот же эффект. Может, я что-то упустила?

http://www.sql.ru/forum/1242047/oshibka-v-sintaksise

Даны три таблицы:Продукция, упаковка, цеха. Нужно вывести окончательный запрос в виде ( фото прилагается) через SQL. Спасибо за помощь!

http://www.sql.ru/forum/1242014/obedinenie-strok-tablicy-cherez-sql

Добрый день.
Есть какие либо варианты взять форму вместе с vba и выгрузить её во временный файл, а затем из этого файла подтянуть в другую mdb.
Возможно есть инструменты или видели как это делает какая то программа.

http://www.sql.ru/forum/1241992/perenos-obektov-mdb-v-promezhutochnye-fayly-dlya-dalneyshego-importa-v-mdb

Есть простенький запрос:

SELECT Заявки.[№заявки], Заявки.ДатаПрихода FROM Заявки
WHERE (((Заявки.ДатаПрихода)>=CLng(#8/1/2016#) And (Заявки.ДатаПрихода)<=CLng(#8/31/2016#)))
ORDER BY Заявки.ДатаПрихода;

Если "Заявки" - таблица MS Access, результат предсказуем (рис.1). Но если "Заявки" - связанная таблица SQL server, результат странный (рис.2). Запрос "выбрасывает" первую дату диапазона и "захватывает" дату, следующую сразу следом за диапазоном.
Этому есть рациональное объяснение или все-таки глюк?

http://www.sql.ru/forum/1241935/interesnoe-nabludenie-kosyak-pri-preobrazovanii-daty

Произошел такой случай.
Windows 7 32 bit поставили Офис 2010 32 bit. Установили MZTools3VBASetup.
Установка прошла штатно. Но в VBE редакторе панель MZTools не появилась и в списках надстроек его то хе не было.
Долго искал решение задачи по разным форумам и вот наконец нашел решение на форуме http://www.excelforum.com/

Необходимо проверить следующий ключ

HKEY_CURRENT_USER\Software\Microsoft\VBA\VBE\6.0\Addins\MZTools3VBA.Connect

Если он отсутствует, то необходимо его создать. Вот текст для reg файла

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\VBA\VBE\6.0\Addins\MZTools3VBA.Connect]
"FriendlyName"="VBA MZ-Tools 3.0"
"Description"="VBA MZ-Tools 3.0"
"LoadBehavior"=dword:00000001
"CommandLineSafe"=dword:00000000

Создайте reg файл. Запустите его и наслаждайтесь.

Может кому-то этот совет поможет.

-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

http://www.sql.ru/forum/1241866/kak-podruzhit-mztools3vba-i-ms-office-2010-32-bit

Коллеги, может кто нибудь сталкивался...
Разработку веду в Access 2000 (с целью совместимости со следующими версиями).
Текст в поле на ленточной форме (источник - таблица) подсвечивается либо зеленым, либо синим
Соответственно в условном форматировании анализируется "Выражение" [Vid]=1 или
второе условие "Выражение" [Vid]=2. Все прекрасно работает на большом количестве машин с разными версиями Access.
Но в единичных! случаях форма отказывается форматироваться. Самое смешное, что когда на проблемной машине
заходишь в настройки условного форматирования, меняешь конструкции на [Vid] =1(2) (т.е пробел перед =), Access благополучно
его удаляет(т.е. приводит к первоначальному виду) и... начинает работать правильно. Само собой, компилировать на проблемной машине не выход, поэтому и нид ю хелп.

http://www.sql.ru/forum/1241836/chudesa-s-uslovnym-formatirovaniem

Приветствую вас, господа. Знаю, подобные темы на форуме уже были. Но ответа на свой вопрос я там не увидел.
Итак, у меня два вопроса:
1) Есть две таблицы, 1 и 2. И в каждой из них есть поля с а, б, в. Таблица один заполнена фиксированными значениями этих полей. В таблице 2, в поле а, я создаю подстановку, в которой вывожу выпадающий список значений поля а из таблицы 1. И вот мне хотелось бы, чтобы поля "б" и "в" заполнялись автоматически, на основе выбранной строки по полю "а". Как реализовать - не знаю(
PS: Сегодня, пока гуглил инфу по этому вопросу, часто натыкался на высказывания людей, что одинаковые поля в разных таблицах - это не айс. Что база так не составляется. Тогда вопрос назревает сам собой. Мне надо, чтобы потом эти данные выводились в форму и как, собственно, без подстановки, прикреплять нужные строки таблицы 1 к нужным строкам таблицы 2 в форме вывода/ввода? То есть как сделать все таки более правильно, по человечески?
2) Сегодня много читал, про экспорт данных из аксеса в sql. Но так и не понял главного, возможно ли какими-то готовыми средставами реализовать связь аксес-сервер SQL, чтобы аксес выступал только в роле клиента и все операции выполнялись на стороне сервера? То есть, чтобы все осталось также, как и в штатной аксесовской базе, только чтобы таблицы хранились на сервере SQL и все запросы обрабатывал именно сервер?
Заранее большое спасибо!

http://www.sql.ru/forum/1241770/avtozapolnenie-poley-znacheniyami-iz-drugih-tablic

Приветствую Всех! Подскажите, почему при определенном количество открытых форм Акс начинает глючить. Выдает сообщение "Недостаточно системных ресурсов". Останавливает выполнение макросов. Если оду из форм предварительно закрывать, все срабатывает нормально.
Есть какие то ограничения на количество открытых форм? В спецификации ничего такого не нашел.

http://www.sql.ru/forum/1241736/kolichestvo-otkrytyh-form-v-aks10

Приветствую.
Раньше при выгрузке из access в excel финансовый формат обозначался вот так: р.
http://imgur.com/a/gmldJ
Теперь, после недавнего обновления для винды стало вот: http://imgur.com/a/y8CQu

Как видим, после выгрузки из access в ячейках появляются вопросы. Раньше применялся такой тип: #\ ## 000р.;-#\ ## 000р.
Покопался в формах и модулях через visual basic, ничего интересного в коде не нашёл.
Что можете подсказать, хоть какой код отвечает за это?

http://www.sql.ru/forum/1241683/chislovoy-format-oboznachenie

Вывести отчет на печать (сделано через конструктор)

DoCmd.OpenReport stDocName, acNormal

Выводит отчёт на принтер по умолчанию. А как сделать так, чтобы перед печатью запрашивался выбор принтера?
-------------------------------------------------------------
А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?

http://www.sql.ru/forum/1241515/kak-vybrat-printer-pri-vyvode-otchyota-na-pechat

Наткнулся на проблему: в приложении используется замена штатному MsgBox - класс Dialog, который сообщения создает через создание экземпляра класса окна:

Dim f As New Form_frm_Dialog

Соответственно, хоть окно и имеет свойство Modal, но полностью модальным не является, если его создать поверх открытого Popup окна, то оно легко "уходит" под него при клике на Popup окне, а если такое окошко открыть в событии смены фокуса, то в большинстве случаев просто уходит од основное окно без дополнительных действий.
Если бы диалог создавался стандартным образом, через DoCmd.OpenForm с параметром acDialog, то таких проблем не возникало бы, но в данном случае нужна возможность открытия нескольких экземпляров окна.
Вопрос: как можно сделать окно полностью модальным внутри приложения, создавая его через экземпляр класса? Очень не хочется заморачиваться с таймером.
API позволит сменить тип окна "на ходу"?

http://www.sql.ru/forum/1241484/kak-sdelat-modalnym-ekzemplyar-okna