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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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
GunRose



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо, обязательно попробую, руки еще не дошли. Но меня тут достал один глюк Эксеса! В нем взял вдруг и перестал работать мастер! То есть когда пытаешься создать форму с помощью мастера поля таблицы не видны! И добавлять в форму нечего(
Еще одно проявление бага: попытался с помощью мастера сделать кнопку для печати отчета.. вставилась кнопка и все, больше ничего нету. Есть только заголовок и конец процедуры, середина отсутствует... как с этим бороться?  
Причем интересная особенность: утром у меня все работало, а под вечер перестало. С компом не делал ничего! Только в эксесе работал. Вирусы на нем были, но не в них дело. Потому что подобный глюк наблюдался и на заведомо чистом компьютере.
 
Офис стоит 2003 с SP3. Пробовал вообще без сервис пака - такая же фигня. Ставил второй - те же яйца, тока в профиль.  

Всего записей: 6 | Зарегистр. 30-05-2008 | Отправлено: 22:46 08-06-2008
GunRose



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В общем разобрался я со своей проблемой, хочу поделиться, чтобы вы не наступали на эти же грабли. Не работал Access так, как надо из-за... АНТИВИРУСА КАСПЕРСКОГО 5 ВЕРСИИ. Стоит только отключить его, все сразу же встает на круги своя. Имейте это в виду

Всего записей: 6 | Зарегистр. 30-05-2008 | Отправлено: 16:18 11-06-2008
RKK

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
У меня возникла следующая проблема.
При вставке любого файла в поле объекта  таблицы или формы базы данных access 2000 (XP) стала появляться надпись Ошибочный аргумент Run-time error '3001', и файл невозможно сохранить. Возможно ошибка появилась после репликации базы, но не сразу, а где-то уже после 30-40 вставленных файлов.
 
при процедуре debug вижу вот такое:
Private Sub Кнопка20_Click()
On Error GoTo Err_Кнопка20_Click
 
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 (ЭТА СТРОКА ВЫДЕЛЕНА ЖЕЛТЫМ)
 
Exit_Кнопка20_Click:
    Exit Sub
 
Err_Кнопка20_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка20_Click
     
End Sub
 
Я не программист, базу создавал довольно долго, и она терпимо работала пару лет.
Но вот появилась такая ошибка и не позволяет наполнять базу.
Надеюсь на Вашу помощь и на любые подсказки.
С уважением РК

Всего записей: 33 | Зарегистр. 26-05-2004 | Отправлено: 16:56 16-06-2008
CaseU

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Сорри возможно не в тему.
Подскжите кто знает. Из Access цепляюсь к oracle базе поля в varchar2 (4000 Byte)  
Access понимает их как поля memo. Подскажите плз может кто сталкивался где можно сказать тому же ODBC чтобы он трактовал их как текст определенной длины.
 
Спасибо

Всего записей: 83 | Зарегистр. 15-09-2006 | Отправлено: 18:27 23-06-2008
SergBSI

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
подскажите где посмотреть как посмотреть базу SQL Server  из Access

Всего записей: 516 | Зарегистр. 09-12-2003 | Отправлено: 19:59 25-06-2008
Czechoslovak



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
CaseU
А как ему трактовать если текстовое поле может быть максимально 255 символов ???

Всего записей: 175 | Зарегистр. 27-06-2007 | Отправлено: 10:05 26-06-2008
mrdime



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ, подскажите:
Есть 2 таблицы с абсолютно одинаковой структурой (т.е. одинаковое количество полей, используются одинаковые типы данных), НО: поля имеют разные названия. Надо все данные из одной таблицы залить в другую.  
История проблемы такова: человек, создававший таблицу, решил стать умным и переименовал поля со временем), а поскольку под эту таблицу была написана прога, то она естественно пересатала работать, посколько поля теперь называются по-другому. Приходиться теперь каждый раз при обновлении менять названия полей руками (несколько раз в месяц). Хочу сделать запрос, где бы все это делалось автоматически. Подскажите, кто знает.

Всего записей: 2975 | Зарегистр. 04-01-2005 | Отправлено: 22:53 26-06-2008
dneprcomp



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
mrdime
Обращайся по номеру поля
recordset.Fields (1)

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 23:13 26-06-2008
mrdime



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
dneprcomp
Спасибо, принцип понял.

