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

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

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

StanislavG Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору У меня есть таблица в Access с 71 строкой, мне надо создать 71 документ word. Как это возможно сделать
	Всего записей: 34 \| Зарегистр. 10-01-2007 \| Отправлено: 18:06 21-03-2007

Xaoc666

Newbie

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

StanislavG

Ну каков вопрос таков и ответ... Запустить Wоrd и 71 раз выполнить Файл->Создать...

А в это время читаем о CreateComObject...

Сжалюсь. Пример функции для создания экселевского объекта. Действуй по аналогии...

Код:

Private Function CreateXlObject(sXltFileName As String) As Object
Dim xl As Object
Set xl = CreateObject("Excel.Application")
xl.Application.EnableEvents = False

If (sXltFileName = "") Then
xl.Workbooks.Add
Else
xl.Workbooks.Add (sXltFileName)
End If

Set CreateXlObject = xl
End Function

Всего записей: 31 | Зарегистр. 13-12-2006 | Отправлено: 18:52 21-03-2007 | Исправлено: Xaoc666, 18:55 21-03-2007

Domivan

Newbie

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

Проблема такова.
На форме есть элемент управления Label или TextBox
Элемент связан с полем таблицы 1 и отображает текущую запись соответственно.
Но как сделать, чтобы отображалась не сама запись, а связанная с другой таблицей 2?
Поясню.
Таблица "Заказы" содержит поле "КодЗаказа"(ключевое), "КодЗаказчика", "ДатаПоступления". Таблица "Заказчики" содержит поле "КодЗаказчика" (ключевое) и поле "ИмяЗаказчика".
Таблицы связаны отношением один ко многим по полю "КодЗаказчика"
Форма "Заказы" содержит Label-ы "КодЗаказа","КодЗаказчика","ДатаПоступления"
Label-ы связаны с источником данных ADODC, подключенным к базе данных.
Как сделать так, чтобы в Label "КодЗаказчика" выводилась запись "ИмяЗаказчика"?

Всего записей: 4 | Зарегистр. 10-02-2007 | Отправлено: 17:38 22-03-2007

Xaoc666

Newbie

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

Domivan

Можно установить в качестве источника записей для формы запрос с джоином...

Код:

select * from [Заказы] as z inner join [Заказчики] as zz on z.[КодЗаказчика] = zz.КодЗаказчика]

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

Всего записей: 31 | Зарегистр. 13-12-2006 | Отправлено: 10:00 23-03-2007

Domivan Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Спасибо, сделал так, все работает.
	Всего записей: 4 \| Зарегистр. 10-02-2007 \| Отправлено: 06:52 24-03-2007

bama

Junior Member

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

Народ подскажите чайнику в Аксесе

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

Начал вроде бодро

Открыл отчеты
сортирую по А, потом по В, потом посчитал сумму С
не могу посчитать/вывести сколько полей В, поле текстовое. Хелпа нет.
Получается такая таблица:
Чайники - -
со свистком - 2
со свистком - 1
со свистком - 3
всего = 6

с розочкой - 5
с розочкой - 4
всего = 9

А как сделать такой вид

Чайники - -
со свистком = 3
всего =6
с розочкой = 2
всего =9

Всего записей: 35 | Зарегистр. 30-12-2005 | Отправлено: 18:26 09-04-2007

AndVGri

Advanced Member

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

[b]bama[/b]
Сделай групповой запрос, в режиме SQL будет выглядеть так:

Select [a], [b], Count([c])
From [MyDBFtable]
Group By [a], [b]
Order By [a], [b];

Результатом запроса будет таблица с итогами по количеству в группах:
А В С
Чайники с розочкой 6
Чайники со свистком 9
Сковорода с ручкой 5
Сковорода с тёщей 13

А по нему и строй отчёт

Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 18:58 09-04-2007

gyurza2000

Junior Member

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

предлагаю работу, ЗА ДЕНЬГИ
нужно написать пргу в Accesse (да не важно в чём, главное что бы база велась), техзадание можно скачать тут http://www.adios.spb.ru/soft/tech_task.rar
програмер должен быть из Питера, по всем вопросам обращаться ко мне на трубку +7 (921) 750-53-78 или на gyurza2000[собачка]mail.ru, или можно тут писать. Вы мне сообщаете можете или нет это задание реализовать и Вашу цену. Я передаю вашу цену директору и он решает, работаем мы дальше или нет

Всего записей: 178 | Зарегистр. 22-02-2007 | Отправлено: 09:42 11-04-2007

bama

Junior Member

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

Цитата:

Select [a], [b], Count([c])
From [MyDBFtable]
Group By [a], [b]
Order By [a], [b];

