Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Access VBA

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

Открыть новую тему     Написать ответ в эту тему

Guest

BANNED
Редактировать | Цитировать | Сообщить модератору
   
 
Обсуждаем вопросы только по Access VBA
(программирование макросов, скриптов, пользовательских функций и т.п.).
Приветствуются ссылки на ресурсы и справочную литературу по теме.

 

NB! Дублирующая тема VBA for Access закрыта во избежание путаницы. Оставлена эта, как более ранняя и имеющая больше сообщений.

Смежные темы:
Помощь в создании SQL-запросов: SQL запрос
Программы » Microsoft Office 2019 & 365 | 2016 | 2013 | 2010 | 2007 | 2003
Программы » OneNote | Outlook 2013 & 2016 & 2019 | Outlook 2010 | Microsoft Mathematics & Math Solver
Программы » Word FAQ | Excel FAQ | Access FAQ
Прикладное программирование » Word VBA | Excel VBA
Андеграунд » Microsoft Office 2019 | 2016 | 2013 | 2010 | 2007 | 2003
Андеграунд » OneNote | Visio | SharePoint Server | Project Server | Exchange Server
Андеграунд » Надстройки (add-ins) и коммерческие макросы Excel
Андеграунд » Самостоятельная сборка дистрибутивов Оffice 2007/2010/2013/2016 | MUI для Office 2007
----------
Как в Access перместить запись из одной таблицы в другую (допустим по нажатию кнопки на форме)?

Отправлено: 18:31 05-09-2002 | Исправлено: ALeXkRU, 17:14 03-08-2021
unfreqient



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Forms![МояФорма]![Поле1].Text="Value"
    ... .BackColor
    ... .BorderStyle или BackStyle не помню что там за что
   
 
    ... .Top = 0
    ... .Left = 0
    ... .Height = 10
    ... .Width = 10

Всего записей: 104 | Зарегистр. 20-07-2006 | Отправлено: 10:01 26-07-2006
RobinStone

Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
не работает
надо добавить на форму поле, которого не сущестует

Всего записей: 14 | Зарегистр. 27-06-2006 | Отправлено: 11:41 26-07-2006
Kat iynok



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здраствуйте, подскажите пожалуйста, как сделать так чтоб одну и ту же таблицу разные пользователи видели в разных отображениях. К примеру один отдел видел свои записи, другой свои, а один человек все записи. Подскажите если не сложно.

Всего записей: 6 | Зарегистр. 09-05-2006 | Отправлено: 12:28 26-07-2006
RobinStone

Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Можно один вопрос:
Как обратиться к элементу формы (полю) по имени, которое лежит в текстовой переменной.
Т.е.
Dim pName As String
Set pName = "Поле134"
Form_MyForm.Поле134.Value = "Что-то" - как вместо Поле134 подставить переменную? Т.е. чтобы я мог обратиться к любому полю, имя которого в переменной и которое существует...

Всего записей: 14 | Зарегистр. 27-06-2006 | Отправлено: 14:19 26-07-2006
unfreqient



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Могу предложить обращаться через номер объекта, например:
 
Dim MyObject As Object
//все объекты формы делаем невидимыми
For Each MyObject In Controls
            MyObject.Visible = false
Next
 
Добавлено:

Цитата:
как сделать так чтоб одну и ту же таблицу разные пользователи видели в разных отображениях. К примеру один отдел видел свои записи, другой свои, а один человек все записи

Наиболее красивый, с точки зрения интерфейса путь - заставить пользователей вводить пароль (или определать по названию машины доступ) на вход базы и каждому выводить свои формы,
другой путь - создавать запросы с разными полями, третий путь добавить в таблицу с описанием видимости полей каждой из таблиц и всё выводить через запросы вместе с этой таблицей, ещё путь - создавать временные таблицы на ходу с нужным набором полей и отображать разным юзерам и т.д.

