Воскресенье, 06 Сентября 2015 г. 12:30
+ в цитатник
Очень нужна помощь, Создаю Наклейку, в выдаче получаю поле со значением Normal, каким образом можно сделать что бы выводилась только первая буква N от слова Normal ?
Уважаемые форумчане линкую таблица при помощи функции SetTableLink повещанной на автоекзе макрос, а с помошью функции hideNavePan скрываю панель гнавигации. Все навроде бы работает, но вот только в процессе линковки панель не скравается. Куда я только не пытался воткнуть запуск функции hideNavePan Подскажите пожалуйста как процесс линковки зделать невидимым
PublicFunction SetTableLink()
'пытался с крыть в начале выполнения линковкиDim Tablname AsString' имя таблицыDim DbLinkPath AsString, PathDbLink AsString' путь базыDim rsDbLin As DAO.Recordset 'Рекордсет для базыDim dbs As Database, tdf As TableDef
Dim sSS AsVariant, fso AsObjectDim strPath AsString, f
' Удаление линкованых таблицSet dbs = CurrentDb
999:
ForEach tdf In dbs.TableDefs
sSS = tdf.Connect
If Len(sSS) > 0 Then
dbs.TableDefs.Delete (tdf.Name)
GoTo 999
EndIfNext tdf
'Линковка новых таблиц
PathDbLink = DLookup("[DBfolders]", "td_folder")
Set fso = CreateObject("Scripting.FileSystemObject")
f = fso.FileExists(PathDbLink)
If f = FalseThen
MsgBox "Файл базы данных не найден!" & vbCrLf & "Задайте путь к файлу базы данных и повторите соединение.", vbCritical + vbOKOnly
DoCmd.Close acForm, "Start"
DoCmd.OpenForm "frm_path_DB_link"ExitFunctionElse'On Error GoTo er1Set rsDbLin = CurrentDb.OpenRecordset("td_table") ' открываем рекордсет с базами
strPath = DLookup("[LinkPath]", "td_general")
DoUntil rsDbLin.EOF = True' пока в рекодсете есть запись выполняем'пытался с крыть в процессе выполнения линковки
Tablname = rsDbLin!TableName 'засовываем имя линкуемой таблицы в переменную'DbLinkPath = strPath & "\" & rsDbLin!PathDbLink & "\" & rsDbLin!DbName ' создаем путь к базе
DoCmd.TransferDatabase acLink, "Microsoft Access", PathDbLink, acTable, Tablname, Tablname, False, False
rsDbLin.MoveNext ' следующая таблицаLoop
rsDbLin.Close
OnErrorResumeNextCall hideNavePan
DoCmd.Close acForm, "Start"
DoCmd.Close acForm, "frm_path_DB_link"
DoCmd.OpenForm "frm_login"ExitFunctionEndIf
er1:
If Err.Number = 3011 Then
MsgBox "Неверный формат базы данных!" & vbCrLf & "Задайте путь к файлу базы данных и повторите соединение.", vbCritical + vbOKOnly
DoCmd.OpenForm "frm_path_DB_link"
DoCmd.Close acForm, "Start"ExitFunctionElse
MsgBox "Иная ошибка соединения с базой" & vbCrLf & Err.Number & vbCrLf & Err.Description
EndIfEndFunctionPublicFunction hideNavePan()
'Скрываем боковую панель навигации
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
EndFunction
Добрый день, давно не работал в Access, подскажите пожалуйста. Есть две базы с одинаковыми по структуре таблицами (то есть одну до двух гигов забили и вторую тоже). В новой базе делаю связь с таблицами. Как сделать форму в новой базе , что бы она объединяла эти две таблицы?
Вопрос к владельцам Office 13 и Office 16 Какой провайдер(библиотека) стоит у Вас в офисе для Access ? В Access 2007 - Microsoft Offige 12.0 Access database engine Object Library В Access 2010 - Microsoft Offige 14.0 Access database engine Object Library В Access 2013 - ??? В Access 2016 - ???
------------------------------------------------------------- А ты вложил уже свой кровный рубль в 50-ти миллиардное состояние Билла Гейтса?
Какие существуют конверторы чтобы из MS Access сконвертировать SQL базу и PHP скрипты, ну короче не парясь формы и таблицы превратить в сайт. Попробовал DBForms from MS Access to PHP+MySQL , не получилось
Есть таблица, в которой 100 полей (с1, с2, ...с100). Подскажите варианты для решения следующей задачи: каждый следующий столбец должен быть просуммирован с предыдущими (типа накопительного итога) т.е я пока сделал так
но мне такой вариант уж очень не нравится Думал сделать пользовательскую ф-цию, но если передавать туда 100 полей, то тоже размер запроса большой, а как передать строку целиком (как объект) и внутри ф-ции с ней работать не знаю.
как выполнить такие преобразования: АЛУШТА, ГОРОД - Алушта, город. ДЖАНКОЙСКИЙ РАЙОН - Джанкойский район РОСТОВСКАЯ ОБЛАСТЬ - Ростовская область НИЖНИЙ НОВГОРОД, ГОРОД - Нижний Новгород, город
Подскажите, можно ли реализовать такой принцип? Есть таблица "Склад" с записями о количестве товаров. Но есть товары которые можно сделать из других товаров, соответственно нужно как то учесть это потенциальное количество Пример:
"Заготовка обработанная" делается из "заготовка", а сборка делается из двух "заготовок обработанных" Получается что некоторые записи(строчки) зависят от других записей, что вроде как противоречит принципам построения баз данных. Возможно ли это реализовать?
Access 2010. Есть табличная форма, доступная только для просмотра. В этой форме пользователи должны иметь возможность применять фильтры по различным полям, комбинируя их. При задании первого фильтра в любом поле доступен список всех значений этого поля, в котором можно птичками отметить те значения, которые нужно включить в фильтр. После применения первого фильтра, если надо добавить фильтр в другом поле, список значений этого поля уже не доступен. Доступны только опции: "Равно...", "Не равно...", "Больше...", "Меньше...", "Содержит...", "Не содержит..." и т. д. Есть ли возможность применить несколько фильтров в разных полях, выбирая значения из списка значений этих полей?
Добрый вечер друзья, требуется помощь в создании форм. попробую объяснить на примере- есть таблица 1. код 2. тип (данные тип1-тип3) 3. модель (модель1-модель3)
требуется на форме использовать группу переключателей 1.тип1 2.тип2 3.тип3 4.любой тип
при этом в элемент "список" должно выводиться поле "модель" в зависимости от выбраного типа в группе переключателей...
попробовал использовать в качестве условиия запроса выборки функцию "choose" вот тока не могу прикрутить отсутствие фильтра или несколько типов
Имеется MC Access 2003 и в нём visual basic, какая нужна процедура или функция или запрос, для вывода какого-то текста в какое-то поле,в какой-то форме в заданное время?
Доброго дня, я начинающий. Вопрос: Есть две базы данных. в поле первой базы выбираются значения по списку из второй. Как мне сделать, чтобы при вводе данных в новое поле первой базы подставлялось ранее введенное значение в этой же записи. в условие на значение ввел такое, пишет ошибку: [размерЭтажДверей_Ш]=[размерДвериКабины_Ш]
попробовал в значение по умолчанию [размерЭтажДверей_Ш]=[размерДвериКабины_Ш] тоже пишет ошибку.
есть несколько разных подчинённых форм и отображают они разные поля результатов одного и того же запроса при этом цвет фона стандартно чередуется. чётные поля белые, нечётные - серые. в разных формах оно меняется, то чётные - серые, то нечетные. как можно установить порядок чередования самому?
Здравствуйте. Решил сделать разделенную форму. Посмотрев по форумам, синхронизацию при выполнении сортировок сделал. Не могу сообразить как правильно решить проблему синхронизации датасетов при различных видах применения/отмены фильтров. Вариант с перехватом нажатий кнопок применения/отмены фильтров, думаю, не подходит (слишком их много).