Формат для поля с типом данных счетчик

@kinoreliz · Регистрация: 05.02.2017

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

Приветствую всех.
Интересует ответ на вопрос касаемого поля с типом данных счетчик.
В новой таблице автоосчет по данному полю осуществляется естественно с 1,2,3,4.
Можно ли предусмотреть, чтобы значения выводились в следующем формате: 00001, 00002 ...... 00010 ..... 00100 и т.д.

@Eugene-LS · 18.06.2020, 21:17

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

Можно ли предусмотреть, чтобы значения выводились в следующем формате: 00001, 00002 ...... 00010 ..... 00100 и т.д.

Да , можно.

Visual Basic
1
Format([Поле Счётчика];"00000")

mobile · 18.06.2020, 21:19

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

Можно ли предусмотреть, чтобы значения выводились в следующем формате: 00001, 00002 ...... 00010 ..... 00100 и т.д.

Можно. В конструкторе таблиц встаньте курсором на поле счетчика и в его свойствах задайте формат поля 00000. Будет выводиться 00001, 00002 ...... 00010 ..... 00100 и т.д

@kinoreliz · 18.06.2020, 23:02 **[ТС]**

Eugene-LS, mobile - спасибо огромное, получилось.
Хотелось бы еще ряд вопросов задать по моей базе.
В форме товар у меня есть кнопка рис.1 которая для определенного Кода товара выводить отчет о штрих-коде (отчет создан по запросу). При нажатии выводится стандартное окно Access для ввода кода товара рис.2.
Хочу немного разнообразить чтобы не стандартное окно выводилось для ввода, а которое я сам создам как на примере рис.3. Понимаю что нужно добавить поле и подвязать его к таблице или запросу. Как это осуществить не пойму

@kinoreliz · 18.06.2020, 23:05 **[ТС]**

И также это что касается отчетов, относительно вывода перечня поступивших товаров за период (Beetwen) - чтобы не стандартные окна для ввода дат выводились, а на основании собственной созданной формы!

@kinoreliz · 19.06.2020, 00:24 **[ТС]**

И еще у меня возникает ошибка в форме ТЕСТ при выборе производителя из поля со списком для сортировки данных.
Не могли бы глянуть и посказать

@matva · 19.06.2020, 00:41

kinoreliz, А так: =Sum([Количество])

@kinoreliz · 19.06.2020, 01:19 **[ТС]**

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

А так: =Sum([Количество])

Спасибо тут я разобрался.
У меня проблема с процедурой обработки:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Список26_Click()
Dim a, b
a = " SELECT Товар.Код товара, Товар.Наименование, Товар.Тип товара, Товар.Серийный номер, Товар.Производитель, Товар.Дата поступления, Товар.Количество, Товар.Сумма, Производитель (справочник).Наименование FROM Производитель (справочник) INNER JOIN Товар ON Производитель (справочник).Код производителя = Товар.Производитель WHERE 1=1 AND " & " " & SelToStr(Me.Список26, 0)
b = Mid(a, 1, Len(a) - 3)
If Me.Список26.ItemsSelected.Count > 0 Then
Me.Список2.RowSource = "" & b & ""
Me.Список2.Requery
Else
Me.Список2.RowSource = " SELECT Товар.Код товара, Товар.Наименование, Товар.Тип товара, Товар.Серийный номер, Товар.Производитель, Товар.Дата поступления, Товар.Количество, Товар.Сумма, Производитель (справочник).Наименование FROM Производитель (справочник) INNER JOIN Товар ON Производитель (справочник).Код производителя = Товар.Производитель"
Me.Список2.Requery
End If
End Sub

@Eugene-LS · 19.06.2020, 04:51

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

У меня проблема с процедурой обработки:

Лучше использовать событие После Обновления (AfterUpdate)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub ПолеСоСписком14_AfterUpdate()
Dim s$
'Источник записей по умолчанию:
    s = "SELECT [Код товара], Товар.Наименование, [Тип товара], [Серийный номер], Производитель, " & _
        "[Дата поступления] , Количество, Сумма, [Производитель (справочник)].Наименование " & _
        "FROM [Производитель (справочник)] " & _
        "INNER JOIN Товар " & _
        "ON [Производитель (справочник)].[Код производителя] = Товар.Производитель"
    
    If Me!ПолеСоСписком14.ListIndex > -1 Then
        ' + условие отбора
        s = s & " WHERE Товар.Производитель = " & Me!ПолеСоСписком14
    End If
    Me!Список2.RowSource = s
End Sub
 
Private Sub ПолеСоСписком14_Click()
'Dim a, b
'a = " SELECT Товар.Код товара, Товар.Наименование, Товар.Тип товара, Товар.Серийный номер, Товар.Производитель, Товар.Дата поступления, Товар.Количество, Товар.Сумма, Производитель (справочник).Наименование FROM Производитель (справочник) INNER JOIN Товар ON Производитель (справочник).Код производителя = Товар.Производитель WHERE 1=1 AND " & " " & SelToStr(Me.ПолеСоСписком14, 0)
'b = Mid(a, 1, Len(a) - 3)
'If Me.ПолеСоСписком14.ItemsSelected.Count > 0 Then
'Me.Список2.RowSource = "" & b & ""
'Me.Список2.Requery
'Else
'Me.Список2.RowSource = " SELECT Товар.Код товара, Товар.Наименование, Товар.Тип товара, Товар.Серийный номер, Товар.Производитель, Товар.Дата поступления, Товар.Количество, Товар.Сумма, Производитель (справочник).Наименование FROM Производитель (справочник) INNER JOIN Товар ON Производитель (справочник).Код производителя = Товар.Производитель"
'Me.Список2.Requery
'End If
End Sub

@kinoreliz · 19.06.2020, 11:03 **[ТС]**

Сообщение от Eugene-LS

Лучше использовать событие После Обновления (AfterUpdate)

Спасибо огромное. Но сам себе нагадил. Немного взял подкорректировал название столбцов в таблицах в следствии исправил и в процедуре обработке, как результат перестало срабатывать. Вреда как все исправил и ошибка идет

@kinoreliz · 19.06.2020, 11:30 **[ТС]**

Этот вопрос снимается. Нашел ошибку.

@kinoreliz · 19.06.2020, 13:06 **[ТС]**

Сообщение от Eugene-LS

Лучше использовать событие После Обновления (AfterUpdate)

Eugene-LS, сразу не задал вопрос, если фильтрация предусматривает выбор по двух критериям: Производитель и тип товара. Как в данном случае построить код?

@kinoreliz · 19.06.2020, 13:16 **[ТС]**

И при выборе фильтра в полях Общая сумма, и Общее количество - ввелся подсчет согласно выбранного фильтра наподобие "Промежуточные итоги" в Excel

@Eugene-LS · 19.06.2020, 14:03

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

ввелся подсчет согласно выбранного фильтра наподобие "Промежуточные итоги" в Excel

что такое "Промежуточные итоги" в Excel я не знаю пока, вот так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Option Compare Database
Option Explicit
 
Private Sub ПолеСоСписком14_AfterUpdate(): GoodsListUPD: End Sub
Private Sub ПолеСоСписком28_AfterUpdate(): GoodsListUPD: End Sub
 
Private Sub GoodsListUPD()
Dim s$, sWhere$
 
'Источник записей по умолчанию:
    s = "SELECT [Производитель (справочник)].Производитель, Товар.[Код товара], Товар.[Наименование товара], Товар.[Тип товара], Товар.[Серийный номер], " & _
        "Товар.[Дата поступления], Товар.Количество, Товар.Сумма " & _
        "FROM [Производитель (справочник)] " & _
        "INNER JOIN Товар " & _
        "ON [Производитель (справочник)].[Код производителя] = Товар.Производитель"
            
    If Me!ПолеСоСписком14.ListIndex > -1 Then
        sWhere = sWhere & " AND Товар.Производитель = " & Me!ПолеСоСписком14
    End If
    
    If Me!ПолеСоСписком28.ListIndex > -1 Then
        sWhere = sWhere & " AND  Товар.Тип товара = " & Me!ПолеСоСписком28
    End If
    
    If Len(sWhere) > 6 Then
        sWhere = Mid(sWhere, 6)
        s = s & " WHERE " & sWhere
    End If
    
    Me!Список2.RowSource = s
 
    Me!Поле20.ControlSource = "=DSum(""Количество"",""Товар"",""" & sWhere & """)"
    Me!Поле22.ControlSource = "=DSum(""Сумма"", ""Товар"", """ & sWhere & """)"
 
End Sub

@kinoreliz · 19.06.2020, 15:49 **[ТС]**

Сообщение от Eugene-LS

что такое "Промежуточные итоги" в Excel я не знаю пока, вот так:

Не срабатывает фильтр по второму критерию пустые строки и все. И тип товара как не кручу выводиться числовые значения - а не как должно быть: Монитор, клавиатура и т.д.
А подсчет ведется то что я хотел. Огромное спасибо

@kinoreliz · 19.06.2020, 15:50 **[ТС]**

То что получается у меня. Вернее не получается

@Eugene-LS · 19.06.2020, 20:12

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

То что получается у меня. Вернее не получается

Подправил пару символов:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub GoodsListUPD()
Dim s$, sWhere$
 
'Источник записей по умолчанию:
    s = "SELECT [Код товара], [Наименование товара], [Производитель (справочник)].Производитель, " & _
        "[Тип товара (справочник)].[Тип товара], Товар.[Серийный номер], Товар.[Дата поступления], " & _
        "Товар.Сумма, Товар.Количество " & _
        "FROM [Производитель (справочник)] INNER JOIN ([Тип товара (справочник)] " & _
        "INNER JOIN Товар ON [Тип товара (справочник)].[Код типа] = Товар.[Тип товара]) " & _
        "ON [Производитель (справочник)].[Код производителя] = Товар.Производитель " & _
        "WHERE Товар.[Дата списания] Is Null"
    
    If Me!ПолеСоСписком14.ListIndex > -1 Then
        sWhere = sWhere & " AND Товар.Производитель = " & Me!ПолеСоСписком14
    End If
    
    If Me!ПолеСоСписком28.ListIndex > -1 Then
        sWhere = sWhere & " AND  Товар.[Тип товара] = " & Me!ПолеСоСписком28
    End If
    
    s = s & sWhere ' + Доп условия отбора
 
    Me!Список2.RowSource = s
    
    sWhere = "Товар.[Дата списания] Is Null" & sWhere
    Me!Поле20.ControlSource = "=Nz(DSum(""Количество"",""Товар"",""" & sWhere & """),0)"
    Me!Поле22.ControlSource = "=Nz(DSum(""Сумма"", ""Товар"", """ & sWhere & """),0)"
 
End Sub

@Eugene-LS · 19.06.2020, 20:24

kinoreliz, и действительно!
Зачем эти "Ленточные формы" - Непонятно!
Зафигачил много-столбцовый ListBox - И готово!
Красота ...

@kinoreliz · 19.06.2020, 20:40 **[ТС]**

Сообщение от Eugene-LS

Подправил пару символов:

Спасибо огромное за разъяснение

Добавлено через 49 секунд

Сообщение от Eugene-LS

kinoreliz, и действительно!
Зачем эти "Ленточные формы" - Непонятно!
Зафигачил много-столбцовый ListBox - И готово!
Красота ...

Я посчитал так намного удобнее и понятнее

Добавлено через 1 минуту

Сообщение от Eugene-LS

Зачем эти "Ленточные формы" - Непонятно

А не разъясните как мне уйти со стандартного окна при применении Beetwen в запросе на свое форму для ввода периода дат?
Вопрос перенесен сюда https://www.cyberforum.ru/post14664224.html

@Eugene-LS · 19.06.2020, 21:46

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

Я посчитал так намного удобнее и понятнее

Ну это "дело хозяйское".

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

А не разъясните как мне уйти со стандартного окна при применении Beetwen в запросе на свое форму для ввода периода дат?

Сначала открывать форму с параметрами, а потом в запросе брать параметры из открытой формы.
Т.е. в запросе, в условии отбора, вместо :
[Ввести код товара]
написать:
[Forms]![Имя формы параметров]![Имя поля параметра]
... или воспользоваться построителем выражений для этого.

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

при применении Beetwen в запросе на свое форму для ввода периода дат?

в запросе, в условии отбора даты примерно так:
Beetwen Nz([Forms]![Имя формы параметров]![Имя поля Дата начала периода];1) AND Nz([Forms]![Имя формы параметров]![Имя поля Дата окончания периода];99999)

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@kinoreliz 0 / 0 / 0 Регистрация: 05.02.2017 Сообщений: 122

	Формат для поля с типом данных счетчик 18.06.2020, 21:07. Показов 2896. Ответов 24 Метки нет (Все метки) Приветствую всех. Интересует ответ на вопрос касаемого поля с типом данных счетчик. В новой таблице автоосчет по данному полю осуществляется естественно с 1,2,3,4. Можно ли предусмотреть, чтобы значения выводились в следующем формате: 00001, 00002 ...... 00010 ..... 00100 и т.д. 0

@kinoreliz 0 / 0 / 0 Регистрация: 05.02.2017 Сообщений: 122
	18.06.2020, 23:05 [ТС]
	И также это что касается отчетов, относительно вывода перечня поступивших товаров за период (Beetwen) - чтобы не стандартные окна для ввода дат выводились, а на основании собственной созданной формы! 0

@matva 385 / 86 / 16 Регистрация: 08.12.2012 Сообщений: 645
	19.06.2020, 00:41
	kinoreliz, А так: =Sum([Количество]) 0

@kinoreliz 0 / 0 / 0 Регистрация: 05.02.2017 Сообщений: 122
	19.06.2020, 11:30 [ТС]
	Этот вопрос снимается. Нашел ошибку. 0

@kinoreliz 0 / 0 / 0 Регистрация: 05.02.2017 Сообщений: 122
	19.06.2020, 13:16 [ТС]
	И при выборе фильтра в полях Общая сумма, и Общее количество - ввелся подсчет согласно выбранного фильтра наподобие "Промежуточные итоги" в Excel 0

@Eugene-LS 13194 / 5889 / 1509 Регистрация: 05.10.2016 Сообщений: 16,524
	19.06.2020, 20:24
	kinoreliz, и действительно! Зачем эти "Ленточные формы" - Непонятно! Зафигачил много-столбцовый ListBox - И готово! Красота ... 0