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

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



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Что вам сказать... Уже кое-то есть:  
 

Цитата:
 
Sub test()  
Dim rstCurr As DAO.Recordset  
Dim dbsCurr As Database  
Dim MyPath As String  
Dim MyFile As String  
Dim ShortFile As String  
MyPath = "C:\Marchello\"  
Set dbsCurr = Access.CurrentDb  
Set rstCurr = dbsCurr.OpenRecordset("Table1", dbOpenDynaset)  
MyFile = Dir(MyPath)  
Do While MyFile <> ""  
rstCurr.AddNew  
rstCurr.Fields("1").Value = Time$  
rstCurr.Fields("2").Value = Date$  
rstCurr.Fields("3").Value = MyPath  
rstCurr.Fields("4").Value = MyFile  
rstCurr.Update  
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97,  
MyFile, MyPath & MyFile  
MyFile = Dir  
Loop
 

 
 И вот что еще нужно.  
 
 Проходим каждую строчку таблиц Access с именами r* .
Структура данных таблиц (работаем только со столбиком "F2") :
 
создание
 
изменение
 
удаление
 
 По крайней мере один из блоков должен быть непустым (или каждый), например:  
 
таблица "r071203_xls"
 
создание
9129001
 
изменение
6026008
 
удаление
 
 Потребность следующая. Построчно анализируем каждую таблицу "r*", находим семизначные цифровые коды в каждом блоке и создаем новую таблицу:  
 
поле1: название таблицы "r*"
поле2: 7-значный числовой код
поле3: создание, изменение или удаление  
 
 Подскажите плз!  
 

Всего записей: 3 | Зарегистр. 31-01-2009 | Отправлено: 23:52 31-01-2009
Freebornman

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
добрый день.
срочно нужна помощь в VB или другой способ решения.
задача такая: на главной форме MS Access вводятся числа. в зависимости от значения числа (после проверки нажатием кнопки Command), должна открыться та или иная второстепенная форма (а главная закрыться).
всем заранее спасибо.

Всего записей: 10 | Зарегистр. 24-08-2006 | Отправлено: 05:16 03-02-2009
SantaMoroz



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Private Sub cmdProverka_click()
     
  Select Case Me.[поле для ввода числа]
     Case 1  '  одно из значений которые должны вводиться в поле для проверки( необязательно 1)
        DoCmd.Close "Main_form" ' закрыть главную форму
        DoCmd.OpenForm "[поле для ввода числа]" ' или той что соответствует этому числу
     Case 2
        аналлогично предыдущему
     Case 3
        ........
  End Select
End Sub
 
 
 
откроются только те формы, которые вы пропишите в блоках Case, остальные значения при вводе в поле для проверки проигнорируются

Всего записей: 3 | Зарегистр. 01-02-2009 | Отправлено: 16:31 11-02-2009
Vasiahl



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброго времени суток. Есть такой вопрос: есть база данных  по приему больных по датам. формируется отчет, в котором дата начала периода и дата конца периода запрашивается и вводится с клавиатуры. Каким образом сделать так, чтоб эта дата пропечатывалась в заголовке отчета? (Например с 1.02 по 10.03). Заранее благодарен за ответ

Всего записей: 115 | Зарегистр. 29-09-2004 | Отправлено: 12:09 14-02-2009
SantaMoroz



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, если кто знает:  
есть БД на ACCESS 2007 (два файла 1-оболочка, 2-таблицы)  
Сеть одноранговая, таблицы находятся на "главной машине" на сетевом диске "Z" операционка ХР Pro, две учетки Admin, и User (права соответственно).  
На остальных машинах стоит оболочка базы, которая залинкована на папку Z с правами USER к таблицам.  
 
Вопрос: как запустить файл БАЗА.accde с правами Admin главной машины? но так чтобы у себя в системе пользователи не могли скопировать файл с таблицы из шары (т.е. были с правами USER) ???

Всего записей: 3 | Зарегистр. 01-02-2009 | Отправлено: 23:32 18-02-2009
fauct

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, если кто знает. Есть основная таблица, в которой ключевой столб "Дата". Есть несложный запрос, по которому построен отчет. В этом отчете производятся вывод данных, который сотрируется по дате, никаких расчетов в нем не ведеться кроме running sum. Вопрос в том, как сделать так чтобы в конце года выщитывались показатели (сумма) всех строк. Так сказать итог всех столбцов за год.

Всего записей: 1 | Зарегистр. 18-02-2009 | Отправлено: 16:42 19-02-2009
ametjan

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вопрос такого плана  
 
Как сделать следующее
 
форма - в форме есть список -  2 значения
и поле для ввода данных  - если  выбрано 1 значение то данные вводятся в  1 таблица а если 2 значение то данные вводятся в другую.

Всего записей: 9 | Зарегистр. 31-10-2008 | Отправлено: 21:25 21-02-2009
TOLSTUXA



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, пожалуйста, каким образом работать с календарями?
Хотя бы передать в поле выбранную в календаре дату.

Всего записей: 112 | Зарегистр. 02-05-2005 | Отправлено: 13:25 25-02-2009
Vitus_Bering



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
TOLSTUXA
См. здесь.

Всего записей: 936 | Зарегистр. 30-09-2005 | Отправлено: 14:53 25-02-2009
TOLSTUXA



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо, но этот мануал есть везде в инете, но по нему никак не получается сделать.
В частности, п.13  
 
При выборе даты в календаре должно меняться значение поля "Дата". Поэтому нужно написать процедуру обработки события ПослеОбновления (AfterUpdate) элемента управления Календарь. Как и предыдущая, эта процедура состоит из одного оператора. Однако в ней показано, что для ссылки на значение элемента Календарь необязательно используется свойство value.
 
