Access VBA - [10] :: Прикладное программирование :: Компьютерный форум 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

Junior Member

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

Доброго времени суток.
Как обычно нет времени на разборы, поэтому если не трудно помогите с вопросом.

Создал две таблицы:
1)Название_статьи (в которой есть ключевое поле - КОД(счётчик) и поле Название(текст))
2)Статья (в которой есть поля - "Текст_статьи"(текст) "Автор" и КОД(числовой))

Связал КОД'ы связью 1:1

Создаю на форме объект "Поле со списком" и из первой таблицы заганяю туда "Названия статей" (В свойствах ->Источник строк:
SELECT Название_статьи.[Название статьи] FROM Название_статьи ORDER BY Название_статьи.[Название статьи]; )

и создаю объект "Microsoft Forms 2.0 Text Box"
Хочется чтобы при выборе в поле списка названий - загружался текст статьи из второй таблицы в TextBox - как это сделать...не получается

(

Visual Basic не знаю, но в принципе разобраться смогу...если он тут нужен..

Всего записей: 41 | Зарегистр. 08-11-2005 | Отправлено: 20:28 05-06-2006 | Исправлено: kolob204, 20:31 05-06-2006

dneprcomp Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору kolob204 Посмотри Find a record by selecting a value from a list
	Всего записей: 3920 \| Зарегистр. 31-03-2002 \| Отправлено: 21:19 05-06-2006

Junior Member

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

Насколько смог перевести - там то что я уже смог сделать - т.е. воткнуть на форму ComboX - и указать из какой таблицы заполнять строки...а вот как связать то что выбираешь с полем MEMO ... или из меня плохой переводчик...

Всего записей: 41 | Зарегистр. 08-11-2005 | Отправлено: 21:28 05-06-2006

Silver Member

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

kolob204
Собственно, тебе должна подойти последняя фраза
If you want to see the event procedure that makes the list box or combo box work, open the box's property sheet, and then click the Build button next to the AfterUpdate property box.
Открой проперти, найди AfterUpdate и кликни на визард(...) Т.е. создашь правило что делать после изменения значения комбобокса.

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 22:18 05-06-2006

Junior Member

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

dneprcomp
эммм...
В том то и проблема - что я не знаю как эту обработку написать.
VB я не знаю...на выражениях не получается...просто я не имел дела до этого с аксессом.

Всего записей: 41 | Зарегистр. 08-11-2005 | Отправлено: 14:50 06-06-2006 | Исправлено: kolob204, 14:50 06-06-2006

Ge0rge

Newbie

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

Гуру, подскажите пожалуйста, как на VBA сделать аналог команды copy.exe file1+file2 file3? Желательно при этом ещё повесить на процесс копирования прогресс бар или часы на курсор.

Всего записей: 19 | Зарегистр. 10-08-2005 | Отправлено: 16:18 06-06-2006

Silver Member

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

kolob204
Ну, хорошо. Попробуем.

1.Создай Query1
SELECT Статья.Текст_статьи, Статья.КОД
FROM Статья
WHERE (((Статья.КОД)=[Forms]![Form2]![Combo2]));
2.Record Source для формы ставим Query1
3.Row Source для combo ставим
SELECT Название_статьи.Название, Название_статьи.Код FROM Название_статьи;
4.Column Count для combo 2
5.Bound Colum 0
(если неправильно сработает поставь 1. Запутался я в твоих длинных названиях

)
6.Control Source для textbox Текст_статьи
7.В код помести
Private Sub Combo2_AfterUpdate()
Me.Requery
End Sub

Вроде ничего не забыл и не перепутал

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 01:50 07-06-2006 | Исправлено: dneprcomp, 04:04 07-06-2006

parserNew Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору ' включить курсор с часиками DoCmd.Hourglass True ' аналог соманды сору Shell "command.com /c copy d:\1.log + d:\1.txt d:\2.txt", vbHide ' выключить курсор с часиками DoCmd.Hourglass False
	Всего записей: 3 \| Зарегистр. 07-06-2006 \| Отправлено: 10:13 07-06-2006

Ge0rge Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору parserNew, спасибо, но я думал что есть решение чтобы совсем отказаться от привязки к внешней copy...
	Всего записей: 19 \| Зарегистр. 10-08-2005 \| Отправлено: 10:16 07-06-2006

parserNew

Newbie

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

Sub Test()
CopyAnalog "d:\2.txt", "d:\1.log", "d:\1.txt"
End Sub

Sub CopyAnalog(strFileNameDST As String, ParamArray strFileNameSRC() As Variant)
Dim intFileNumSRC As Integer, intFileNumDST As Integer, intFileNum As Integer
Dim strFile As String

' открыть файл-приёмник для добавления
intFileNumDST = FreeFile
Open strFileNameDST For Append As intFileNumDST

intFileNumSRC = FreeFile

For intFileNum = 0 To UBound(strFileNameSRC)
' прочитать файл-источник в переменную
Open strFileNameSRC(intFileNum) For Input As intFileNumSRC
strFile = Input(LOF(intFileNumSRC), #intFileNumSRC)
Close intFileNumSRC
' добавить в файл-приёмник
Print #intFileNumDST, strFile;
Next intFileNum

Close intFileNumDST
End Sub

Всего записей: 3 | Зарегистр. 07-06-2006 | Отправлено: 11:45 07-06-2006

Junior Member

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

<b>dneprcomp</b>

Спасибо большое за помощь!
А можно сделать что то типо этого (правда это не работает у меня

):

В данные TextBox заносить Статья.Текст_Статьи в соответсвии и индексом выбранном в Combo2 без запросов.

Ну т.е. к примеру как если бы я в делфи создал файл записей
Record = newsletter
Name = string[50];
CTATbya = string;
end;

И в ComboBox при выборе названия делал SEEK(..); в соответсвии со свойством ComboBox.itemindex;

Можно такое организовать?

Всего записей: 41 | Зарегистр. 08-11-2005 | Отправлено: 18:03 07-06-2006

Ge0rge Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору круто, parserNew, ещё последний вопрос: как проще в упомянутую Shell "command.com /c copy d:\1.log + d:\1.txt d:\2.txt", vbHide вставить свою переменную вместо имени файла?
	Всего записей: 19 \| Зарегистр. 10-08-2005 \| Отправлено: 18:07 07-06-2006

parserNew

Newbie

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

Dim strFileNameDST As String, strFileNameSRC1 As String, strFileNameSRC2 As String

strFileNameDST = "d:\2.txt"

strFileNameSRC1 = "d:\1.log"
strFileNameSRC2 = "d:\1.txt"

Shell "command.com /c copy " & strFileNameSRC1 & " + " & strFileNameSRC2 & " " & strFileNameDST, vbHide

Всего записей: 3 | Зарегистр. 07-06-2006 | Отправлено: 18:21 07-06-2006

Silver Member

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

kolob204

Цитата:

В данные TextBox заносить Статья.Текст_Статьи в соответсвии и индексом выбранном в Combo2 без запросов.

Чем это отличается от того что происходит сейчас? Что должен объяснить пример я совершенно не понял.
Цитата:

И в ComboBox при выборе названия делал SEEK(..); в соответсвии со свойством ComboBox.itemindex;

Разве значения ComboBox.itemindex совпадают со значениями поля КОД и корреспондируются с другими полями?

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 19:12 07-06-2006

kolob204 Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору dneprcomp Я извиняюсь. Ошибся при создании запроса не добавил в связь вторую таблицу. Всё работает! Большое спасибо!
	Всего записей: 41 \| Зарегистр. 08-11-2005 \| Отправлено: 22:08 07-06-2006

Ge0rge Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору parserNew, как бы ещё сделать чтобы DoCmd.Hourglass False работал только после завершения процесса copy, а то получается что копирование идёт скрытым процессом...
	Всего записей: 19 \| Зарегистр. 10-08-2005 \| Отправлено: 17:47 08-06-2006

zZum Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору ЗДРАВСТВУЙТЕ, я полный профан в аксессе помогите активировать окно _http://c.foto.radikal.ru/0606/3cc5da4ef947.jpg
	Всего записей: 12 \| Зарегистр. 08-04-2006 \| Отправлено: 19:29 09-06-2006 \| Исправлено: zZum, 19:31 09-06-2006

Silver Member

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

zZum
Или прав не хватает, или некуда конвертировать. Нельзя ли дать больше информации:
1.какой версией Access сделана база
2.какой версией Access открыта
3.зачем и во что конвертировать

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 02:34 10-06-2006 | Исправлено: dneprcomp, 02:36 10-06-2006

RffR255 Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Проблема такая. создаем базу с паролем. Но пароль тутже легко вскрыватся спеу программами, несмотря на его сложность. Что нет выхода? (Офис XP)
	Всего записей: 342 \| Зарегистр. 06-06-2006 \| Отправлено: 14:16 10-06-2006

zzzzz Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору ЗДРАВСТВУЙТЕ, есть такая проблемка. Нужно создать бат файлик, который будет запускать мою базу и нужный макрос вроде просто но..... c:\BasKlien\swirinDE.mdb /Makro3
	Всего записей: 161 \| Зарегистр. 06-06-2002 \| Отправлено: 01:29 14-06-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