Разобрался...
получилось не совсем так:
SELECT DISTINCTROW zak.LPU, zak.NAMEMED, Sum(zak.KOL) AS [Sum-KOL], Count(*) AS [Count-zak]
FROM zak
GROUP BY zak.LPU, zak.NAMEMED;
Может кому поможет...

Всего записей: 35 | Зарегистр. 30-12-2005 | Отправлено: 08:19 13-04-2007

jONES1979 Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору gyurza2000 перескажи сюда, http://forum.ru-board.com/topic.cgi?forum=33&bm=1&topic=2395&start=220#lt будет надёжней
	Всего записей: 324 \| Зарегистр. 20-05-2005 \| Отправлено: 09:47 13-04-2007

Junior Member

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

подскажите, как мне лучше реализовать отчет по выборке по интервалу дат и по фамилии? (скажу сразу, я полный чайник

) Создал таблицы и формы, все работает но на отчетах заступорился.

Всего записей: 173 | Зарегистр. 13-12-2004 | Отправлено: 21:36 16-04-2007 | Исправлено: dimonte, 21:39 16-04-2007

Member

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

dimonte самый простой и быстрый вариант: форма с контролами для фильтра, фамилией и двумя датами, и кнопочкой запуска отчета.
затем делаешь запрос, а качестве фильтра ссылаешься на контролы этой формы со знаениями.
затем рисуешь отчет, которые бы строился по данным этого запроса. вызов отчета вешаешь на кнопку самой формы

Всего записей: 324 | Зарегистр. 20-05-2005 | Отправлено: 15:52 21-04-2007

Junior Member

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

jONES1979

хм... прикольно

) все понятно, но ни чего не понятно

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

)

Всего записей: 173 | Зарегистр. 13-12-2004 | Отправлено: 03:52 23-04-2007 | Исправлено: dimonte, 03:54 23-04-2007

Member

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

dimonte с акцессом идет демобаза "Борей". Если Акцсс у тя русский, то и база будет на русском. Там показана всякая техника, да и хелп там нормальный! Успехов!

Всего записей: 324 | Зарегистр. 20-05-2005 | Отправлено: 11:42 23-04-2007

Junior Member

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

Можно ли в акцессе сделать в таблице или выводимом запросе формат ячейки как в экселе т.е выравнивание, перенос слов и т д (автоматически)) И еще как мне зафиксировать место положения открития формы?

Всего записей: 173 | Зарегистр. 13-12-2004 | Отправлено: 22:51 23-04-2007 | Исправлено: dimonte, 23:13 23-04-2007

AndVGri

Advanced Member

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

dimonte

Цитата:

выравнивание, перенос слов и т д (автоматически))

- нет, в форме.

Цитата:

И еще как мне зафиксировать место положения открития формы?

например так (в событиях формы):
Private Sub Form_Load()
Me.Move vLeft, vTop 'задаёшь положение
Me.Moveable = False 'запрет пользователю перемещать форму
End Sub

Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 04:00 24-04-2007

kenaut

Junior Member

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

добавляю элемент календаря (например LANDesk Date Control)
как сослаться на его аттрибут? из запросов
в дереве построения выражений этот элемент вовсе не отображается (как и все другие из списка "другие элементы"), если написать самому, то просит значение ввести
а мне нужно чтоб пользователь за определенный день мог отчет сохранить (и отправить по почте в xls)

Добавлено:
это элемент activex кстати, может их где-то разрешить надо?

Добавлено:
поторопился =) нашел ща статью в хелпе:
Включение элементов управления ActiveX в выражениях

Добавлено:
добавил модуль с кодом:
Option Compare Database

Sub EnableActiveXControl()

SysCmd 14, "8E27C92E-1264-101C-8A2F-040224009C02"

End Sub
guid от элемента MSCAL.OCX, запустил, все равно его нету в дереве =/ guid вроде правильный...

Всего записей: 67 | Зарегистр. 18-04-2007 | Отправлено: 12:55 28-04-2007

Silver Member

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

kenaut
Ну нет его в дереве и не надо. Если времени не жалко, то можешь поразбираться. А так делай через переменную. Значение переменной меняй на потерю фокуса календаря.

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 21:44 28-04-2007

Anprs

Newbie

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

1. Как через Delphi создать базу данных Access?
2. Как создать таблицу?
3. Как получить список таблиц существующей БД? (заполнить ими например КомбоБокс)
4. Как получить список полей существующей таблицы БД?

C базой работаю через АДО (подключаю через ADOConnection)

Всего записей: 20 | Зарегистр. 25-01-2007 | Отправлено: 08:57 04-05-2007

Dixi257 Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Anprs Используй ADOX
	Всего записей: 128 \| Зарегистр. 24-08-2005 \| Отправлено: 13:33 04-05-2007

Открыть новую тему

Написать ответ в эту тему

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