Подсчет количества цифр в числе

@intersk · Регистрация: 07.09.2014

Студворк — интернет-сервис помощи студентам

как посчитать количество цифр в числе?
то есть в числе 45689 - при подсчете получалось 5 цифр.
В итоге нужно сделать проверку чтобы в поле таблицы (и соответствующее ему поле в форме) можно было ввести только 13 цифр

есть такой вариант для проверки, но нужно не просто проверить, а не дать ввести не 13 цифр
или хотя бы вернуть курсор в поле

Visual Basic

Sub kolvocifr()
 
n = Forms!Данные!огрн
 
k = 0
Do Until n < 1
k = k + 1
n = Int(n / 10)
Loop
 
If k <> 13 Then MsgBox "количество цифр - " & k & " т.е. не равно 13 для ОГРН"
 
End Sub

@Волшебник 307 · 04.02.2015, 16:17

intersk, Размер поля?

Добавлено через 3 минуты
If Len(Me![Поле1].Text)=13 Then

mobile · 04.02.2015, 17:42

Проверять надо в BeforeUpdate поля.

Visual Basic

1
2
3

Private Sub Поле_BeforeUpdate(Cancel As Integer)
   If Not me.Поле.text like string(13,"#") then Cancel=True
End Sub

Пока юзер не вобъет эту чертову дюжину, черта с два ему удастся слинять с поля :-)

Добавлено через 1 час 8 минут
Впрочем, в BeforeUpdate формы надежней. Если не попадать в поле, то проверки поля не будет и оно останется пустым. А от BeforeUpdate формы не отвертишься

Visual Basic

1
2
3

Private Sub Form_BeforeUpdate(Cancel As Integer)
   If Not me.Поле like string(13,"#") then Me.Поле.Setfocus: Cancel=True 
End Sub

@intersk · 05.02.2015, 10:14 **[ТС]**

Сообщение от Волшебник 307

Len(Me![Поле1].Text)=13

Сообщение от mobile

me.Поле.text like string(13,"#")

в чем принципиальное различие конструкций Len и like string (13...)?
ведь оба варианта считают количество символов (понимаю что вариант like string позволяет задать больше критериев)

@boby104 · 05.02.2015, 10:26

Сообщение от intersk

в чем принципиальное различие конструкций Len и like string (13...)?

а палец нажать Ф1, не легче - да и пользы больше, когда сам разберешься

@intersk · 05.02.2015, 10:33 **[ТС]**

boby104, и что?
len - длина, количество символов
like string - "символы такие как".
Вопрос в другом - работают они одинаково или есть технические отличия?

Сообщение от mobile

Visual Basic

1
2
3

Private Sub Поле_BeforeUpdate(Cancel As Integer)
 If Not me.Поле.text like string(13,"#") then Cancel=True (1)
End Sub

код дает ошибку 2108 - надо сначала сохранить а потом уже установить фокус. Поэтому поставил на выход
(true пришлось заменить на 1, это правильно?)

@boby104 · 05.02.2015, 10:36

Сообщение от intersk

me.Поле.text

это (обращение к текст) возможно только когда фокус - курсор на поле

mobile · 05.02.2015, 13:31

Сообщение от intersk

в чем принципиальное различие конструкций Len и like string (13...)?

Символ "#" для Like задает любую одиночную цифру. Len считает количество символов, не обращая внимания на то, что вводится: алфавит ли, цифра или служебный символ. Поэтому применение like string(13,"#") полностью отвечает Вашему ТЗ, где требуется ввод именно 13 цифр. А не любых 13 символов.

@VinniPuh · 05.02.2015, 13:56

Сообщение от mobile

...полностью отвечает Вашему ТЗ, где требуется ввод именно 13 цифр. А не любых 13 символов...

mobile - Ни чего удивительного в этом нет. я вот лично в процессе творческого экстаза иногда по 10 раз меняю правила игры пока не приходю, по моему мнению к идеальному решению, а то что хотелось раньше обычно уже устаревшее условие, и про него часто забываешь, и тем более сообщить об этом помогающим.
Ну это нам, из малышовой группы иногда можно и простить. Без должного опыта и знаний - сами не ведаем чего хотим и творим.

Будьте благосклонны, вы же добрый и хороший

.

@intersk · 09.02.2015, 15:35 **[ТС]**

Сообщение от mobile

применение like string(13,"#") полностью отвечает Вашему ТЗ, где требуется ввод именно 13 цифр. А не любых 13 символов