Всего записей: 104 | Зарегистр. 20-07-2006 | Отправлено: 15:02 26-07-2006
RedPromo



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
RobinStone
Вобще можно еще так  

Цитата:
 
Forms("Form1").Controls("Textbox1").Value = там чегото
 

Всего записей: 558 | Зарегистр. 05-04-2006 | Отправлено: 15:35 26-07-2006
unfreqient



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Forms("Form1").Controls("Textbox1").Value = там чегото  

А можно ли переменную туда поставить, если правильно помню у меня вылезала ошибка, хотя могу ошибаться

Всего записей: 104 | Зарегистр. 20-07-2006 | Отправлено: 15:43 26-07-2006
Jenia 2005

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Евсть база Аксесс. Надо к карточке (записи) прикрепить внешний файл ттипа документа. Сделал новое текстовое поле. А дальше надо что-то типа стандартных "Обзор" и "Просмотр". Подскажите, плз...

Всего записей: 1 | Зарегистр. 22-12-2005 | Отправлено: 17:31 26-07-2006
RobinStone

Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Спасибо Всем!
обратиться к элементу по имени я теперь могу:
NameVar = "someControl"
Form_MyForm.Controls(NameVar).Value = "Something"
 
А вот как создать элемент которого не сущестует
собственно задача:
есьт таюлица в ней два поля Имя и Значение
надо на форму вывести некое количество элементов Надпись с Caption=Имя
И несколько полей с Value=Значение
 
Пытаюсь делать так
Application.CreateControl("MyForm", ........)
не помню как точно там параметры, но указываю по стправке
в ответ на это выдает ошибку: "...возможно только в режиме конструктора"

Всего записей: 14 | Зарегистр. 27-06-2006 | Отправлено: 05:22 27-07-2006
RedPromo



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
RobinStone
Выдает ошибку правильно потому как в документации написано

Цитата:
 
You can use the CreateControl and CreateReportControl methods only in form Design view or report Design view, respectively.
 

Скорее всего когда форма создана и показана создавать конролы уже нельзя. А вто зоздать зарание и скрывать если нужно вот ето можно.

