Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на Basic / VBA


РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 479
от 14.02.2007, 02:35

Администратор:Калашников О.А.
В рассылке:Подписчиков: 239, Экспертов: 33
В номере:Вопросов: 5, Ответов: 8


Вопрос № 74725: Здравствуйте, подскажите, плз, как организовать доступ к файлу access 2003 , чтобы я мог редактировать объекты (формы, отчеты и т.д.) в то время как оператор вносит данные посредством этих форм. СПАСИБО!...
Вопрос № 74791: Подскажите, пожалуйста, решение проблемы. В Excel есть таблица с данными. В строках данных есть повторяющиеся текстовые поля по столбцам 2,3,5 и разные числа в 6,7,9,10,12,13,15,16. Надо объединить строки (в отдельную таблицу) так, чтобы было по одно...
Вопрос № 74826: Здравствуйте уважаемые эксперты! Очень надеюсь на вашу помощь. На форме в Access размещена гиперссылка на PDF файл. Adobe Acrobat начинает отрывать файл, но тут же закрывает. Примечательно, что на соседней машине всё работает без проблем! Мо...
Вопрос № 74873: Здравствуйте, эксперты... Вопрос достаточно прост: скажите, как используя стандартные инструменты MS Word и макросы, преобразовать текст так, чтобы: а) абзацы в преобразованном тексте соответствовали абзацам исходного текста; б) не было п...
Вопрос № 74878: Здравствуйте эксперты. У меня очередной раз вопрос, и уже третий аз прошу обьяснить, но каждый раз не правильно меня понимают. Вот моя проблемка... Приложение снизу. Вот так я сохраняю. Но моя проблема в том чтобы в таком же порядке и...

Вопрос № 74.725
Здравствуйте, подскажите, плз, как организовать доступ к файлу access 2003 , чтобы я мог редактировать объекты (формы, отчеты и т.д.) в то время как оператор вносит данные посредством этих форм. СПАСИБО!
Отправлен: 08.02.2007, 10:08
Вопрос задал: Vselsav (статус: Посетитель)
Всего ответов: 2
Мини-форум вопроса >>> (сообщений: 2)

Отвечает: AlexanderZh
Здравствуйте, Vselsav!
Использовал такой подход:
Все таблицы в отдельный файл, подключаем их как внешние в другой (пользовательской) базе. Её копию правим, и просто обновляем у пользователя целиком, когда он не вводит данные.
---------
Людей можно поделить на 10 типов: тех, кто понимает двоичную систему и тех, кто нет... © народное
Ответ отправил: AlexanderZh (статус: Студент)
Ответ отправлен: 08.02.2007, 10:43

Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Vselsav!
В Вашем случае однозначно база должна быть разделена и интерфейсную часть можно проверить с помощью:
СервисАнализБыстродействие.
Такой мастер в Access 2003 есть.
Удачи.
Евгений.
Ответ отправил: Тесленко Евгений Алексеевич (статус: 4-ый класс)
Ответ отправлен: 08.02.2007, 20:01


Вопрос № 74.791
Подскажите, пожалуйста, решение проблемы. В Excel есть таблица с данными. В строках данных есть повторяющиеся текстовые поля по столбцам 2,3,5 и разные числа в 6,7,9,10,12,13,15,16. Надо объединить строки (в отдельную таблицу) так, чтобы было по одной строке с повторяющимися данными, а по различающимся данным в строке выводилась сумма. Как это сделать с помощью VBA (получается что-то вроде стандартной функции "Итоги", но надо не добавлять строку с итогом, а писать ее на отдельном листе)? Очень срочно! Спасибо.
Отправлен: 08.02.2007, 15:00
Вопрос задал: Серовиков Е.В. (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Genyaa
Здравствуйте, Серовиков Е.В.!

Воспользуйтесь средством составления сводных таблиц.

Меню-Данные-Сводная Таблица

- этот инструмент в Экселе именно для этого типа задач, весьма гибок и функционален.
---------
Всякое решение плодит новые проблемы.
Ответ отправил: Genyaa (статус: Студент)
Ответ отправлен: 08.02.2007, 16:39


Вопрос № 74.826
Здравствуйте уважаемые эксперты!

Очень надеюсь на вашу помощь. На форме в Access размещена гиперссылка на PDF файл. Adobe Acrobat начинает отрывать файл, но тут же закрывает. Примечательно, что на соседней машине всё работает без проблем! Может, какая защита на открытие гиперссылок у меня стоит?

Заранее благодарю,
Алексей.
Отправлен: 08.02.2007, 19:00
Вопрос задал: Malex (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Malex!
Если "...на соседней машине всё работает ...", и процедура вызывает Adobe Acrobat Reader непосредственно без участия iExplorer, Вам необходимо проверить Reader, если вызов идет через iExplorer то и его настойки.
Евгений.
Ответ отправил: Тесленко Евгений Алексеевич (статус: 4-ый класс)
Ответ отправлен: 08.02.2007, 21:33


Вопрос № 74.873
Здравствуйте, эксперты...
Вопрос достаточно прост: скажите, как используя стандартные инструменты MS Word и макросы, преобразовать текст так, чтобы:
а) абзацы в преобразованном тексте соответствовали абзацам исходного текста;
б) не было пустых строк между абзацами;
в) отступ для каждого абзаца был 2 см;
г) заголовок каждого раздела стоял на отдельной строке отцентрированным, размер шрифта 22;
д) каждое десятое слово текста должно быть подчеркнуто...
Заранее благодарен...
Отправлен: 09.02.2007, 00:02
Вопрос задал: MaxMartynov (статус: Посетитель)
Всего ответов: 1
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Залетин Виталий Викторович (мь!тарь)
Здравствуйте, MaxMartynov!
Я вот не совсем понял, чего бы такого мог значить пункт а), по пункту б), насколько это понятно, это отступы до и после абзацев, а не вставленные символы абзацев, по пункту г) как-то не понял: а как можно определить, что вот эта строка есть заголовком раздела, а вот вторая - нет? А может заголовок разделен символами абзаца либо разрыва строки и, соответственно, многострочен? Тогда его надо хотябы цветом выделять и в коде уже ходить по словам и определять их цвет (фона либо шрифта) и соответственным образом форматировать. Если это так, то после нижеследующего кода Вы сами напишите такой макрос. А вообще вопросище такой: это для саморазвития требуется или у нас так начали рефераты или книги оформлять (особенно с подчеркиванием каждого 10 слова)? ;)

'=================================================
Dim s As Selection, lIter As Long

'Выравнивание абзаца целиком
ActiveDocument.Select 'Выделить весь документ
Set s = Selection

'Форматируем абзацы документа
With s.ParagraphFormat
.LeftIndent = CentimetersToPoints(0) 'Левый отступ абзаца
.RightIndent = CentimetersToPoints(0) 'Правый отступ абзаца
.SpaceBefore = 0 'Отступ перед абзацем
.SpaceBeforeAuto = False 'Истина, если должен быть автоотступ (1 строка)
.SpaceAfter = 0 'Отступ после абзаца
.SpaceAfterAuto = False 'Истина, если должен быть автоотступ (1 строка)
.LineSpacingRule = wdLineSpaceSingle 'Междустрочный интервал
.Alignment = wdAlignParagraphLeft 'Выравнивание параграфа
.FirstLineIndent = CentimetersToPoints(2)
End With

'Проходим по всем словам
With s.Words 'Каждое 10 слово
For lIter = 10 To .Count Step 10
.Item(lIter).Font.Underline = wdUnderlineSingle
Next lIter
End With

'Убираем за собой
s.Collapse
Set s = Nothing
'=================================================
---------
Учиться никогда не поздно. Особенно программированию!
Ответ отправил: Залетин Виталий Викторович (мь!тарь) (статус: Студент)
Ответ отправлен: 10.02.2007, 16:25


Вопрос № 74.878
Здравствуйте эксперты. У меня очередной раз вопрос, и уже третий аз прошу обьяснить, но каждый раз не правильно меня понимают.
Вот моя проблемка...
Приложение снизу.
Вот так я сохраняю.
Но моя проблема в том чтобы в таком же порядке и загрузить. с файла по очереди каждую строчку в свой Label.
За ранее спасибо

Приложение:

Отправлен: 09.02.2007, 01:44
Вопрос задал: Senchuk Roman Valerievich (статус: Посетитель)
Всего ответов: 3
Мини-форум вопроса >>> (сообщений: 0)

Отвечает: AlexanderZh
Здравствуйте, Senchuk Roman Valerievich!
Close F# в 5 строчке - это ошибка!
А загружать в таком же порядке:
dim Str as string
Open "Filename" for input as #F
Lineinput #F, Str
form1.label1.caption=str
Lineinput #F, Str
form1.label2.caption=str
...
...
...
Close #F
---------
Людей можно поделить на 10 типов: тех, кто понимает двоичную систему и тех, кто нет... © народное
Ответ отправил: AlexanderZh (статус: Студент)
Ответ отправлен: 09.02.2007, 02:41

Отвечает: Genyaa
Здравствуйте, Senchuk Roman Valerievich!

Если столько Labels на форме, то может стоит использовать цикл?

(см.приложение)

Думаю, идея ясна. Вероятно потребуется отладка на предмет проверки типа сохраняемого и загружаемого контрола, ибо на форме есть не только Labels.

Приложение:

---------
Всякое решение плодит новые проблемы.

Ответ отправил: Genyaa (статус: Студент)
Ответ отправлен: 09.02.2007, 08:56

Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Senchuk Roman Valerievich!
Создайте массив меток с индексами от 1 до 63 и Ваш код станет короче
Sub Command1_Click()
Dim iLin As Integer, F
F = FreeFile
Open App.Path & " empDirection1.txt" For Input As F
iLin = 1
Do Until EOF(F)
Line Input #iFile, Form1.Label1(iLin).Caption
iLin = iLin + 1
Loop
Close #iFile
End Function
Примерно так.
(остались не заполнеными несколько контролов, Вы с этим справитесь)
Евгений.
P.S.
Если три раза неправильно понимали, возможно вопрос был неверный?
Ответ отправил: Тесленко Евгений Алексеевич (статус: 4-ый класс)
Ответ отправлен: 09.02.2007, 18:54


Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!

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


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.


© 2001-2007, Портал RusFAQ.ru, Россия, Москва.
Идея, дизайн, программирование: Калашников О.А.
Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31
ООО "Мастер-Эксперт Про", Москва, 2007
Авторские права | Реклама на портале
Версия системы: 4.44 beta от 26.01.2007
Яндекс Rambler's Top100

В избранное