Как правильно передать ID из подчиненной формы в главную

@ShikuS · Регистрация: 14.10.2016

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

Добрый день!

Возникла трудность и непонимание при передаче ID из подчиненной формы в главную, помогите, пожалуйста разобраться:
Имеется главная форма и в ней подчиненная ленточная форма. Хочу сделать так, что бы при выборе записи в подчиненной форме на главной форме в полях отражалась информация по данной записи.

в подчиненной форме на событии Form_Current()

Visual Basic

Public Sub Form_Current()
Dim i As Long
On Error Resume Next
Forms!frmModels.Form.Recordset.FindFirst "[IDMODEL]= " & CStr(Nz(Me.IDMODEL, 0))
DoCmd.RunCommand acCmdSelectRecord
    With Me.Controls
        For i = 0 To .Count - 1
            With .Item(i)
                Select Case .ControlType
                    Case acTextBox, acComboBox
                        With .FormatConditions
                                If .Count > 0 Then
                                    .Item(0).Modify Type:=1, Expression1:="[IDMODEL]=" & CStr(Nz(Me.IDMODEL, 0))
                                Else
                                    With .Add(Type:=1, Expression1:="[IDMODEL]=" & CStr(Nz(Me.IDMODEL, 0)))
                                        .BackColor = 0
                                        .ForeColor = RGB(255, 255, 255)
                                    End With
                                End If
                        End With
                End Select
            End With
        Next i
    End With
End Sub

Вставил строку:

Visual Basic

1	Forms!frmModels.Form.Recordset.FindFirst "[IDMODEL]= " & CStr(Nz(Me.IDMODEL, 0))

,

без этой строки выбираются (выделяются) записи в подчиненной форме, а если ее вставить в событии (как выше), то строки преключаются но не переходят на запись.
Так же заметил, что если убрать все условия WHERE к источнику строк в подчиненной форме, то все работает хорошо.

SQL

1
2
3

SELECT tblMODELS.IDMODEL, tblMODELS.MODELNAME
FROM tblPRODUCERS INNER JOIN (tblMODELTYPES INNER JOIN tblMODELS ON tblMODELTYPES.IDMODELTYPE = tblMODELS.IDMODELTYPE) ON tblPRODUCERS.IDPRODUCER = tblMODELS.IDPRODUCER
ORDER BY tblMODELS.MODELNAME;

а при таких не работает:

SQL

SELECT tblMODELS.IDMODEL, tblMODELS.MODELNAME
FROM tblPRODUCERS INNER JOIN (tblMODELTYPES INNER JOIN tblMODELS ON tblMODELTYPES.IDMODELTYPE = tblMODELS.IDMODELTYPE) ON tblPRODUCERS.IDPRODUCER = tblMODELS.IDPRODUCER
WHERE (((tblMODELS.IDPRODUCER)=IIf(IsNull([cmbProducers]),[tblProducers].[IDPRODUCER])) AND ((tblMODELS.IDMODELTYPE)=IIf(IsNull([cmbModelTypes]),[tblModelTypes].[IDMODELTYPE])))
ORDER BY tblMODELS.MODELNAME;

Наверное, некорректно данные условия:

SQL

1	IIf(IsNull([cmbProducers]),[tblProducers].[IDPRODUCER])) AND ((tblMODELS.IDMODELTYPE)=IIf(IsNull([cmbModelTypes]),[tblModelTypes].[IDMODELTYPE])))

но без

Visual Basic

1	Forms!frmModels.Form.Recordset.FindFirst "[IDMODEL]= " & CStr(Nz(Me.IDMODEL, 0))

работает....
что то я запутался...
Как можно сделать так, что бы при условиях WHERE тоже все работало, т.е. передавался ID в главную форму

Спасибо

@ShikuS · 02.07.2017, 19:55 **[ТС]**

Вопрос закрыт, знаю свою ошибку! Спасибо!

@ShikuS 6 / 6 / 0 Регистрация: 14.10.2016 Сообщений: 148
	02.07.2017, 19:55 [ТС]	2
	Вопрос закрыт, знаю свою ошибку! Спасибо! 0

Опции темы