Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Добавление записей в таблицы через главную и подчиненную форму / 8 сообщений из 8, страница 1 из 1
24.10.2015, 01:09
    #39085443
On Point
On Point
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записей в таблицы через главную и подчиненную форму
Доброго времени суток, уважаемые!

Возникла необходимость учета приходных накладных в базе.
Что сделано:
Таблицы:
таб. Товары
Id_TovarId_NakId_KatId_SprQtyPrice_TovКодТовара(счетчик) КодНакладной(числовой)КодКатегории(числовой)КодСправочника(числовой)Кол-во(числовой) Цена(числовой)
таб. Накладные
Id_NakladnayaDate_NakKontragentOsnovaniePrice_NakКодНакладной(счетчик) ДатаНакладной(дата)КодКонтрагента(числовой)Основание накладной(текст) ЦенаНакладной(числовой)
таб. КатегорииТовара
Id_KategoryKategory_NameКодКатегори(счетчик) НазваниеКатегории
таб. Контрагнеты
Id_KontragentName_KontAdressPhoneКодКонтрагента(счетчик)ФИО(текст)Адрес(текст)Телефон(текст)
и таб. Справочник
Id_SprId_KategoryNomenklaturaКодСправочника(счетчик)КодКатегории(числовой)Номенклатура(текст)

Далее создал форму "Накладные", где источником данных служит таблица Накладные. Поле "Контрагент" было преобразовано в поле со списком. так же в форму добавил под.форму с источником данных - "таб. Товары" в ней, я так же преобразовал поля : Категория и Номенклатура в поля со списком
Код: plsql
1.
2.
SELECT DISTINCT Spr_Tovary.Id_Spr, Spr_Tovary.Nomenklatura
FROM Spr_Tovary;


и
Код: plsql
1.
2.
3.
SELECT Kategory.Id_Kategory, Kategory.Kategory_Name
FROM Kategory
ORDER BY Kategory.[Kategory_Name];



А теперь собственно с чем мне пришлось столкнуться. Когда я начинаю заполнять новые строки в дочерней форме, 1 - выбираю категорию товара, 2-выбираю номенклатуру согласно категории товара, у меня вылазит сообщение что мол "Введенный текст не соответствует ни одному из элементов списка". Ранее "вешал" запрос на источник строк списка "Номенклатура"
Код: plsql
1.
2.
3.
SELECT DISTINCT Spr_Tovary.Id_Spr, Spr_Tovary.Nomenklatura, Spr_Tovary.Id_Kategory
FROM Spr_Tovary
WHERE (((Spr_Tovary.Id_Kategory)=[Формы]![frm_Nakladnaya]![sf_Tovary].[Form]![Id_Kat]));


но и там у меня не получалось заполнить записи в таблице(

Задача такова, что нужно выбрать категорию товара, после в списке номенклатуры должны находиться те записи, которые соответствуют этой категории. Если категории или номенклатуры нет в списке, то сделать возможность добавлять в запись.

Прошу знатоков разобраться в моем случае, не могу определить косяк. Тестовую версию базы прилагаю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2015, 11:05
    #39085490
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записей в таблицы через главную и подчиненную форму
почитайте это и сделайте свою БД взяв за образец, что написано в ссылке
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2015, 11:06
    #39085491
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записей в таблицы через главную и подчиненную форму
вдогонку-а как закрывать формы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2015, 12:33
    #39085523
On Point
On Point
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записей в таблицы через главную и подчиненную форму
sdkuвдогонку-а как закрывать формы?

Формы сырые, еще не сделал обработку ошибок... Закрыть можно через правую кнопку.

Вот моя схема данных, разве она сильно отличается от предложенных?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2015, 12:38
    #39085527
On Point
On Point
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записей в таблицы через главную и подчиненную форму
Вопрос, как правильно организовать выбор категории и номенклатуры в подчиненной форме? Так же забыл указать, что главная и подчиненная форма связаны между собой по Id_Nak(по номеру накладной).
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2015, 20:56
    #39085668
On Point
On Point
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записей в таблицы через главную и подчиненную форму
Походу дела никто не понял сути вопроса...

Решение нашлось,
Код: vbnet
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.
36.
37.
Private Sub Id_Spr_NotInList(NewData As String, Response As Integer)
    'Îáðàáîòêà ïîçèöèé îòñóòñâóþùèõ â ñïèñêå
    Dim bytResponse As Byte
    Dim cnn As ADODB.Connection
    Dim rst As ADODB.Recordset
    On Error GoTo HandleErr
    bytResponse = MsgBox("Âû õîòèòå äîáàâèòü " _
    & NewData & "â ñïèñîê?", vbYesNo)
    
    Set cnn = CurrentProject.Connection
    Set rst = New ADODB.Recordset
        With rst
            .Open "Spr_Tovary", cnn, adOpenDynamic, adLockOptimistic
            If bytResponse = vbYes Then
            .AddNew "Nomenklatura", NewData
            .Fields("Id_kategory") = Me.Id_Kat
            .Update
            Response = acDataErrAdded
            ElseIf bytResponse = vbNo Then
            Response = acDataErrContinue
            Id_Spr.Undo
            GoTo ExitHere
            End If
        End With
        
ExitHere:
        rst.Close
        Set rst = Nothing
        cnn.Close
        Set cnn = Nothing
        Exit Sub
HandleErr:
        MsgBox "" & Err.Number & ": " & _
        Err.Description, vbOKOnly
        Resume ExitHere
        
End Sub



Пожелание пользователя базы было таковым, что при заполнении множественных записей в таблице, в поле "Номенклатура" искало уже существующие(ранее введенные) наименования товара. Вот к сожалению, с выборкой по категории у меня ничего не вышло, теперь ищет по всем записям справочника товары. Капаю дальше...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2015, 21:48
    #39085679
sdku
sdku
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записей в таблицы через главную и подчиненную форму
On Point,
Добавьте связь: kategory.ID_kategory>>>tovary.ID_kat
(после обновления tovary.ID_kat менять источник поляСоСписком tovary.ID_spr типа:"SELECT ID_spr,nomenklatura FROM Spr_tovary WHERE ID_kategory=" & me.formTovary
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.10.2015, 22:12
    #39085684
On Point
On Point
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление записей в таблицы через главную и подчиненную форму
sdku,
Спасибо, то что нужно!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Добавление записей в таблицы через главную и подчиненную форму / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 154ms
Закрыть
start [/forum/topic.php?fid=45&mobile=1&tid=1614381]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 58ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 13ms
total:  154ms
x
x
Закрыть


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