Первая таблица форм, которую вы видите, переводит данные из запроса.
При нажатии кнопки слева оттаблица, код выглядит следующим образом:
Private Sub btnProductInfo_Click()
On Error GoTo Err_mySUB
'---------------------'
Dim LintelID As String
LintelID = DLookup("ID", "ImportProductAndTypes", "No =" & ItemNo)
'DoCmd.OpenForm "MAINProductInformation", , , "NoCode =" & Chr(34) & Me.ItemNo & Chr(34), acFormEdit
'---------------------'
Exit_mySUB:
Exit Sub
Err_mySUB:
MsgBox Err.Number & ": " & Err.Description & " (" & Erl & ")"
Resume Exit_mySUB
End Sub
Сначала я начал с функции DoCmd.OpenForm, которая принимает текстовое значение столбца ItemNo (Item Code) запроса и затем должна открыться.форма «MAINProductInformation» для записи, в которой используется код той, на которую есть ссылка.
Это не работает должным образом, поэтому я решил добавить столбец идентификатора в таблицу «ImportProductAndTypes», в которой открываемая форма будетНужна ссылка, чтобы перейти к записи.Что я обнаружил, так это то, что по какой-то причине элемент не был найден в таблице, даже если там есть значение ...
Пожалуйста, помогите, так как я нахожусь в такой потере здесь !!!