Внесение № телефона

@Юра96 · Регистрация: 06.05.2014

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

Хочу внести № телефона в таблицу. Создал поле Nomer N(10) Mask:999-999-99-99
В форме имеется текст Text2 . InputMask:999-999-99-99
Вношу через CommandButton : INSERT INTO Teln (nomer)(Val(cf3)) 923-923-89-23
Вносится в таблицу только три знака - - 9-23

Почему? Что не так? Как исправить, чтобы вносился весь номер?
Помогите, пожалуйста!

Юра.

@Grossmeister · 02.10.2014, 11:58

Сообщение от Юра96

Создал поле Nomer N(10)

Телефонный номер - это не число, а текст

@Юра96 · 02.10.2014, 12:06 **[ТС]**

А как тогда проверять уникальность номера?

@Grossmeister · 02.10.2014, 12:35

Сообщение от Юра96

А как тогда проверять уникальность номера?

А почему нельзя проверять уникальность строковых данных?

На будущее - в числовое поле обычно пишут те данные, с которыми надо проводить арифметические операции. Если нет - то все в символьные поля. Например ИНН. Вроде как одни цифирьки, а в числовом поле нафиг не нужно.

@Юра96 · 02.10.2014, 12:59 **[ТС]**

А всё-таки, подскажите, как написать код проверки № телефона, если он - текст?

@sks1904 · 02.10.2014, 14:57

разрешать писать с клавиатуры только цифры, когда пользователь заполняет это поле, используйте метод KeyPress этого элемента

@Юра96 · 03.10.2014, 07:26 **[ТС]**

А что именно написать в KeyPress?

Добавлено через 3 часа 41 минуту
Пишу cf3=thisform.Text2.Value
WAIT WINDOW VAL(cf3)
Показываются только первые три символа, а остальные нет.
Как сравнить номера?

@sks1904 · 03.10.2014, 12:43

проверяйте вводимый символ с набором "0123456789", если он есть, то пишите его в нужное поле, а если нет - то нет

@tmpnik1 · 06.10.2014, 17:18

Что=то типа так
INSERT INTO Teln (nomer)(Val(STRTRAN(cf3,"-",""))) 923-923-89-23... :-)

@sks1904 · 07.10.2014, 07:23

нет, проверяйте прямо в контроле, например в text

Код

IF NOT (nKeyCode >=48 AND nKeyCode <= 57)
	thisform.text1.Value = SUBSTR(thisform.text1.Value, 1, LEN(thisform.text1.Value) - 1)
ENDIF

@sergeynizamov · 15.10.2014, 13:52

sks1904 так тогда вопрос так можно же сделать так через поиск по базе по locate for и прогнать по всей базе
и проверить как переменную,
например так:
tel=alltrim(thisform.text1.text)
select baza
locate for alltrim(tel)==alltrim(pole)
if found()
endif
как то так...

@Юра96 0 / 0 / 0 Регистрация: 06.05.2014 Сообщений: 19
		1
	Внесение № телефона 02.10.2014, 11:11. Показов 1255. Ответов 10 Метки нет (Все метки) Хочу внести № телефона в таблицу. Создал поле Nomer N(10) Mask:999-999-99-99 В форме имеется текст Text2 . InputMask:999-999-99-99 Вношу через CommandButton : INSERT INTO Teln (nomer)(Val(cf3)) 923-923-89-23 Вносится в таблицу только три знака - - 9-23 Почему? Что не так? Как исправить, чтобы вносился весь номер? Помогите, пожалуйста! Юра. 0

@Grossmeister Модератор 4217 / 3058 / 583 Регистрация: 21.01.2011 Сообщений: 13,205
	02.10.2014, 11:58	2
	Сообщение от Юра96 Создал поле Nomer N(10) Телефонный номер - это не число, а текст 0

@Юра96 0 / 0 / 0 Регистрация: 06.05.2014 Сообщений: 19
	02.10.2014, 12:06 [ТС]	3
	А как тогда проверять уникальность номера? 0

@Grossmeister Модератор 4217 / 3058 / 583 Регистрация: 21.01.2011 Сообщений: 13,205
	02.10.2014, 12:35	4
	Сообщение от Юра96 А как тогда проверять уникальность номера? А почему нельзя проверять уникальность строковых данных? На будущее - в числовое поле обычно пишут те данные, с которыми надо проводить арифметические операции. Если нет - то все в символьные поля. Например ИНН. Вроде как одни цифирьки, а в числовом поле нафиг не нужно. 0

@Юра96 0 / 0 / 0 Регистрация: 06.05.2014 Сообщений: 19
	02.10.2014, 12:59 [ТС]	5
	А всё-таки, подскажите, как написать код проверки № телефона, если он - текст? 0

@sks1904 187 / 180 / 29 Регистрация: 26.05.2011 Сообщений: 856
	02.10.2014, 14:57	6
	разрешать писать с клавиатуры только цифры, когда пользователь заполняет это поле, используйте метод KeyPress этого элемента 0

@Юра96 0 / 0 / 0 Регистрация: 06.05.2014 Сообщений: 19
	03.10.2014, 07:26 [ТС]	7
	А что именно написать в KeyPress? Добавлено через 3 часа 41 минуту Пишу cf3=thisform.Text2.Value WAIT WINDOW VAL(cf3) Показываются только первые три символа, а остальные нет. Как сравнить номера? 0

@sks1904 187 / 180 / 29 Регистрация: 26.05.2011 Сообщений: 856
	03.10.2014, 12:43	8
	проверяйте вводимый символ с набором "0123456789", если он есть, то пишите его в нужное поле, а если нет - то нет 0

@tmpnik1 32 / 27 / 8 Регистрация: 28.02.2011 Сообщений: 1,828
	06.10.2014, 17:18	9
	Что=то типа так INSERT INTO Teln (nomer)(Val(STRTRAN(cf3,"-",""))) 923-923-89-23... :-) 0

@sks1904 187 / 180 / 29 Регистрация: 26.05.2011 Сообщений: 856
	07.10.2014, 07:23	10
	нет, проверяйте прямо в контроле, например в text Код IF NOT (nKeyCode >=48 AND nKeyCode <= 57) thisform.text1.Value = SUBSTR(thisform.text1.Value, 1, LEN(thisform.text1.Value) - 1) ENDIF 0

	15.10.2014, 13:52

@sergeynizamov 18 / 18 / 5 Регистрация: 12.06.2013 Сообщений: 328
	15.10.2014, 13:52	11
	sks1904 так тогда вопрос так можно же сделать так через поиск по базе по locate for и прогнать по всей базе и проверить как переменную, например так: tel=alltrim(thisform.text1.text) select baza locate for alltrim(tel)==alltrim(pole) if found() endif как то так... 0