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

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



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ага, Dixi257, спасибо
 
А что это такое? И как с этим работать?

Всего записей: 20 | Зарегистр. 25-01-2007 | Отправлено: 15:42 04-05-2007 | Исправлено: Anprs, 15:45 04-05-2007
Dixi257



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Anprs
  ADOX это расширение ADO для манипуляции с объектами базы данных. Работать с ним можно также как и с ADO. Объектная модель включает методы для просмотра, создания и удаления объектов и контейнеров.
  http://search.msdn.microsoft.com/search/Default.aspx?brand=msdn&locale=en-us&query=adox
  Читайте, Шура, читайте

Всего записей: 128 | Зарегистр. 24-08-2005 | Отправлено: 17:25 04-05-2007
Anprs



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кто знает как это сделать не через ADOX?

Всего записей: 20 | Зарегистр. 25-01-2007 | Отправлено: 12:10 08-05-2007 | Исправлено: Anprs, 12:10 08-05-2007
Dixi257



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

Цитата:
Кто знает как это сделать не через ADOX?

 
  А в чем проблема то? Работать с ADOX не сложнее, чем с ADO.
Если поработать с поиском в интернете примеров немало есть, правда, большинство на C/CPP и VB, но суть та же самая. Создать объект и позвать нужные методы с нужными параметрами.
  Если уж очень сложно найти самому, то опиши в ПМ задачу, чем смогу помогу (но только у меня примеры все на VB).

Всего записей: 128 | Зарегистр. 24-08-2005 | Отправлено: 17:38 08-05-2007
GreatOne



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ! Подскажите плиз как в аксесе программно узнать количество строк в таблице или на форме?

Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 11:29 10-05-2007
YaroslavOne



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Странный глюк
Access 97, окно поиска (по Ctrl-F) открывается невидимым
т.е. фокус переходит с текущего окна на окно поиска, но самого окна поиска невидно. Можно "вслепую" набрать текст поиска и произвести его, но чертовски неудобно.
Как исправить сложившуюся ситуацию?

Всего записей: 326 | Зарегистр. 30-04-2003 | Отправлено: 14:35 15-05-2007
jONES1979



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

Цитата:
Народ! Подскажите плиз как в аксесе программно узнать количество строк в таблице или на форме?

 
для формы например так

Код:
 
Private Sub Form_Load()
  Dim rst As DAO.Recordset
   
  Set rst = Me.RecordsetClone
  rst.MoveLast
  rst.MoveFirst
  iRecCount = rst.RecordCount
End Sub
 

  rst.MoveLast,  rst.MoveFirst сделано потому,что акцесс не всегда заранее определяет кол-во записей (вычитано у Гетца)

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



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

Код:
INSERT INTO nado_vidat
VALUES (1, (Select ot_kogo From Ludi Where npp=prodagi.kto), (prodagi.skolko*0.1), false);
 

