Доброго времени суток. Есть макрос по экспорту из Access в Excel. Всё работало в 2003-2010 офисе, в 2013 вываливается с ошибкой. Библиотека подключена. Ставлю точку, вылезают варианты. Выдержка кода:
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.application")
Set xlBook = xlApp.Workbooks.Add
xlApp.WindowState = xlMinimized
xlApp.Visible = TrueSet xlSheet = xlBook.Worksheets(1)
With xlSheet
'Шапка
.Name = "Основная выгрузка"
.Range(.Cells(1, 1), .Cells(1, 10)).Select
.Range(.Cells(1, 1), .Cells(1, 10)).Merge
endwith
.Select добавил после возникновения ошибки, чтобы проверить вдруг это ошибка .Range, но нет, выделяет нормально, а на .Merge выдаёт ошибку: "'1004' Application-defined or object-defined error"
Создайте еще более понятный интерфейс и мир создаст еще более тупого юзера.
Уважаемые эксперты, подскажите, пожалуйста, можно ли с помощью команд макроса или программы на VBA сделать автоподбор ширины по содержимому всех столбоцов таблицы Access. Сейчас я это делаю двойным кликом на границе, причем те столбцы которые не видны в окне, но выделены, свою ширину не изменяют в Access 2010.
Здравствуйте! Помогите пожалуйста составить запрос вычисляющий количество посещений указанным клиентом за определенный промежуток времени.Заранее благодарю за помощь
Приветствую. Видимо, простая задача, но у меня затык. Есть таблица, в ней поля name и midname. Нужно сформировать запрос, в котором name и midname возвратятся в одном поле, разделенные пробелом. В SQL работает так:
SELECT tblClients.name+ " " + tblClients.midname as Refer FROM tblClients
В VBA с наскока не выходит. Ни
"SELECT tblClients.name" + " " + "tblClients.midname as Refer FROM tblClients"
Ни
"SELECT tblClients.name" & " " & "tblClients.midname as Refer FROM tblClients"
_____________________ А что на самом деле хотел сказать Frost_Imp никто не знает, так как администрация форума попросила его быть вежливым.
Здравствуйте, прошу помощи в создании запроса!!!! мне необходимо создать запрос который осуществляет поиск по таблице в Access, и самое главное необходимо что бы параметр поиска задавался в окне с просьбой о введении параметра!!!
Здравствуйте! Необходимо определить максимальную суммарную продажу за каждые 5 подряд идущих дней (т.е сумма 1-5 день, 2-6 и т.д). Помогите, пожалуйста. Заранее благодарю
Доброй ночи! Делаю БД, есть проблемы: 1. При добавлении новой записи в форму (через другую форму), после сохранения или закрытии второй формы (т.е. формы "новая запись") первая форма автоматически обновлялась. А пока что, что бы новая запись появилась в форме, нужно в ручную обновить. =(
2. Существует поле динамического поиска, она работает отлично. Но, есть проблема, если на форме поставить "запрет на добавления новой записи", то при вводе в поисковую строку значения которого нет в таблице (на пример: есть несколько аптек, если в поле поиска написать "аптес", то вылетает стразу же ошибка, так как вариантов поиска не осталось).
3. Из первого и второго пункта возникает еще вопрос, как или вернее что и куда нужно прописать, что бы по кнопкам включать и отключать редактирование данных в форме? (желательно по строчно- на пример поставить галочку на против выбранной строки и нажать редактировать и можно редактировать).
Мне досталась тема по курсовой. Тема: БД WWW ссылок (разделы – темы – ссылки – пользователи – подборки ссылок) . Сам я умею работать в access. Прошу у Вас разжевать тему. По каким ссылкам делать. Это создавать по какому-то сайту или создать как бы "сайт" и делать по нему БД. Нет возможности сейчас спросить у преподавателя. Хочется начать делать уже... В методичке моей темы нет вообще)
Уже вся измучалась, совершенно не понимаю, что нужно сделать, чтобы создать запрос. И так кручу, и эдак, и ничего не получается. Необходимо сделать запрос на выборку: Вывести список сотрудников, их должность, возраст и подразделение, а также количество работ, в выполнении которых они участвуют и годовой оклад сотрудника.
Проблема в том, что ФИО, должность, дата рождения (кстати, не возраст, а его тоже надо как-то вывести) и оклад находятся в таблице "кадры", подразделение - в таблице "подразделения", а работы (количества там нет!) - в таблице "работы". Между ними надо наверное связь поставить...
Объясните пожалуйста тупенькой девушке, как это сделать! Буду очень благодарна, если подскажете алгоритм действий.
Приход: SELECT DISTINCTROW Prihod.KodTovara, Prihod.NameTovara, Sum(Prihod.KolvoTovara) AS [Sum - KolvoTovara], Prihod.DatePostupleniyz, Prihod.KodPostavshika FROM Prihod GROUP BY Prihod.KodTovara, Prihod.NameTovara, Prihod.DatePostupleniyz, Prihod.KodPostavshika;
Расход: SELECT DISTINCTROW Rashod.KodTovara, Rashod.NameTovara, Sum(Rashod.KolvoTovara) AS [Sum - KolvoTovara], Rashod.DateVydachi, KodClienta FROM Rashod GROUP BY Rashod.KodTovara, Rashod.NameTovara, Rashod.DateVydachi, KodClienta;
Скажите, пожалуйста, в аксессе возможно работать с датами, группируя их? Например, есть БД учета товаров. За один день мне все считает (и кол-во проданного товара, и сумму), а как мне вывести за неделю??за месяц?...совсем не пойму..
Доброго дня! Возникла сложность с созданием запроса "Наличие учёного звания". Помогите решить. Вот условие:
"Создать запрос, используя таблицу “Преподаватели”. Включить в него все поля таблицы “Преподаватели”, кроме поля “Фотография”. Включить в запрос дополнительно поле “Наличие ученого звания”.Значения этого поля: ДА/НЕТ вычисляются в зависимости от значения поля “Уч_звание”. Выполнить сортировку по убыванию по этому полю. Разработать форму на основе этого запроса. Включить в форму все поля запроса, кроме поля “Код_преподавателя” и “Код_должности”. Дополнить форму полями “Название_кафедры” и “Должность” (использовать запрос). Для задания должности использовать селекторные кнопки."
Здравствуйте, такая проблема: после установления фокуса на поле и начала ввода данных появляется сообщение "Ошибочный аргумент", потом нормально вводятся данные, что это может быть? Перед этим делал сжатие/восстановление БД. Именно в одной таблице, пробовал изолировать ее в другую БД - так же фигня.
Господа,такая проблема. Делаю базу данных центра обработки виз. Есть 4 таблицы: виза, статус, доставка, консул. В таблице "Виза" есть логическое поле "Подтверждение визы". Нужно сделать так, чтобы при значении "Да" указывался консул, который её подтвердил, то есть банально выводились поля "Фамилия","Имя" из таблицы "Консул". Если "Нет", то ничего не указывается. У меня вариантов нет вообще. Препод сказал сделать именно так. Заранее спасибо за помощь!
есть 3 примерно одинаковые формы при открытии которых работает рекордсет и присваивается его значение списку внутри форм первая форма срабатывает сразу и выдаёт список полный значений вторая форма открывает список значений только после клика по списку третья форма аналогично как и вторая
глючащая форма:
Private Sub Form_Load()
Dim strSQL As String Dim r1 As DAO.Recordset Dim db As DAO.Database
strSQL = "SELECT fail.fail, fail.info, fail.id_fail FROM fail" _ & " where fail.fail LIKE '*" & [Forms]![search_fail]![name] & "*'"
Set db = CurrentDb Set r1 = db.OpenRecordset(strSQL)
Set Me!result.Recordset = r1
End Sub
работающая форма:
Private Sub Form_Load()
Dim strSQL As String Dim r As DAO.Recordset Dim db As DAO.Database
strSQL = "SELECT track.track, album.album, author.author, style.style, track.id_track" _ & " FROM style INNER JOIN ((author INNER JOIN album ON author.[id_author] = album.[id_author])" _ & " INNER JOIN track ON album.[id_album] = track.[id_album]) ON style.[id_style] = author.id_style" _ & " where (track.track LIKE '*" & [Forms]![search_track]![name] & "*') OR" _ & " (album.album LIKE '*" & [Forms]![search_track]![name] & "*') OR" _ & " (author.author LIKE '*" & [Forms]![search_track]![name] & "*')"
Set db = CurrentDb Set r = db.OpenRecordset(strSQL)
Set Me!result.Recordset = r
End Sub
пытаюсь пересоздать глючащие формы (чтобы по дефолту на всякий случай) результат не изменяется - после загрузки формы список пуст но после клика по нему оживает для смеха попробовал удалить в глючащей форме всё кроме списка - результат стал отклик списка на 5+ раз и пропали поля от конца значений до конца поля списка
Добрый день. Прелюдия такова, имеется форма, где, некая проба может включать в себя несколько объектов(видов). В каждом виде, в зависимости от результатов вскрытия может быть несколько локализаций, выбираемых комбобоксом. В указанной локализации должны быть внесены(всегда) 8 групп, которые собственно и вставляются с применением VBA. Код работает через раз, добавляет-недобавляет. Как его доработать?
Вечер добрый! Тут на форуме нашел замечательный скрип поиска по форме (прикреплю его к этому сообщению). Решил воспользоваться в своей БД, но не тут то было, основную функцию поиска он выполняет, но вот функцию печати по заданому фильтру он делает, но не так как в представленном примере.
Что бы посмотреть нужно: 1. открыть БД 2. открыть форму "Наличие техники" 3. Кнопка печать
Далее представится красивый отчет! в окне на переднем фоне ;)
не нашла раздел для моего вопроса, уж подскажите, пожалуйста,
на новом ноутбуке установили Офис на 1 год, все работало. Через пару дней при попытке открыть файл Excel или Word выдает сообщение "ошибка при направлении команды приложению" . И как назло, нужно работать в этих программах завтра-послезавтра:( как это можно исправить? после установки была куча обновлений, но я не знаю, что именно испортило:) или действеннее будет как-то переустановить офис?