Всего записей: 2975 | Зарегистр. 04-01-2005 | Отправлено: 04:22 27-06-2008
mirnvmkhl

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как работать с календарем. т.е. вставить дату?Разместил кнопку рядом с полем. при клике открывается форма с календарем......дальше не получается. Не знаю как передавать данные из равнозначных форм.Прошу помочь.

Всего записей: 1 | Зарегистр. 29-10-2007 | Отправлено: 18:40 29-06-2008
gubo



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите ответ на глупейший вопрос: как использовать текстовые функции в запросах?
Есть простая база с двумя текстовыми полями Name1 и Name2. Name1 заполнены. Нужно в Name2 занести значения Name1 без начальных и конечных пробелов.  На попытку выполненить запрос UPDATE Таблица1 SET Таблица1.Name2 = Trim([Таблица1]![Name1]); выдается сообщение  
Ошибка компиляции, в выражении запроса 'Trim([ Таблица!]![Name1])'.
То же самое выдается и при попытке создать запрос на выборку, а также при использовании любой другой текстовой функции.
Access 2003SP3. Попробовал 2007 - результат тот же

Всего записей: 214 | Зарегистр. 18-04-2002 | Отправлено: 05:43 03-07-2008 | Исправлено: gubo, 05:45 03-07-2008
ninjab

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
1.как сделать что бы высота текстбокса менялась в зависимости от того сколько там текста введено... то есть небыло полосы прокрутки.. и весь текст влазил бы в текст бокс.. и его было видно..  
во время предварительного просмотра перед печатью такая функция существует.. но не знаю как в режиме редактирования ее сделать...  
была мысль помещать его в метку(label) делать его авторазмер брать оттуда высоту и присваивать высоту текст боксу.  
 
Код:Private Sub label_Click()  
Set db = CurrentDb  
Dim korr As Recordset  
Set korr = db.OpenRecordset("blank")  
label.Caption = Recordset.Fields("posled")  
End Sub  
 
 
 
но если так делать то выдает ошибку " слишком большое значение для данного семейства"  
вот конец...  
 
2. есть 1 таблица в ней находятся данные..  
на форме есть выподающий список со значения поля "название" выбираем название..  
на этой же форме есть кнопка"далее"  
при ее нажатии надо сделать следующее.. что бы он брал ID того названия которого мы выбрали а вставлял их в другую форму (которая открывается при нажатии) в этой форме находятся текст боксы соответствующие полям другой таблицы (практически эдентичной этой) вот и вставлял значения в нужные поля..  
это сделанно для того что бы не тронуть базовые названия... и вести учет по измененым значениям..  
не подскажите как это сделать? (=  
спасибо..

Всего записей: 5 | Зарегистр. 26-06-2008 | Отправлено: 06:59 03-07-2008
Chichako



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
gubo
 
Странная ошибка - попробовал copy/paste твою строку - у меня работает на ура
М.б. у тебя что-то с полями Name1 и Name2 не совпадает по типам?
 
А почему у тебя 'Trim([ Таблица!]![Name1])'?
Там же "1" должна быть по идее вместо "!"
 
Как вариант попробуй что-то отличное от имени "Таблица1"  
 
 
 
 
ninjab
 
1.1) Думаю, что твой вариант не прокатит - скорее всего Label действительно не даст запихнуть столько знаков, сколько в TextBox лезет.
 
1.2)
Цитата:
от того сколько там текста введено
- имеется ввиду 1.2.1 - введено в данный момент времени в форме или же 1.2.2 при выводе в форму из уже заполненной таблицы?
 
1.2.1 Имхо сложно/невозможно, поскольку чтобы поменять размер бокса должно произойти событие потери фокуса или ему подобное - или же тебе надо втупую отслеживать нажатия всех клавиш, учитывая служебные и подсчитав варианты менять размеры и возвращать фокус элементу
 
1.2.2 Имхо возможно - разберись с порядком событий обновления, загрузки, потери фокуса - тогда перехватив одно из них при смене записи можно подкорректировать размер Текстбокса
 
2) Сумбур:
Цитата:
вставлял их в другую форму
<>
Цитата:
вставлял значения в нужные поля

2.1) Если речь идет об установке значений редактируемых записей одного из полей 2-й таблицы в значение ID первой - то это делается подчинением через связи между таблицами
 
