|
|
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Здравствуйте! Пожалуйста подскажите, почему при добавлении ( rst!Nkrs = Me!Nkrs) значения из поля на форме (маска "К95"0000000) в поле таблицы, добавляеться все кроме К95? К95 - всегда повторяется, а остальные восемь символов - любые цифры... Куда потерялась и как найти? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.05.2004, 15:09 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
HelpThe InputMask property can contain up to three sections separated by semicolons (;). First Specifies the input mask itself; for example, !(999) 999-9999. For a list of characters you can use to define the input mask, see the following table. Second Specifies whether Microsoft Access stores the literal display characters in the table when you enter data. If you use 0 for this section, all literal display characters (for example, the parentheses in a phone number input mask) are stored with the value; if you enter 1 or leave this section blank, only characters typed into the control are stored. Third Specifies the character that Microsoft Access displays for the space where you should type a character in the input mask. For this section, you can use any character; to display an empty string, use a space enclosed in quotation marks (" "). ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.05.2004, 15:17 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
То есть после маски надо пририсовать: ;0 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.05.2004, 15:18 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Ф1Значение свойства Маска ввода (InputMask) может содержать до трех разделов, разделяемых точкой с запятой (;). Раздел Описание Первый Представляет саму маску ввода (например, !(999) 000-0000). Перечень символов, используемых для определения масок ввода приводится ниже в таблице. Второй Определяет режим занесения в таблицу строковых констант, добавляемых к символам, вводящимся пользователем. Введенный в данный компонент символ 0 указывает, что постоянные символы (например, скобки и дефисы в маске ввода телефонных номеров) сохраняются вместе с введенными пользователем символами; значение 1 или пустое значение данного компонента указывает, что сохраняются только символы, введенные пользователем. Третий Определяет символ, используемый для изображения пустых позиций в маске ввода, в которые помещаются вводящиеся пользователем символы. В этом компоненте можно указать любой символ ANSI; пробел необходимо заключить в кавычки (" "). ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.05.2004, 15:21 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Новый тип файла - mdя. :^) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.05.2004, 15:29 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Спасибо! "К95"0000000;0 Проверка - в форме фсе чисто и красиво, а в таблице...ну нету К95... ??? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.05.2004, 15:36 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Сейчас проверил. Вроде получается так: если ControlSource пустой (контрол не привязан), то это действительно не работает. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.05.2004, 15:41 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Можно убрать ;0 от греха подальше, а в программе сделать: rst!Nkrs = "К95" & Me!Nkrs ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.05.2004, 15:42 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
аХа, так мона.. тока вот у меня есть еще одно поле ввода номеров бланков, их 4 вида "555"0000000000 L0000000000 "421"0000000000 "195"0000000000 пользователи плачут, не хотять цифирьки одни и те ж вводить, я думала с помощью маски ввода это дело облегчить... обыдно, да?! )))))) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.05.2004, 15:51 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Так пусть и не вводят. На экране маска, а в программе как я предложил. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.05.2004, 15:56 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Если контрол свяанный - то все работает как надо Если контрол свободный - то все равно сохранять данные придется программно. Вот программно туда префикс и дописывать. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.05.2004, 15:58 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
у меня первые цифры номеров бланков зависят от выбранной авиакомпании то есть при вводе в таблицу нужно будет писать условие если это авиакомпания Аэрофлот, то rst!Nblank = "555" & Me!Nblank, иначе если это авиакомпания ... то ... rst!Nblank = "195" & Me!Nblank иначе... так, да? у меня пользователи если не видят привычного набора цифирек - невриничают))) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.05.2004, 16:02 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Есть гениальное решение! rst!Nkrs = format(Me!Nkrs, Me!Nkrs.inputmask) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.05.2004, 16:06 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Имхо вообще все неправильно Если префикс однозначно определяется чем-то там - то его и хранить не надо вместе с остальным номером. Т.е. префикс хранить конечно надо, но в отдельной табличке (из четырех записей) Маску ввода на лету изменять (на событии Current) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.05.2004, 16:12 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
))) Получилось ))) Спасибо! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 11.05.2004, 16:17 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Здравствуйте все! Помогите пожалуйста! В продолжение темы... Есть поле в которое вводится маршрут, возможны варианты 1) КРР-МОВ 2) КРР-МОВ-КРР 3) КРР-МОВ-СПТ-МОВ-КРР Маска в поле - >LLL\-LLL\-???\-???\-???;0'_ В итоге в первом случае возвращается КРР-МОВ--- Исходя из вышеприведенной справки есть вариант Маска в поле - >LLL\-LLL\-???\-???\-???;1'_ и тогда будет КРРМОВ мож еще что то мона сотворить? и еще плиз, подскажите функцию для поиска и удаления заданного сивола, или наоборот для втавки во втором случае. Спасибо! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 13:43 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Функция называется Replace. А вот с минусами, из которых нужна только часть, - это таки задачка. Я бы выбрал хранить в виде КРРМОВ, а при выводе (в отчетах) дорисовывать минусы при помощи функции, которая займет строчек пять. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 13:53 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Владимир Саныч, в случае использования Replace, на что менять "-", типа чтоб удалить? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 14:02 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
function XXX(s as string)as string dim i as integer,s0 as string s0="" for i=1 to len(s) step 3 s0=s0 & mid(s,i,3) & "-" next XXX=left(s0,len(s0)-1) end function ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 14:03 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Чтобы удалить - на стринг нулевой длины, истессно. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 14:04 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Владимир Саныч, спасибо большое) скажите как заставить Replace проверять с последнего символа? Ввожу в поле маршрут КРР-МОВ--- Mr = Replace(Me!Mr, "-", "", 8, 3, 1), Me!Mr - КРР-МОВ--- (проверила), а Mr возвращает - "" ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 14:42 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Mr = Replace(Me!Mr, "---", "", 8), все равно возвращает "" при КРР-МОВ--- ??? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 14:53 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Milaкак заставить Replace проверять с последнего символа? По-моему, так нельзя. А зачем? MilaВвожу в поле маршрут КРР-МОВ--- Mr = Replace(Me!Mr, "-", "", 8, 3, 1), Me!Mr - КРР-МОВ--- (проверила), а Mr возвращает - "" Mr = Left(Me!Mr, 7) & Replace(Me!Mr, "-", "", 8) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 14:57 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Упс, так он возвращает только то что заменил? Mr = Replace(Me!Mr, "-", "u") - так тоже возвращает "" А с последнего символа - хотела поставить максимум 3 замены, но не вариант КРР-МОВ--- катит КРР-МОВ-КРР-- не катит ну можно было бы сделать 3 Replace с последнего символа "---","--","-" изваращение конечно, но... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 15:29 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
MilaУпс, так он возвращает только то что заменил? Mr = Replace(Me!Mr, "-", "u") - так тоже возвращает "" Вроде он должен возвращать начиная с того символа, с которого указано заменять. Примерно как Mid. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 15:34 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
'текстовое сравнение строк, начиная с позиции 3, возвращается "YXXYXXY" Dim Mr As String Mr = Replace("XXpXXPXXp", "p", "Y", 3, -1, 1) переменная моя и возвращает она "" вот и читай справку после этого, грустно шутю ((( может Mr не стринг должна быть?!!! товариши!!! запустите пример у себя скажите что все получилось мне хоть спокойнее станет!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 15:51 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Сработало: Код: plaintext 1. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 15:54 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Могу предположить, что в этих двух строчках авторDim Mr As String Mr = Replace("XXpXXPXXp", "p", "Y", 3, -1, 1) одно из Mr сделано с русским М, а Option Explicit в модуле нету... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 15:56 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
Э-э-э! Моя помнить эту моя болезнь (невнимательность называется), я уже удаляла и заново писала и меняла на другую переменную... ?Replace("XXpXXPXXp", "p", "Y", 3, -1, 1) - У меня тоже получается, тока воспользоваться я этим не могу(((( ладно, будем искать)))) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 16:00 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
А что, Option Explicit действительно нет? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 16:01 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
А-а-а а кто это Option Explicit ? он должен быть? где смотреть? где взять если нет? а в примере справки Dim MyString ??? у меня так не получается, Empty пишет! 'бинарное сравнение строк, возвращается "XXYXXPXXY" MyString = Replace("XXpXXPXXp", "p", "Y") 'текстовое сравнение строк, начиная с позиции 3, возвращается "YXXYXXY" MyString = Replace("XXpXXPXXp", "p", "Y", 3, -1, 1) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 16:06 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
MilaА-а-а а кто это Option Explicit ? он должен быть? где смотреть? где взять если нет? Самая первая строка в модуле. Там могут быть несколько строк с Option, это одна из них. Milaа в примере справки Dim MyString ??? у меня так не получается, Empty пишет! Если описывать без As, то это все равно что As Variant. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 16:18 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
s0 = "" For i = 1 To Len(Me!mr) Step 3 s0 = s0 & Mid(Me!mr, i, 3) & "-" Next MyString = Left(s0, (Len(s0) - 1)) - возвращает "" Left(s0, (Len(s0) - 1)) возвращает МОВ-КРР-МОВ MyString , s0 - стринги что это может быть? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 17:08 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
MilaMyString = Left(s0, (Len(s0) - 1)) - возвращает "" Откуда это следует? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 17:10 |
|
||
|
Маски ввода....
|
|||
|---|---|---|---|
|
#18+
сделала точку останова на строке r = "ку-ку" подвела мышку к r решила что увижу "ку-ку", но он не ку-ку) а если добавит строку r = r & "-ку" и поставить точку на ней то ку-ку r = "ку-ку" r = r & "-ку" говорят же по выходным нужно отдыхать! спасибо Владимир Саныч огромное!!! ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.06.2004, 17:20 |
|
||
|
|

start [/forum/topic.php?all=1&fid=45&tid=1673887]: |
0ms |
get settings: |
7ms |
get forum list: |
11ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
171ms |
get topic data: |
9ms |
get forum data: |
3ms |
get page messages: |
61ms |
get tp. blocked users: |
1ms |
| others: | 204ms |
| total: | 471ms |

| 0 / 0 |