ошибка -3025(нельзя ещё файлы открывать....
 в чём я неправ?

Всего записей: 1440 | Зарегистр. 02-04-2004 | Отправлено: 15:57 19-05-2007
Kafka17



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

Цитата:
INSERT INTO nado_vidat
VALUES (1, (Select ot_kogo From Ludi Where npp=prodagi.kto), (prodagi.skolko*0.1), false);  

Это просто "кривой" SQL, надо писать что-то вида
INSERT INTO nado_vidat (nummer, ludi, skolko) VALUES (1, 'Ivan Ivanovich', 2400)
Если же вставляется целая таблица, то VALUES лишнее, надо просто писать:
INSERT INTO nado_vidat (nummer, ludi, skolko) SELECT * FROM personal WHERE rabotaet = 'da'
Для того, чтобы вставить в определенные поля какие-то фиксированные значения, надо использовать два запроса подряд -- сначала INSERT вставляет нужные данные из других таблиц, потом проходится UPDATE и выставляются нужные значения.
 
Добавлено:

Цитата:
Access 97, окно поиска (по Ctrl-F) открывается невидимым
т.е. фокус переходит с текущего окна на окно поиска, но самого окна поиска невидно. Можно "вслепую" набрать текст поиска и произвести его, но чертовски неудобно.  

Возможно окно поиска находится просто за пределами видимой области.
Нет возможность скроллировать основное окно?
У меня так однажды почему-то там форма открывалась, где-то на 4000 от левого угла, приходилось скроллировать....
 

Всего записей: 6 | Зарегистр. 01-03-2007 | Отправлено: 16:15 19-05-2007
Sidi06

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

Всего записей: 3 | Зарегистр. 19-05-2007 | Отправлено: 21:06 19-05-2007
AndVGri

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sidi06
В конструкторе таблицы в "Условие на значение" введи (Between 1 And 5) Or Is Null (Or Is Null - убери, если "пустые" значения тоже не допустимы), дополнительно настрой тест сообщения при неправильном вводе в "Сообщение об ошибке". Программные эквиваленты: ValidationRule, ValidationText.

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

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

Всего записей: 3 | Зарегистр. 19-05-2007 | Отправлено: 14:24 22-05-2007
Adex

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Прошу помощи, как начинающий в Access.
Имеется Таблица, содержащая Столбец-Группа товаров и Столбец-Товар. Вопрос в следующем - как в Форме содержащей столбцы подстановок Группа товаров и Товар сделать так, чтобы при выборе определенной Группы товаров в выпадающем списке с перечнем Товаров отображались только Товары принадлежащие выбранной группе ?

Всего записей: 1 | Зарегистр. 29-05-2007 | Отправлено: 20:36 29-05-2007
Sk1f



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Здравствуйте.
Разработкой Базы данных занимаюсь недавно и поэтому просьба не придираться. Все когда-то начинали
 
БД  SQL2000 +Access 2003(adp).
Данные для формы извлекаю с помощью одного запроса(большого), извлекаю все необходимые поля для формы.
 
Форма  
Схема Базы Данных
 
При отсутствии хотя бы одной записи в таблице, запрос на выходе ничего не выдает. И поэтому форма не заполняется. Как это можно обойти?  
 
Есть такие идеи для решения -
1. Простой запрос SELECT IDТовара, [Наименование Товара] FROM Товар и заполнить два соответствующих поля формы. Для остальных полей написать Обработчика событий (на каждое поле) - отображение значения (если оно есть), изменение значения,  удаление значения, получение/потеря фокуса и тд.  
2. Везде, где не заполняются поля в таблице задать Значения по умолчанию.  
 
Второй способ мне меньше всего нравится.  
 
Я ошибаюсь или нет?
Какой есть способ более простой и главное более правильный.  
 
С уважением, Александр.

Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 12:35 30-05-2007
satata



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день!
Есть некая проблема у начинающего пользователя - буду рад за помощь, советы и их же с ними.
Вообщем суть такая:
  Есть несколько табличек Ламинации (виды, кол-во микр и тд.) - все связаны подстановкой... вообщем то проблем не возникает. Туда же добавил Цену, Количество листов и Стоимость.
  Делаю запрос на основе этих связанных табличек и на основе этого запроса делаю форму для ввода данных, там юзер выбирает Вид ламинации, микроны ...ставить цену и количество.  тут и начинаются засады....
  В поле Стоимость делаю выражение:  
=Формы!ТаблЛаминация!КоличествоЛаминации*Формы!ТаблЛаминация!Цена  
Все хорошо и красиво считается и умножается и Стоимость показывается, но .. когда создаю отчет  или иду в запрос - то там Стоимость - пустая =((
Соответственно вопрос ... Как сделать так чтобы в отчетах стоимость показывалась?

Всего записей: 11 | Зарегистр. 12-08-2005 | Отправлено: 11:51 31-05-2007 | Исправлено: satata, 11:53 31-05-2007
satata



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем спасибо - вопрос снимается =)
Все решилось достаточно просто - если кому интересно будет -пишите.

Всего записей: 11 | Зарегистр. 12-08-2005 | Отправлено: 17:59 01-06-2007
VadANok

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Мир Вашему Дому, Господа!
 
Помогите дельным советом - через две недели защита, а "на мне" тоска...
Короче, создал базу данных (Access 2003 + VBA + ADODB), у меня на компьютере все работает без проблем, но при переносе (копировании файла .mdb) базы на другую машину (такая же XP SP2, Office - с одного дистрибутива) - один модуль не хочет работать, зараза. Как доходит до строки:
Set zpr.ActiveConnection = CurrentProject.Connection
выскакивает "Run-time error'-2147221164 (80040154)': Класс не зарегистрирован."
 
Что ему надо, где "собака зарыта"? Подскажите, пожалуйста...
 
Добавлено:
Вопрос снимается, помогло вот это:
regsvr32 /s c:\windows\system32\Msjetoledb40.dll

Всего записей: 173 | Зарегистр. 21-06-2005 | Отправлено: 15:17 09-06-2007
Sk1f



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
БД -SQL Server 2000
Подключаюсь с помощью  Access и GUI соответственно на нем делаю.
 
Таблица - ID (счетчик), месяц(char), год(int), [тип товара](varchar), [кол-во](int)
 
Какую форму вы бы посоветовали сделать? Нужна нормальная, вменяемая форма, в которой будет заполняться  месяц, год, [тип товара], кол-во.
 
p.s. Ищу идеи!
 
 
 

Всего записей: 198 | Зарегистр. 04-04-2006 | Отправлено: 11:07 15-06-2007
LuckyELF

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А можно передать в запрос параметр?
я создал в аксесе запрос вида
select id, name, age
from t_people
where age = P_AGE
 
когда запускаю такой запрос мне выдается окошечко с предложение ввести значение для P_AGE, при этом все работает прекрасно
 
но вот мне понадобилось сохранить результаты запроса с помощью DoCmd.OutTo
я создал формочку из которой все это дело запускается, на этой форме я сделал поле для ввода значения, а как передать его в запрос не знаю, может кто подскажет?

Всего записей: 29 | Зарегистр. 06-03-2005 | Отправлено: 23:15 20-06-2007
Anton T

Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
LuckyELF
where age = 18
= - возраст равно 18, ни больше, ни меньше
> - если ворзаст 18 и больше, напр. 19, 20 и т.д.
< - если ворзаст 18 и меньше, напр. 17, 16 и т.д.

Всего записей: 325 | Зарегистр. 12-04-2006 | Отправлено: 21:18 22-06-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

Рейтинг.ru