Private Sub Календарь_АfterUpdate() 'обновление поля "Дата"
 
txtDate = Format(Календарь.Object.Value, "dd/mm/yy")
 
End Sub

Всего записей: 112 | Зарегистр. 02-05-2005 | Отправлено: 15:02 25-02-2009
Vitus_Bering



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
TOLSTUXA
У меня работает такая конструкция

Код:
 
Private Sub Calendar_Click()
  Forms!frmBase!Data = Calendar.Value
End Sub
 

Всего записей: 936 | Зарегистр. 30-09-2005 | Отправлено: 16:25 25-02-2009 | Исправлено: Vitus_Bering, 16:29 25-02-2009
TOLSTUXA



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

Всего записей: 112 | Зарегистр. 02-05-2005 | Отправлено: 17:00 25-02-2009
dimaaliev

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброго времени суток. Я чайник. Требуется помощь в создании базы статистики контроля качества. В главной таблице делаются записи, кторые содержат дату проведения контроля, место проведения контроля, код брака, кол-во брака. Таблицы с подстановкой места и кодов сделал. Теперь нужно сделать запрос, результатом которого должен быть отчет, а также форму для формирования запроса по: временному интервалу проведения контроля, месту проведения контроля. В результате должен быть отчет, в котором видно, сколько сумарно единиц брака была с каким кодом для определенного места и временного интервала. Подскажите, пожалуйста, последовательность действий, типы запросов, элементы управления в форме и т.д. А может, есть уже что-то готовое?

Всего записей: 15 | Зарегистр. 25-01-2007 | Отправлено: 21:37 28-02-2009 | Исправлено: dimaaliev, 21:57 28-02-2009
Mummerah

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

Всего записей: 4 | Зарегистр. 02-03-2009 | Отправлено: 10:55 02-03-2009 | Исправлено: ShIvADeSt, 12:12 02-03-2009
ScherbakovaAN

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Приветики! Помогите, пожалуйста, чайнику! Имеется форма "Выплаты", на которой расположена кнопка, при нажатии на которую должен выводиться отчет. Отчет выводится на основании запроса, запрос состоит из двух таблиц (1-Выплаты,2-Полисы, вяжутся по коду полиса). Так вот, мне нужно, чтобы в отчете выводились не все записи в таблицах, а по одному конкретному коду полиса, соответствующему открытой формы Выплаты. Как бы мне это сделать???

Всего записей: 4 | Зарегистр. 02-03-2009 | Отправлено: 10:54 03-03-2009
Inkeria

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте. Я пользователь MS Access на начальном уровне.
Подскажите, пожалуйста, как в Access 2003 сделать такое:
Есть две таблицы. Таблица Справочник и таблица Бланк.
Ключевое поле в таблице Справочник - KODSTK, в схеме связи оно связано (один ко многим)
с полем KODSTK таблицы Бланк.
После связки в таблице Бланк появилось поле со списком, из которго можно выбрать определенное значение из таблицы Справочник.
Как сделать, чтобы в следующие поля таблицы Бланк автоматически  
подтягивались соответствующие данные из таблицы Справочник?  
Например, фамилия сотрудника, год рождения и т.п.
(Как в 1С - при выборе кода автоматически заноситься наименование, цена и т.п)
 

Всего записей: 1 | Зарегистр. 06-03-2009 | Отправлено: 23:14 06-03-2009
just86

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте!
Подскажите как сделать, что бы на форме было несколько рисунков которые менялись бы при смене записи. Примерно как на форме "сотрудники" в учебной базе Борей, надо что бы на форме были кнопки добавления рисунков, только что бы был не один рисунок, а скажем 4, соответственно будет 4 кнопки. Находил в инете разные примеры реализации, но для 1 рисунка, столкнулся с такой проблемой, как не смена рисунков при копировании соответствующих кнопок и полей. Всмысле я всё прописал, кнопки работают: при нажатии "добавить фото" открывается окно и добавляется фото, при "сбросить" - картинки очищаются, но при смене номера записи, меняется только первый рисунок. остальные остаются прежние. К чему и как привязать смену всех картинок?

Всего записей: 18 | Зарегистр. 20-12-2007 | Отправлено: 04:26 07-03-2009
Dixi257



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

Цитата:
но при смене номера записи, меняется только первый рисунок.

Код в студию

Всего записей: 128 | Зарегистр. 24-08-2005 | Отправлено: 01:05 08-03-2009
Selven

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Приветствую.
 
Есть задача. Существует 15 таблиц (15 магазинов), в них вводятся 4 поля данных и одно поле даты (поле даты не уникально, требуется возможность нескольких записей на одну дату). К каждой таблице есть по 2 запроса; один делает тривиальные расчеты, а другой суммирует все поля первого за определенный промежуток дат.
 
Проблема в том, чтобы создать запрос, который бы выполнял суммирование за промежуток дат по ВСЕМ магазинам.
 
Пробовал разные виды объединения, теоретически возможно 15 вложенных INNER JOIN, но там бока будут, если за одну дату в одной таблице две записи, а в другой одна, ведь primary key в таблицах нет, и он не нужен.
 
Как можно проблему сию решить? Возможно, с несколькими промежуточными запросами?

Всего записей: 3 | Зарегистр. 20-02-2006 | Отправлено: 10:54 09-03-2009 | Исправлено: Selven, 10:56 09-03-2009
Vitus_Bering



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Selven
Используйте запрос на объединение записей, UNION ALL...

Всего записей: 936 | Зарегистр. 30-09-2005 | Отправлено: 17:24 09-03-2009
Открыть новую тему     Написать ответ в эту тему

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