Всего записей: 558 | Зарегистр. 05-04-2006 | Отправлено: 14:56 27-07-2006
RobinStone

Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Так вопрос в том, что я не знаю заранее сколько контролсов будет у меня(((

Всего записей: 14 | Зарегистр. 27-06-2006 | Отправлено: 15:03 27-07-2006
RedPromo



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Тогда поимей задачу и организуй все через вложеную таблицу на форме в которую можно вставлять сколько угодно значений. Как я понимаю у тебя массив значений.

Всего записей: 558 | Зарегистр. 05-04-2006 | Отправлено: 17:54 27-07-2006
griin



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Есть БД Access, в которой пара сотен таблиц, в каждой таблице от двух до двух десятков полей и от одной до тысячи строчек. В одной из таблиц, в одном из полей записано слово, например, "ХХХ". Как узнать название этой таблицы и поля, не просматривая глазами все записи? В MSSQL Server есть замечательный инструмент – Profiler, с помощью которого эта задача решилась бы в три секунды. Нет ли чего-то подобного для Аксесса?

Всего записей: 567 | Зарегистр. 03-01-2003 | Отправлено: 12:15 02-08-2006
paa_ch



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
День добрый, может это не в эту "ТЕМУ", но поправьте, если что...
с недавних пор SUBJECT стал при редактировании кода вылететь с неприятным сообщением -  
"Microsoft Visual C++ Runtime Library
Runtime Error!
Program: C:\Program Files\Microsoft Office11\MSACCESS.EXE
abnormal program termination", сделать просто ничего невозможно (писали прогу уже почти год - разрослась, неужто пора на Visual Studio переходить ?)"
 
Помогает полная переустановка виндов, но спустя непродолж время опять стало вылазить.... может кто сталкивался - подскажите причину?
Заранее

Всего записей: 17 | Зарегистр. 31-03-2004 | Отправлено: 07:16 10-08-2006
reddestfox



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
paa_ch
Какие приложения, кроме Офиса?
Конфиг компа?
Не разогнан ли?
Подробнее плиз.

----------
Самый Рыжий Лис На Свете!

Всего записей: 1857 | Зарегистр. 25-11-2005 | Отправлено: 21:30 10-08-2006
paa_ch



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
reddestfox
 
Lan2net, Nero7,Acronis,TotalCMD,7zip,winrar
я вот грешил на обновления от MS...(через winupdate), но возможно это AVP... - а конкретно: последнии версии 5.0.676 Workstation...
 
вот пока потихоньку пытаюсь вычленить глюк, наделал страховых копий, (bakup-ов), просто времени не всегда хватает, дергают по работе сильно, а тут еще и программа (Access) взбрыкивает  
но вот пока 2 дня после последней переустановки - живой, но AVP пока не ставил...
а у сотрудника - второго программера- на второй день слетел после аналогичной переустановки.....
 
Спасибо за желание помочь .. и отклик (а то наверно я в тот момент больше сдрейфил , подумал - может это повальная ситуация )
 
 
Добавлено:
reddestfox
Да , по конфигурации - P4 630, Gigabyte 945i,512MBddr2 533, Nvidia 6600GT256MB, 2 сетевые, DVDRW teak 516g, SATA 120MB, ничто не разогнано, все по default

Всего записей: 17 | Зарегистр. 31-03-2004 | Отправлено: 15:40 11-08-2006
MrZeRo



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
paa_ch
Сервис-паки на офис можно попробовать поставить. Сжать-восстановить базу. Если есть присоединенные таблицы, отсоединить и присоединить заново. Если база большая, поделить на логические части, н-р, формы в одной mdb, отчеты - в другой, данные - в третьей, или по другому какому-то принципу.

----------
... не это главное ...

Всего записей: 831 | Зарегистр. 30-01-2002 | Отправлено: 17:34 11-08-2006
stormsw



Newbie
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Kat iynok

Цитата:
Здраствуйте, подскажите пожалуйста, как сделать так чтоб одну и ту же таблицу разные пользователи видели в разных отображениях. К примеру один отдел видел свои записи, другой свои, а один человек все записи. Подскажите если не сложно.

 
Если нужно только просматривать записи тогда вопрос решается с помощью банального запроса:
User1 = SELECT Pole1, Pole2 FROM Table1;
User2 = SELECT Pole2, Pole3 FROM Table1;
SuperUser = SELECT * FROM Table1;

Всего записей: 27 | Зарегистр. 01-08-2006 | Отправлено: 17:59 11-08-2006
MrZeRo



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
stormsw
Товарищ просил ЗАПИСИ, а не ПОЛЯ.
Чтобы делать разбивку по записям, надо, чтобы в записи присутствовало поле, определяющее, какой пользователь может просматривать запись. Создать запрос для просмотра с участием этого поля, а таблицу на просмотр не давать. (опытный пользователь, конечно, сможет легко обойти это ограничение)

----------
... не это главное ...

Всего записей: 831 | Зарегистр. 30-01-2002 | Отправлено: 15:03 14-08-2006
NATTO



Full Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Ребяты, проблем!
Сделал базу в MS Access 2003 с десятком таблиц и формами для заведения и учета клиентов и товаров. Почти все поля таблиц участвуют в перекрестных связях сделанных через мастера подстановок. На главной странице (главная форма) я планировал сделать вывод списка товаров, при заведении которых я использовал серию категорий и свойств. В итоге в списке отображаются не названия свойств товара и имена товаров, а цифры, означающие номер поля опции. Извините, если коряво объяснил. Ну вот короче такая млин загогулина...
Посоветуйте плиз как залечить багу, если кто понял о чем я...

----------
ПМЖ для фотомануалов

Всего записей: 594 | Зарегистр. 05-01-2003 | Отправлено: 20:20 23-08-2006
Открыть новую тему     Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Access VBA


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru