Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Хелп... нолики и прочая фигня. 7-значный код / 8 сообщений из 8, страница 1 из 1
22.07.2004, 18:02:14
    #32617626
Access_Abuser
Access_Abuser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хелп... нолики и прочая фигня. 7-значный код
Есть колонка с цифрами скажем :
1
12
1234
12345
1234567

какую функцию юзнуть что-бы оно стало в таком виде :

0000001
0000012
0001234
1234500
1234567

Другими словами нужно что бы был 7-значный код.

Не шарю как...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.07.2004, 18:08:02
    #32617636
тиа
тиа
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хелп... нолики и прочая фигня. 7-значный код
Format(блабла;"0000000")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.07.2004, 18:08:20
    #32617637
roman10
roman10
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хелп... нолики и прочая фигня. 7-значный код
Функция

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Function PadWithZeros(strText As String, intWidth As Integer) As String
    Dim intLength As Integer
    
    intLength = intWidth - VBA.Len(strText)
    If (intLength >  0 ) Then
        PadWithZeros = VBA.String(intLength, "0") + strText
    Else
        PadWithZeros = strText
    End If
    
End Function

Как юзать

Код: plaintext
MsgBox PadWithZeros "1",  7
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.07.2004, 18:44:02
    #32617701
Access_Abuser
Access_Abuser
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хелп... нолики и прочая фигня. 7-значный код
Format не пашет...
А по-поводу проги.
Ну полный чайник я не знаю куда ее засунуть :)
Всякие пошлости не предлагать =)
Как я понимаю это ВБА модуль ?
Вообщем плз напишите кто-нибудь что с этим сделать.
Может хоть в ВБА разберусь.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.07.2004, 19:50:22
    #32617763
Shuhard
Shuhard
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хелп... нолики и прочая фигня. 7-значный код
формат работает вот текст теста и выдача debug
в mdb одна кнопка и одно поле
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Dim MyTest( 6 ) As String
Dim Ct As Variant
MyTest( 0 ) = "1"
MyTest( 1 ) = "12"
MyTest( 2 ) = "123"
MyTest( 3 ) = "1234"
MyTest( 4 ) = "12345"
MyTest( 5 ) = "123456"
MyTest( 6 ) = "1234567"
Me![P_OUT] = vbNullString
For Each Ct In MyTest
  Debug.Print Format(Ct, "0000000")
  Me![P_OUT] = Me![P_OUT] & Format(Ct, "0000000") & vbCrLf
Next Ct
Me![P_OUT].Requery


0000001
0000012
0000123
0001234
0012345
0123456
1234567
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2004, 10:39:31
    #32618158
lobodava
lobodava
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хелп... нолики и прочая фигня. 7-значный код
Как один из вариантов:
Код: plaintext
Right$("0000000" & MyValue,  7 )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2004, 11:08:49
    #32618264
г
г
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хелп... нолики и прочая фигня. 7-значный код
lobodavaКак один из вариантов:
Код: plaintext
Right$("0000000" & MyValue,  7 )

000-1,2
00001,2
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.07.2004, 11:31:51
    #32618329
Yanis
Yanis
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Хелп... нолики и прочая фигня. 7-значный код
г lobodavaКак один из вариантов:
Код: plaintext
Right$("0000000" & MyValue,  7 )

000-1,2
00001,2Если речь идет о целых положительных кодах, то эта функция вполне...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Хелп... нолики и прочая фигня. 7-значный код / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 281ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1672996]:
 0ms
get settings:
 5ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 37ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 183ms
total:  281ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]