Всем, привет!
Accessпользуюсь редко, но вот понадобилось реализовать импорт данyых из EXCEl.
Есть просто таблица tMain и , допустим, два поля 'Регион','Адрес'

   CurrentProject.Connection.Execute "INSERT INTO tMain" _
          & "(Регион, Адрес, ТипОбъекта)" _
   & "SELECT 'Регион','Адрес', 'ТипОбъекта'" _
   & "FROM [Лист2$A:X] in 'J:\Users\чччччч\Мои Документы\test.xlsx' [Excel 12.0;HDR=YES;IMEX=0] "

Вот почему-то не хочет подтягивать данные. Пишет эти 'Регион','Адрес'
Подскажите, пожалуйста, что не так в коде. Спасибо.

http://www.sql.ru/forum/1264312/gde-oshibka-pri-importe-fayla-excel-a-access

Уважаемые сведующие люди! Спасите помогите
Суть такова есть Форма1 главная в ней два поля код1 и код2 по нажатию двойному любого поля открывается Форма2 при передаче значений из Формы2 в Форму1 значения Код 1 и Код 2 одинаковые КАК сделать или куда копать чтобы используя одну Форма2 передать для каждого Поля код1 и код2 свое значение а одни и теже рыть в сторону If then и проверке на непустые значения???

прим кода передачи значений из Форма2 в Форма1:

Private Sub Code_DblClick(Cancel As Integer)

Form_Форма1.[fldCode1] = Me.[code].Value

Form_Форма1.[fldCode2] = Me.[code].Value


DoCmd.Close
End Sub

http://www.sql.ru/forum/1264283/vybor-znacheniy-dlya-dvuh-poley-v-forme-iz-odnoy-i-toy-zhe-tablicy-podchinennoy-formy-i-t-d

Собственно сабж.. Поделитесь каким-нибудь опытом. В какую сторону копать. Естественно для VBA, Access 2013.

Заранее Всем спасибо!

http://www.sql.ru/forum/1264243/dobavlenie-teksta-kirillica-v-gotovuu-pdf

Здравствуйте. Подскажите как выполнить хранимую функцию Sql Server в Access и отобразить результат на форме? При этом подскажите как правильно связать Access и Sql Server.

http://www.sql.ru/forum/1264213/vypolnit-hranimuu-funkciu-sql-server-v-access-i-otobrazit-rezultat-na-forme

Непонятная странность. Есть простейшая форма: пара надписей ( тип Label) и кнопка. По нажатию кнопки в цикле запускается несколько запросов (к MS SQL и к Access), чтобы пользователь не скучал в одно из полей Label через свойство Caption выводится процент выполнения, сразу после этого делается Repaint формы. Странность в том, что после выполнения 50-и плюс/минус 10 проходов цикла (5-10 сек.) изменения перестают отображаться, в заголовке окна Access появляется подпись "не отвечает" и так до окончания обработки. Как это побороть?
Заранее премного благодарен.

http://www.sql.ru/forum/1264202/ne-otobrazhaetsya-procent-vypolneniya

Добрый день! Подскажите пожалуйста возможно реализовать в жизнь такой проект. Есть две таблицы "Сотрудники" и "Заявка" при выборе "ФИО" сотрудника из таблицы "Сотрудники" автоматом добавлялось значение "Отдел" в разные поля в таблицы "Заявка". "ФИО" и "Отдел" связаны между собой.

http://www.sql.ru/forum/1264115/help-dobavlenie-zapisey

В таблице в Текстовое поле свойство "Значение по умолчанию" пытаюсь вставить функцию: =Environ("USERNAME"), но при попытке сохранения выдает сообщение об ошибке "Неизвестная функция 'Environ' в выражении условия на значение или значении по умолчанию для 'SLUCH.REMOVED_USER'.
Что не так?

http://www.sql.ru/forum/1264090/pochemu-standartnaya-funkciya-v-znachenii-po-umolchaniu-vydaet-oshibku

Имеем Win 2012R2, Office 2013 Access
Под пользователем администратор (который изначально есть в системе) код

            Set IE = CreateObject("InternetExplorer.application")
            IE.Visible = True
            IE.Navigate "http://www.sql.ru/forum/access"

Все работает.
Создаю пользователя admin, включаю его в группу администратор.
Этот же код не работает. InternetExplorer открывается, но адресная строка пустая. И в принципе все пусто. Access через секунд 10 выдает activex component can't create object.

Понимаю, что дела с правами. Как решить не понимаю

