Форум программистов, компьютерный форум, киберфорум
Microsoft Access
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
MS Access Как подставить значение переменной var1 чтобы читалось его значение https://www.cyberforum.ru/ ms-access/ thread1235463.html
Подскажите, не могу понять как подставить значение переменной var1 чтобы читалось его значение : dim T1$ Dim var1 As Integer Dim var2 As Integer Dim var3 As Integer var1 = Nz(Trace_cl1.Value, 11) var3 = Nz(Trace_cl2.Value, 13) If (Trace_cl1.Value) = 30 Then T1 = " Like '*'"
MS Access Нумерация в таблице вместо счетчика. Нужен ли запрос на добавление
Доброго времени суток. Почему-то читая, копая, изучая, пришел к выводу, что использовать тип "Счетчик" не очень-то и удобно, а легче написать на событие в форме "До обновления" вот такую вот бяку: Private Sub Form_BeforeUpdate(Cancel As Integer) Me.Поле1 = Nz(DMax("Поле1", "Таблица1"), 0) + 1 End Sub И конечно же столкнулся с вопросом: А как быть при удалении какой-либо записи... Ведь поле...
MS Access В БД создать необходимую структуру таблиц, которая соответствовала иерархии классификатора КОАТУУ https://www.cyberforum.ru/ ms-access/ thread1235035.html
Доброго времени суток уважаемые форумчане. Столкнулся с такой проблемой: есть классификатор административных единиц Украины, который необходимо добавить в базу данных. То есть в БД создать необходимую структуру таблиц, которая соответствовала иерархии классификатора. Идентификационный код в классификаторе состоит из 10 цифр, первые 2 разряда соответствуют области и городам с особым значением,...
MS Access Условное форматирование по дню недели https://www.cyberforum.ru/ ms-access/ thread1234943.html
Снова желаю ВСЕМ Доброго дня!!! Подскажите по вопрому условного форматирования. В форме - Даты есть подчиненная форма - фпДниМесяца , где отображаются дни недели. типа - пн, вт, ср, и т. п. Попробовал чтобы день = вс - Воскресение отображался в красном фоне, типа выходной, не получается, предполагаю, что это из за того, что оно как бы вычисляется по отношению к первому дню месяца. А как, где...
Добавить Следующий Месяц к Последнему в поле — Дата MS Access
Всем доброго дня!!! 2 дня пытался создать процедуру, что бы при нажатии кнопки - Добавить Следующий Месяц к Последнему в поле - Дата (1-й День Месяца) добавлялась дата равная 1-му дню следующего месяца по сравнению с последним имеющимся. Ни чего не получается, всю голову изломал. :scratch: :black_eye.: Может в значении по умолчанию чего просто прописать? Ума не хватает. Подскажите, как это...
MS Access Запрос с датой и ошибка "Несоответствие типов данных выражении условия отбора" Нужно сделать вывод определенных данных за отрезок времени, написал вот так: SELECT kategory.категория, postavschik.название, detal.Описание, Zakazi.стоимость, Zakazi., Zakazi.количество FROM detal INNER JOIN ((kategory INNER JOIN postavschik ON kategory. = postavschik.) INNER JOIN Zakazi ON postavschik. = Zakazi.) ON detal. = Zakazi. WHERE (((Zakazi.количество)>20)) and (Zakazi. BETWEEN... https://www.cyberforum.ru/ ms-access/ thread1234630.html
MS Access Данные из БД записать в таблицу word с возможностью добавления новых строк https://www.cyberforum.ru/ ms-access/ thread1234357.html
Помогите новичку! Есть запрос "ЗАПРОС" - несколько записей, 7 столбцов есть таблица в шаблоне word - шапка с заголовками и одна пустая строчка, 7 столбцов в первой ячейке пустой строки таблицы вставил закладку "ЗАКЛАДКА" Есть кнопка "ПУСК" в форме "ФОРМА"
MS Access Поиск в разных полях таблицы (запроса) по одному полю формы
Доброго времени суток! Есть таблица Работы в которой поля: Место, Тема и Название. Нужно выполнить поиск по слову/словосочетанию, вписанному в одно поле формы, и найти совпадение в любой из этих табличных полей. Например, Париж может быть местом, или темой, или названием работы. При вводе в поле формы слова Париж, должна происходить фильтрация записей подчиненной формы, источником данных...
MS Access Можно в Access открыть отчет на определенной странице? https://www.cyberforum.ru/ ms-access/ thread1234279.html
Ситуация такая: есть форма ввода данных, на ее основе в отчетах создала бланк квитанции (можно бы было создать его в Ворде, но не знаю, как потом вывести в него данные). В отчете тоже получилось неплохо, но не пойму как сделать так, чтобы он открывался на определенной записи. Ввожу новые данные в форму и надо распечатать квитанцию, а на печать идут все квитанции из отчета. Можно конечно в режиме...
MS Access Как сохранить настройки(Сервис/Параметры/Правка и поиск/Подтверждение) в разделенной БД(клиент-сервер) Доброго времени суток! Пользователи БД высказали пожелание убрать всплывающие окна "Запрос на обновление приведет к изменению данных таблицы","Будет обновлено .... число записей" и т.п. Я поменял в клиенте соответствующие настройки в (Сервис/Параметры/Правка и поиск/Подтверждение) Аксесс 2003 .Отправил клиент на сервер с которого пользователи его копируют на свои рабочие места( БД находится... https://www.cyberforum.ru/ ms-access/ thread1233984.html
Как создать свое меню в Access 2013? MS Access
Есть программа написана в access 2003 все открывается и работает и меню нормальное, а вот когда открываю в access 2013, там меню по тупому открывается (во вкладке надстр
Эксперт MS Access
26806 / 14485 / 3192
Регистрация: 28.04.2012
Сообщений: 15,782
13.08.2014, 14:43 0

Подсчет знаков в файле word - MS Access - Ответ 6514044

13.08.2014, 14:43. Показов 1983. Ответов 23
Метки (Все метки)

Ответ

Исправьте строку n=n + Len(r.Text) на
Visual Basic
1
n = n + Len(r.Range.Text)
Добавлено через 4 часа 19 минут
Поправки к поправкам :-)
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim MD, n, d as String               'Требуется указать тот же тип, что и у параметра функции
Dim app as Object, doc As Object, r As Object
Set MD = Application.FileDialog(msoFileDialogFolderPicker)  
MD.AllowMultiSelect = False 
MD.Title = "Выбор папки" 
MD.Show
If MD.SelectedItems.Count > 0 Then 
XFileDial = MD.SelectedItems(1)
d = Dir(XFileDial & "\*.doc*") 
Do Until d = ""       
' n = n + nsimbol(XFileDial & "\" & d)  'надо передавать с путем
 set doc=GetObject(XFileDial & "\" & d)
 set app = doc.Parent
 For Each r In doc.Revisions
    n=n + Len(r.Range.Text)
 Next 
 app.Quit False
 d = Dir()          
Loop
Me.Поле260 = n
End If
Set MD = Nothing


Вернуться к обсуждению:
Подсчет знаков в файле word MS Access
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.08.2014, 14:43
Готовые ответы и решения:

Подсчет символов в режиме правки в файле Word
Написал вот такой код в аксе для подсчета количества символов в режиме правки в указанном документе...

Подсчет количества знаков в документе Word
Стоит задача: предоставить постраничную статистику знаков(без пробелов) и знаков(с пробелами) для...

Подсчет знаков
Доброго времени суток! Завтра последний день сдачи долгов, и все было хорошо, пока я только что не...

Подсчет знаков
Написать программу подсчета знаков "+" во введеной строчке пока не встретится символ "."

23
13.08.2014, 14:43
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.08.2014, 14:43
Помогаю со студенческими работами здесь

Подсчет знаков припинания
Решение нужно без регулярок и патерных конструкция... Простая лабороторная работа в универе, а я...

Подсчет знаков в программе
Помогите подсчитать кол-во удаленных знаков препинания в программе, спасибо. Добавлено через 2...

Подсчет уникальных знаков в строке
Здравствуйте всем! Нужно подсчитать количество уникальных знаков в строке, то есть, к примеру есть...

Подсчет одинаковых знаков в тексте
Добрый день Писал программу которая должна подсчитывать кол-во одинаковых знаков в тексте, но к...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru