Данные в непрерывной под форме исчезают при открытии формы в Access - PullRequest
Новая
       17

Данные в непрерывной под форме исчезают при открытии формы в Access

0 голосов
/ 22 апреля 2020

У меня есть основная форма (ее запись Source является таблицей, HC_Comp_Records_Table ) с именем H C Forms и вложенной формой (ее RecordSource является таблицей с именем HC_Product_Species_Table с заголовками столбцов, Product_ID, Product_Type, Species, Net wt и Comp_ID), H C Subform Subform , которая настроена на открытие в режиме непрерывного просмотра. Одной из основных форм является поле со списком Название компании (источник строки - таблица с именем Список компаний ), в которой содержится список компаний. Существует два каскадных поля со списком с именами ProductType (источник строки - таблица, таблица CompProductType ) и Species (источник строки также является таблицей, SpeciesListTable ) в подчиненной форме. Значения в ProductType зависят от Название компании .

Я наложил текстовое поле ( txtSpecies ) на поле со списком Виды Коды VBA и SQL для полей со списком 

Private Sub Company_Name__AfterUpdate()
    Dim temp As String
    temp = ""
    temp = MySpeciesSubform.SourceObject
    MySpeciesSubform.SourceObject = temp

    Me.MySpeciesSubform.Requery

Private Sub ProductType_AfterUpdate()
    Me.Species.Requery
    Me.Species.SetFocus
    Me.Species.Dropdown
End Sub

Private Sub Species_AfterUpdate()
Me.CboNETWT.SetFocus
Me.txtSpecies.Value = Me.Species.Column(1)
End Sub

SELECT [Companies List].ID, [Companies List].[Company Name]
FROM [Companies List]
ORDER BY [Companies List].[Company Name];

SELECT [ProductType Table].ProductID, [ProductType Table].[Product Type], [CompProductType table].CompID
FROM [ProductType Table] INNER JOIN [CompProductType table] ON [ProductType Table].ProductID = [CompProductType table].ProductID
WHERE ((([CompProductType table].CompID)=[Forms]![HC forms]![Company Name:]))
ORDER BY [ProductType Table].[Product Type];

SELECT SpeciesListTable.SpeciesID, SpeciesListTable.Species, SpeciesListTable.ProductID
FROM SpeciesListTable
WHERE (((SpeciesListTable.ProductID)=[Forms]![HC forms]![MySpeciesSubform].[Form]![ProductType]))
ORDER BY SpeciesListTable.Species;

Пока что в точке ввода данных данные, которые я выберу в подчиненной форме, видны. Однако подчиненная форма становится пустой, когда открывается форма или я перемещаюсь по записям.

Я искал inte rnet почти неделю, но не повезло. Я понимаю его трудную работу с непрерывными формами как подчиненную. Любая помощь будет принята с благодарностью

...