http://www.sql.ru/forum/1263987/problemy-s-createobject-internetexplorer-application

Добрый день. Столкнулся с не приятной проблемой, не знаю как ее обойти.
В Section(acFooter) формы вставлена подчиненная форма. Кнопками меняем высоту контрола в который вставлена подчиненная форма. Если у подчиненной формы одна секция или высота одной секции <>0, а остальные =0, то все хорошо. Но стоит в подчиненной форме сделать высоту не равной нулю в нескольких секциях, то при размере контрола в который вставлена подчиненная форма =0 начинает сильно работать процессор. Может кто сталкивался и знает лекарство.
Спасибо

http://www.sql.ru/forum/1263966/section-acfooter-sourceobject-problemy

Доброе время суток,
Столкнулся с проблемой переброса данных. В данном случаи необходимо перебросить данные таблицы из одной базы IBM DB2 в другую (кросс базные запросы DB2 составить нельзя так как нет соответствующей лицензии и базы находятся в разных местах).

Если перетягиваются маленькие таблички, то я создаю прилинкованую таблицу (куда писать. Например: db2_tbl2)
и создаю 2ва запроса:

Запрос 1 (Pass-Throught query) выбирает нужные данные. Например:

select * from db1_tbl1;

Запрос 2 (обычный запрос MS Access) записывает данные в прилинкованую таблицу.

INSERT INTO db2_tbl2 select * from Запрос 1;

Если таблица большая, то MS Access уходит в нирвану на много часов и не всегда выходит.
Если использовать инструмент типа Jasper ETL то там он тоже затягивает данные к себе (как MS Access), а потом записывает в нужную таблицу, но делает он это гораздо быстрее.

Думаю что разница только в моем "топорном" подходе передачи данных и что как-то можно сделать все тоже самое на MS Access только с использованием VBA кода.

http://www.sql.ru/forum/1263903/perebros-dannyh-iz-raznyh-storonih-baz-cherez-ms-access

Друзья, здравствуйте!
Подскажите пожалуйста. Имеется почти готовая база. Проблема в том, что на разных компьютерах она отображается по разному. Т.е. на том компьютере, на котором я ее создавал и подгонял все размеры и внешний вид - все нормально. Скидываю ее на другой компьютер - все как-то разъезжается размеры не те и положение форм не то. На нескольких компьютерах пробовал - одно и тоже. Правда разные размеры дисплеев были, но с другими то Офисами все норм, а с Access на каждый дисплей свой подгон.
Куда говорить-то?

http://www.sql.ru/forum/1263885/access-problema-otobrazheniya-bazy-na-raznyh-komputerah

В Access 2010 прилинкована таблица с БД ORACLE 11. Когда настроен tnsnames.ora и источники данных ODBC - все работает нормально. Но это у меня на компьютере. пользователям нужно отдать так, чтобы ничего не нужно было настраивать (клиент oracle везде стоит по умолчанию). Можно ли в ConnectionString для ODBC вставить дескриптор из tnsnames.ora? Какой это параметр? Как это будет выглядеть, бросьте пример, если у кого-нибудь есть.
Заранее премного благодарен.

http://www.sql.ru/forum/1263880/mozhno-li-iz-access-podkluchitsya-k-oracle-bez-tnsnames-ora

В Microsoft Access есть форма, в которой графы на ввод данных паспорта - серия и номер. В связи с появлением биометрических паспортов, в которых нет серии и 9-значный номер, нужно урегулировать ввод паспортных данных. Первая мысля - установить чекбокс с подписью "Биометрический паспорт", и по его нажатию убирать графу "серия" и в графе "номер" заменить проверку с 6 цифр на 9 цифр. Из озвученного плана не знаю как написать скрипт:
нажатие_на_флажок=>{убрать поле "серия",изменить кол-во цифр в графе "номер"}

Прошу помощи в написании скрипта или совета с более подходящей идей. С VBA не знаком. Всем откликнувшимся заранее благодарен!

Модератор: Тема перенесена из форума "Другие СУБД".

http://www.sql.ru/forum/1263830/microsoft-access-2003-pomogite-napisat-skript

всем привет
есть простейшая процедура (отрывок):

Private Sub Data_Exit(Cancel As Integer)
Dim Zavod As Integer
Dim LastData As Date
Zavod = DLookup("код_завода", "заводы")
LastData = DLast("[data]", "diap")
If IsNull(Me.Diametr) Then Me.Diametr = DLookup("diametr", "diap", "[2Weld] = false and [код_завода] = " & Zavod & " and [data] = " & LastData)

