Хелп... нолики и прочая фигня. 7-значный код / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Хелп... нолики и прочая фигня. 7-значный код

8 сообщений из 8, страница 1 из 1

Хелп... нолики и прочая фигня. 7-значный код

#32617626

Access_Abuser

Участник

Откуда: KIEV(No offence, nothing personal I just have to abuse u)

Сообщения: 72

Рейтинг: 0 / 0

Есть колонка с цифрами скажем :
1
12
1234
12345
1234567

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

0000001
0000012
0001234
1234500
1234567

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

Не шарю как...

...

Рейтинг:

0 / 0

22.07.2004, 18:02:14

| Ответить | Цитировать | Написать

Хелп... нолики и прочая фигня. 7-значный код

#32617636

тиа

Гость

Format(блабла;"0000000")

...

Рейтинг:

0 / 0

22.07.2004, 18:08:02

| Ответить | Цитировать | Написать

Хелп... нолики и прочая фигня. 7-значный код

#32617637

roman10

Участник

Сообщения: 352

Рейтинг: 0 / 0

Функция

Код: 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:08:20

| Ответить | Цитировать | Написать

Хелп... нолики и прочая фигня. 7-значный код

#32617701

Access_Abuser

Участник

Откуда: KIEV(No offence, nothing personal I just have to abuse u)

Сообщения: 72

Рейтинг: 0 / 0

Format не пашет...
А по-поводу проги.
Ну полный чайник я не знаю куда ее засунуть :)
Всякие пошлости не предлагать =)
Как я понимаю это ВБА модуль ?
Вообщем плз напишите кто-нибудь что с этим сделать.
Может хоть в ВБА разберусь.

...

Рейтинг:

0 / 0

22.07.2004, 18:44:02

| Ответить | Цитировать | Написать

Хелп... нолики и прочая фигня. 7-значный код

#32617763

Shuhard

Участник

Сообщения: 4 676

Рейтинг: 0 / 0

формат работает вот текст теста и выдача 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

22.07.2004, 19:50:22

| Ответить | Цитировать | Написать

Хелп... нолики и прочая фигня. 7-значный код

#32618158

lobodava

Участник

Откуда: Москва

Сообщения: 377

Рейтинг: 0 / 0

Как один из вариантов:

Код: plaintext

Right$("0000000" & MyValue,  7 )

...

Рейтинг:

0 / 0

23.07.2004, 10:39:31

| Ответить | Цитировать | Написать

Хелп... нолики и прочая фигня. 7-значный код

#32618264

Гость

lobodavaКак один из вариантов:

Код: plaintext

Right$("0000000" & MyValue,  7 )

000-1,2
00001,2

...

Рейтинг:

0 / 0

23.07.2004, 11:08:49

| Ответить | Цитировать | Написать

Хелп... нолики и прочая фигня. 7-значный код

#32618329

Yanis

Участник

Откуда: Казахстан, Актау

Сообщения: 4 193

Рейтинг: 0 / 0

г lobodavaКак один из вариантов:

Код: plaintext

Right$("0000000" & MyValue,  7 )

000-1,2
00001,2Если речь идет о целых положительных кодах, то эта функция вполне...

...

Рейтинг:

0 / 0

23.07.2004, 11:31:51

| Ответить | Цитировать | Написать

8 сообщений из 8, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Хелп... нолики и прочая фигня. 7-значный код

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&fpage=1590&tid=1672996]:	0ms
get settings:	4ms
get forum list:	9ms
check forum access:	2ms
check topic access:	2ms
track hit:	21ms
get topic data:	6ms
get forum data:	2ms
get page messages:	24ms
get tp. blocked users:	1ms
others:	184ms

total:	255ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы