Убедитесь, что две таблицы доступа не имеют идентификаторов, которые соответствуют таблицам «Stock» и «Sold» - PullRequest
Новая
       14

Убедитесь, что две таблицы доступа не имеют идентификаторов, которые соответствуют таблицам «Stock» и «Sold»

0 голосов
/ 31 декабря 2018

У меня есть две таблицы для отслеживания продажи деревянных плит на складе.Я рассчитываю цену для слябов на основе переменной, которую можно изменить в третьей таблице, в которой хранятся справочные цены.Я использую форму для «продажи» плиты, то есть когда флажок установлен, и я нажимаю кнопку, запрос на добавление добавляет все записи с флажком «продать» в «таблицу продаж», а затем выполняет другой запрос кудалить все записи, отметив флажок «продать» из исходной таблицы «на складе».При добавлении записи в новую таблицу цена становится установленной и больше не рассчитывается по запросам.Это помогает поддерживать историческую точность того, что клиенты платили за определенные плиты.При перемещении записи идентификатор остается прежним.Я хочу убедиться, что в обеих таблицах нет повторных идентификаторов, потому что вы также можете «отменить» запись или отменить процесс продажи, если есть возврат.То, как я сейчас это автоматизировал, если есть дубликаты, то добавление не происходит, и запись удаляется.Я хотел бы иметь возможность искать в поле идентификатора в таблице «продано», чтобы убедиться, что нет совпадений с идентификатором продаваемой записи. Если есть совпадение, я хотел бы отправить пользователю сообщение о том, что идентификаторуже используется и попросите их ввести новый идентификатор. 

Private Sub Command289_Click()
    On Error GoTo Command289_Click_Err
    'if date isn't empty and name isn't empty move slab, otherwise give 
    'user error message and exit sub'
        If (Text537 <> "") Then
            If (Text543 <> "") Then
                DoCmd.SetWarnings False
                CloseAllObjects
                DoCmd.OpenQuery "SellSelected"
                DoCmd.OpenQuery "DeleteSelected"
                DoCmd.OpenForm "Slab Entry Form"
                DoCmd.SetWarnings True
            Else
            MsgBox "You must enter Customer Name!"
            Exit Sub
            End If
         Else
            MsgBox "You must enter Date Sold!"
            Exit Sub
         End If

Command289_Click_Exit:
        Exit Sub

Command289_Click_Err:
        MsgBox Error$
        Resume Command289_Click_Exit
End Sub
...