msgbox LastData дает корректное значение даты, однако при обработке процедуры вылетает ошибка (см. вложение), в которой видно, что дата обрезана.

http://www.sql.ru/forum/1263772/run-time-error-3075

Здравствуйте!
Подскажите, пожалуйста, необходимо создать БД по отслеживанию перемещения картриджей между подразделениями.
Поставщик (Винита)-СкладИТ_Заправленные-Отдел1-СкладИТ_пустые
Создал пока для примера 2 склада, 2 справочника
Создал таблицу Перемещения и форму под неё.
Необходимо чтобы при нажатии кнопки "Записать" из таблицы Склад-отправитель удалялись соответствующие записи, а в Таблице Склад-Получатель - добавлялись соответственно в количестве, определенном числом Количество в форме.

http://www.sql.ru/forum/1263761/organizaciya-dvizheniya-tovara-po-4-skladam

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

Пробовала в xml-коде второй вкладки прописывать скрытие первой, не помогает. Непонятно почему.
Как это сделать?

http://www.sql.ru/forum/1263743/skrytie-svoey-vkladki-na-panele-ribbon

Здравствуйте!
Подскажите, пожалуйста, есть таблица перемещений. В ней есто поле Дата с типом Дата и Время (Длинный формат даты). необходимо исключить ввод даты для новой записи чтобы она не была ранее чем последняя запись в таблице.
Создал запрос для поиска последней даты:
"SELECT TOP 1 Перемещение.Дата
FROM Перемещение
ORDER BY Перемещение.Код DESC;".
Но при попытке вставить в правило проверки Access пишет, что запрос слишком сложный...
Я пробовал условие ">=SELECT TOP 1 Перемещение.Дата FROM Перемещение ORDER BY Перемещение.Код DESC"
Есть еще варианты как можно реализовать данное условие, чтобы пользователь для новой записи не мог указать дату задним числом?
Спасибо!

http://www.sql.ru/forum/1263693/pravilo-proverki-daty

Всем добрый день!

Не могу проимпортировать данные из файла Excel 2007 в Access 2003, вернее даже подключиться к этому файлу - выдает постоянно ошибки, подскажите как их можно обойти, если можно.

В Excel 2003 открывает с ошибками, а в Excel 2007 без вопросов

С другими делал так:

 Dim ExlApp As Object
 Dim WrkBk As Object
 Set ExlApp = CreateObject("Excel.sheet")
 Set WrkBk = ExlApp.Parent
 With WrkBk
     .DisplayAlerts = False
     .AskToUpdateLinks = False
     .Workbooks.Open ExcelPath 'открываем файл ексель
     .Visible = False '= False делаем невидимым
 End With

     Set rs = CurrentDb.OpenRecordset("tmp_PL")
     For i = j + 1 To ExcelRow
     rs.AddNew
     rs.Update
     rs.Bookmark = rs.LastModified
     rs.Edit
     rs.Fields(0) = WrkBk.Cells(i, a(1)) 
     rs.Fields(1) = WrkBk.Cells(i, a(2)) 
     .... 
     rs.Update
     rs.Bookmark = rs.LastModified
     Next i
     Set rs = Nothing

http://www.sql.ru/forum/1263596/ne-mogu-importirovat-fayl-excel

Следующий запрос выводит список сотрудников

SELECT E.ID, E.SecondName AS Фамилия, E.FirstName AS Имя, E.MiddleName AS Отчество, E.Phone AS Телефон, P.Title AS Должность, E1.SecondName + ' '+ E1.FirstName AS Наставник, E.Address AS Адрес, E.PositionID
FROM (Employee AS E INNER JOIN [Position] AS P ON E.PositionID = P.ID) INNER JOIN Employee AS E1 ON E.MentorID = E1.ID;

У каждого сотрудника есть наставник.
Как подсчитать количество сотрудников у каждого наставника?
Group By выдает ошибку ссылаясь на ON E.MentorID = E1.ID

http://www.sql.ru/forum/1263533/self-join-i-podschet-kolichestva

I need help with the VBA code to create this calendar. I have never created a calendar before and I am not a professional. If someone would be kind and patient to help me with this I would greatly appreciate their help.
I can download a monthly calendar but I don't know how to edit the code to make it into a weekly calendar. I have searched for the code to create a weekly calendar with no findings.
I didn't find the right solution from the internet.

Landing page video Examples

http://www.sql.ru/forum/1263431/creating-a-weekly-appointment-calendar-with-30-min-appointments-in-access-2016-64bit