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

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



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

Всего записей: 161 | Зарегистр. 06-06-2002 | Отправлено: 12:45 27-11-2006
Dixi257



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
zzzzz
 
http://msa.polarcom.ru/st/d_1000173.htm

Всего записей: 128 | Зарегистр. 24-08-2005 | Отправлено: 13:15 27-11-2006
zzzzz



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

Всего записей: 161 | Зарегистр. 06-06-2002 | Отправлено: 17:10 27-11-2006
lexrem



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Такой вопрос. В отчете выводятся поля таблицы. Можно ли сделать так, чтобы они выводились в сетке? (Как таблицы в ворде?) Трудность в том, что одно из полей сможет растягиватся по вертикали на две-три строки, и вылазит за нарисованные в области данных линии.

----------
reality.sys has been corrupted. Reboot Universe? [Y/N]

Всего записей: 1017 | Зарегистр. 15-12-2003 | Отправлено: 16:17 08-12-2006
MrZeRo



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
lexrem
Поля подогнать по размеру друг к другу и сделать рамку на поле (свойства "оформление", "тип границы")

----------
... не это главное ...

Всего записей: 831 | Зарегистр. 30-01-2002 | Отправлено: 16:26 08-12-2006
jONES1979



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
zzzzz
Сформировать ьву-файл
 
Добавлено:
mde-файл

Всего записей: 324 | Зарегистр. 20-05-2005 | Отправлено: 17:01 08-12-2006
MrZeRo



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
jONES1979
zzzzz
Но есть еще кнопка F11, от нее mde-файл не защитит. Правда, кода видно не будет, но формы, отчеты, таблицы будут.

----------
... не это главное ...

Всего записей: 831 | Зарегистр. 30-01-2002 | Отправлено: 17:10 08-12-2006
lexrem



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

Цитата:
Поля подогнать по размеру друг к другу и сделать рамку на поле (свойства "оформление", "тип границы")

Оно бы работало, если б не изменяемое по вертикали поле. А так получается что однострочные поля так и обводятся, а которое на две или три строки вылезает из общего ряда.

----------
reality.sys has been corrupted. Reboot Universe? [Y/N]

Всего записей: 1017 | Зарегистр. 15-12-2003 | Отправлено: 20:15 08-12-2006
MrZeRo



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
lexrem
Вот мои изыскания, может, помогут.
В отчете повесил обработчик на область данных, событие "форматирование", там написал  

Цитата:
 
Dim ctl As Control
    For Each ctl In Me.Controls
            With ctl
            If ctl.name = "Title" Then
                .Height = 400
                End If
            End With
    Next ctl
 

У меня Title - контрол, высота которого недостаточна. Можно пройтись по всем необходимым контролам. Но как узнать нужную высоту - вот вопрос. Может, как-то, исходя из длины растягивающегося по вертикали поля ...

----------
... не это главное ...

Всего записей: 831 | Зарегистр. 30-01-2002 | Отправлено: 17:24 11-12-2006
engine

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
lexrem
Если еще не решил проблему, то я делал это так:  
 
Проверял на событии печать (Print) высоту всех элементов, затем рисовал рамку вокруг полей с найденой высотой MaxElementHeight.
' поиск самого высокого расширяемого элемента типа acTextBox
For Each c In Report.Section(acDetail).Controls
         
        If c.ControlType = acTextBox Then
         If c.CanGrow And c.Visible Then
           
            If c.Height > MaxElementHeight Then
                 MaxElementHeight = c.Height
            End If
          End If
        End If
Next c
 
' рамка
For Each c In Report.Section(acDetail).Controls
   Report.Line (c.Left, c.Top)-(c.Left + w, c.Top + MaxElementHeight), , B
Next c
 
В конце возвращал значение MaxElementHeight в стандартное DefaultElementHeight которое сохранял при старте отчета.
Да ... естественно все элементы должны быть с прозрачной рамкой )
 
Добавлено:
Есть проблема:  
Из VB Access открывается файл Excel для импорта данных. Все вполне работает, но только если в исходном Excel нет картинок. В связи с чем вопрос:
 
Как удалить картинки из файла Excel, используя средства VBA?
 
Вот что пробовал:
                Dim ddd As Excel.Shape
                Dim my_shapes As Excel.Shapes
                 
                Set my_shapes = ExcelSheet.Shapes
                 
                For Each ddd In my_shapes
                    ddd.Delete
                Next ddd
 
Выругивается (

Всего записей: 57 | Зарегистр. 27-01-2004 | Отправлено: 15:40 06-01-2007 | Исправлено: engine, 15:48 06-01-2007
filemoto



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
срочно нужна ваша дапамога.  
У меня небольшой трабл. может вам известно как решить его. Это связано  
с акцесом. Вот суть:  
есть база mdb, в ней есть таблица [main] в которой есть 2 поля: Группа  
и Подгруппа. Эти поля заполняются из таблиц Группа и Подгруппа  
соответственно. Вопрос:  
как сделать, чтобы при выборе Группы в таблице [main] поле Подгруппа  
автоматически изменялась согласно определённым связям в таблице  
Подгруппа.  
Например, я в таблице [main], в колонке Группа ввожу "Audi", значит в  
в колонке Подгруппа, при подстановке, должны отобразиться только те модели,  
которые связаны в таблице Подгруппа, а это: A4, Avant, C80, C100...  
 
Как такое можно сделать? Помогите пожалуйста  
 
сам тестоввый фал тут: http://milovar2000.at.tut.by/test.mdb

Всего записей: 132 | Зарегистр. 08-04-2006 | Отправлено: 19:19 15-01-2007
dneprcomp



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
filemoto
В самой таблице почти ничего автоматически сделать нельзя. Если я правильно понял вопрос, то такие вещи надо делать на форме. Скажем, изменили DropDown List Группа. По результатам его изменения строится Select запрос и этот запрос указывается как Data Source для DropDown List Подгруппа.

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 04:26 16-01-2007
filemoto



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

Всего записей: 132 | Зарегистр. 08-04-2006 | Отправлено: 10:29 16-01-2007
Dixi257



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

Цитата:
у меня что-то не получается сделать запрос никак, или получается, но както странно

  Ну на мой взгляд есть два путЯ. Вариант 1 - динамически изменять источник данных (запрос) поля подгруппа. Вариант 2 - программно формировать запрос и программно заполнять список поля подгруппа.
 
Запрос должен быть типа Select * From [Подгруппа] Where [Код_группы]=[Значение_поля_группа];
 
Обратите внимание, таблица [Подгруппа] должна содержать ссылку на уникальный индекс (например поля счетчика) таблицы [Группа]. Обратите внимание, надо очень аккуратно расписать бизнес-правила, т.е. то, как форма взаимодействует с пользователем, какие поля свободные какие связанные, когда происходит обновление данных в таблицах, нужна ли поддержка транзакций и т.д. Многое станит ясным.

Всего записей: 128 | Зарегистр. 24-08-2005 | Отправлено: 11:48 16-01-2007
filemoto



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

Всего записей: 132 | Зарегистр. 08-04-2006 | Отправлено: 13:27 16-01-2007
jONES1979



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
MrZeRo
 
ну! не надо о пустом! что тебе даст картинка формы без логики? А про структуру баз - тут даже сам аксесс не нужен, достаточно подцепиться к базе с помощью ADO
 
я считаю, mde-файл - лучший и достаточный вариант... А других - просто нет

Всего записей: 324 | Зарегистр. 20-05-2005 | Отправлено: 15:39 16-01-2007
Dixi257



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

Цитата:
Dixi257 сделайте же что-нибудь...

 
 Да не могу я так... Я ж написал, что в таблице группы должен быть уникальный индекс. К нему надо привязывать данные из таблицы подгруппы, а не к текстовому полю.
 Но пример для Вас я сваял http://slil.ru/23756331

Всего записей: 128 | Зарегистр. 24-08-2005 | Отправлено: 17:11 16-01-2007
filemoto



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

Всего записей: 132 | Зарегистр. 08-04-2006 | Отправлено: 18:32 16-01-2007
armen13



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброе время суток.
Мне нужно сделать учет договоров компании.
1) Просмотр и добавление информации хотелось бы через интернет браузер - htm страничка.
2) При вводе данных запрашивается информация о договоре такие как: с кем договор, номер договора, дата подписания, сумма, оплачено (да/нет).
3) Очень хочется видеть поиск по различным параметрам, ну как минимум по номеру договора и по колонке оплачено/не оплачено.
 
Наверняка есть уже такие базы, но я видать плохо пользуюсь гуглом - одни платные предложения.
Меня не ломает сделать самому, но не хотелось бы Вас напрягать с глупыми вопросами.
Поэтому прошу дать мне ссылки на электронные книги по Access'у для начинающих. На форуме искал - нашел только уже не рабочие ссылки.

Всего записей: 71 | Зарегистр. 22-07-2004 | Отправлено: 12:22 23-01-2007
lmnik



Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В MS Accesse создал форму для заполнения данных. Данные разбиты по регионам. Есть выпадающее поле со списком регионов.  Как можно сделать чтобы при выборе региона форма "переходила" на соответствующую запись т.е. остальные поля обновлялись вместе с полем "регионы"?

Всего записей: 3 | Зарегистр. 16-02-2007 | Отправлено: 00:13 17-02-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