я делал так - в открывающаяся форма состоит из 2-х частей - основная содержит поле ID первой таблицы (F1ID) и при инициализации этой 2-й формы происходит переход к той записи, которая выбрана в 1-й форме.
 
Подчиненная форма с твоими записями. При этом устанавливаем на вкладке данные Подчиненным поле F2ID - это то поле в которое у тебя автоматом будет писаться значения F1ID, А Основным полем то самое F1ID
 
2.2)Если же просто тащить ID - ну скопируй ее в глобальную переменную, а в 2-й форме вставь инициализацию твоего бокса второй формы в событие Form_Load

Всего записей: 23 | Зарегистр. 02-04-2004 | Отправлено: 00:05 08-07-2008 | Исправлено: Chichako, 00:41 08-07-2008
gubo



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

Цитата:
Странная ошибка - попробовал copy/paste твою строку - у меня работает на ура  

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

Всего записей: 214 | Зарегистр. 18-04-2002 | Отправлено: 04:38 08-07-2008
ninjab

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

Цитата:
1.2.2 при выводе в форму из уже заполненной таблицы?

 
имееться ввиду из таблицы туда текст вставляется!
вот.. хз как сделать.. на экране получаеться 3 полосы прокрутки (1аксесовская 1формы 1текст бокса...) это много... вот хотелось бы убрать.. текстбоксовую тогда было бы проще...
 
 
еще вопросик как сделать... что бы прокрутка колесика... небыло просмотра данных по таблице. а работало оно что бы форму вверх вниз листить...

Всего записей: 5 | Зарегистр. 26-06-2008 | Отправлено: 09:26 08-07-2008
dmention

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
На сервере находится папка с общим доступом в которой находятся базы данных access. (Несколько файлов с расширением mdb.)
 
В этой папке (пока не ясно откуда) появилась подпапка "C" в которой еще одна папка "С" и папка "Microsoft". В свою очередь в папке Microsoft подпапки Access, AddIns и Office, в которых лежат папки и файлы, в частности файл System.mdw.
 
Откуда это могло появиться и если это необходимые папки, то для чего они служат?

Всего записей: 206 | Зарегистр. 09-07-2005 | Отправлено: 15:21 11-07-2008
faith4u



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Народ! Нужна помощь... задача следующая:
 
Есть таблицы Родители и Дети. В них есть данные как имена телефоны а также их фотки (портрет физиономии).
 
Я хочу в форме навигации по родителям*(семьям) сделать подформу - скажем бегущую, где будет видно все лица детей... сейчас я поставил Active X объект под названием DBPix... а он падла не работает в бегущей форме... пытался создавать ДАО фунцию и так далее... пока все темный лес...  
 
Есть идеи лучше???? Благодарю!!!!

Всего записей: 203 | Зарегистр. 19-09-2002 | Отправлено: 18:54 07-08-2008
MUSICFROMWEB



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ткните, пожалуйста, в мануал или помогите любым другим способом
 
есть много mdb файлов, в них в кажой есть таблица с названием reestr.
задача - организовать поиск по одному из полей. Сделать выборку из каждой таблицы каждого mdb-файла.
 
Как ?

Всего записей: 427 | Зарегистр. 01-05-2006 | Отправлено: 17:29 13-08-2008
Vitus_Bering



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
MUSICFROMWEB
В одной базе сделай связь с нужными таблицами из др. баз и далее запрос и т.д.

Всего записей: 936 | Зарегистр. 30-09-2005 | Отправлено: 19:44 13-08-2008
MUSICFROMWEB



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Vitus_Bering
все таблицы reestr представляют собой набор одинаковых полей (фио, количество принадлежащих ценных бумаг, идентификационный код и прочие поля).
теперь нужно чтобы запрос прошуршал по всем таблицам и выдал результат поиска в разрезе отдельной таблицы.
 
например, спрашиваем в каких таблицах Пупкину В.В. соответствует значение в поле "количество ценных бумаг" >0.
 
Как вообще организовывается поиск по нескольким таблицам одновременно (почему одновременно, потому что если под каждую таблицу делать свой запрос, теряется смысл затеи как таковой) ?

Всего записей: 427 | Зарегистр. 01-05-2006 | Отправлено: 17:09 14-08-2008
Открыть новую тему     Написать ответ в эту тему

Страницы: 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