вроде знак "#" в маске обозначает, не только цифры в том числе пробелы и знаки + и -...

mobile · 09.02.2015, 16:26

Набор спецсимволов маски и лайк отличаются. В маске ввод обязательной цифры - 0. А в Like решетка. Есть и другие различия.
Маска подстраивалась под Format, с которым многие спецсимволы совпадают. А Like пришел из SQL. В первых офисах акса вообще не было, он появился только в 1992 году еще вне офиса. Ворд и ексель уже были, где формат был изначально. И маска по спецсимволам была близка к форматам, ввиду некоторой логической общности. А Like, напротив тяготел с скулевскому лайку. Поэтому разница между маской и лайком не нулевая.

mobile 26784 / 14463 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	09.02.2015, 16:26	11
	Сообщение было отмечено intersk как решение Решение Набор спецсимволов маски и лайк отличаются. В маске ввод обязательной цифры - 0. А в Like решетка. Есть и другие различия. Маска подстраивалась под Format, с которым многие спецсимволы совпадают. А Like пришел из SQL. В первых офисах акса вообще не было, он появился только в 1992 году еще вне офиса. Ворд и ексель уже были, где формат был изначально. И маска по спецсимволам была близка к форматам, ввиду некоторой логической общности. А Like, напротив тяготел с скулевскому лайку. Поэтому разница между маской и лайком не нулевая. 1

@Волшебник 307 1390 / 325 / 45 Регистрация: 16.04.2013 Сообщений: 766 Записей в блоге: 2
	04.02.2015, 16:17	2
	intersk, Размер поля? Добавлено через 3 минуты If Len(Me![Поле1].Text)=13 Then 1

@intersk 114 / 4 / 0 Регистрация: 07.09.2014 Сообщений: 329
	05.02.2015, 10:14 [ТС]	4
	Сообщение от Волшебник 307 Len(Me![Поле1].Text)=13 Сообщение от mobile me.Поле.text like string(13,"#") в чем принципиальное различие конструкций Len и like string (13...)? ведь оба варианта считают количество символов (понимаю что вариант like string позволяет задать больше критериев) 0

@boby104 1266 / 448 / 129 Регистрация: 21.03.2013 Сообщений: 1,210
	05.02.2015, 10:26	5
	Сообщение от intersk в чем принципиальное различие конструкций Len и like string (13...)? а палец нажать Ф1, не легче - да и пользы больше, когда сам разберешься 0

@boby104 1266 / 448 / 129 Регистрация: 21.03.2013 Сообщений: 1,210
	05.02.2015, 10:36	7
	Сообщение от intersk me.Поле.text это (обращение к текст) возможно только когда фокус - курсор на поле 1

mobile 26784 / 14463 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	05.02.2015, 13:31	8
	Сообщение было отмечено intersk как решение Решение Сообщение от intersk в чем принципиальное различие конструкций Len и like string (13...)? Символ "#" для Like задает любую одиночную цифру. Len считает количество символов, не обращая внимания на то, что вводится: алфавит ли, цифра или служебный символ. Поэтому применение like string(13,"#") полностью отвечает Вашему ТЗ, где требуется ввод именно 13 цифр. А не любых 13 символов. 1

@VinniPuh 8767 / 5621 / 576 Регистрация: 27.03.2013 Сообщений: 19,064
	05.02.2015, 13:56	9
	Сообщение от mobile ...полностью отвечает Вашему ТЗ, где требуется ввод именно 13 цифр. А не любых 13 символов... mobile - Ни чего удивительного в этом нет. я вот лично в процессе творческого экстаза иногда по 10 раз меняю правила игры пока не приходю, по моему мнению к идеальному решению, а то что хотелось раньше обычно уже устаревшее условие, и про него часто забываешь, и тем более сообщить об этом помогающим. Ну это нам, из малышовой группы иногда можно и простить. Без должного опыта и знаний - сами не ведаем чего хотим и творим. Будьте благосклонны, вы же добрый и хороший . 1

@intersk 114 / 4 / 0 Регистрация: 07.09.2014 Сообщений: 329
	09.02.2015, 15:35 [ТС]	10
	Сообщение от mobile применение like string(13,"#") полностью отвечает Вашему ТЗ, где требуется ввод именно 13 цифр. А не любых 13 символов вроде знак "#" в маске обозначает, не только цифры в том числе пробелы и знаки + и -... 1

Опции темы

Подсчет количества цифр в числе

Решение

Решение