подстановка в поле подчинненной формы календаря

[tavoz]

Помогите! Есть Главная форма и подчиненная в которой поле Дата к которому подвешен календарь и вспомогательное поле Явка. Выбор даты из календаря происходит только из подчиненной формы, иначе выдает ошибку: run-time error 2450 Приложению не удается найти форму "подчиненная", указанную в выражении макроса или в программе
Код для открытия календаря
Private Sub Дата_DblClick(Cancel As Integer)
Me![Явка] = "Дата"
DoCmd.OpenForm "календарь ", , , , , , "подчиненная Главная"
End Sub
На событие календаря
открытие
Private Sub Form_Open(Cancel As Integer)
If IsNull(Me.OpenArgs) Then Cancel = -1
End Sub
загрузка
Private Sub Form_Load()
If Not IsNull(Me.OpenArgs) Then
FName = Forms(Me.OpenArgs)("Явка")
Cur_Date = Forms(Me.OpenArgs)(FName)
If Not IsNull(Cur_Date) Then
Me![Календарь].Value = Cur_Date
End If
End If
End Sub

[Teslenko_EA]

Здравствуйте tavoz.
Код это хорошо, (для удобочитаемости заключайте код в тэги [соde]...[/соde]), но для анализа его не достаточно.
конструкция которая "выдает ошибку..." зависит не только от кода, выложите архив с заранее подготовленным (избавленным от переизбыточных данных, OLE объектов,.... и сжатый средствами MS Access) файлом БД, и на примере Вашей БД можно будет продемонстрировать способ решения Вашей задачи.
Евгений.

[tavoz]

Пример базы для анализа

[Teslenko_EA]

Здравствуйте tavoz.
не знаю насколько верно я понял то, что Вы пытались изложить, надеюсь с подобной корректировкой кода угадал:

'вызов календаря
Private Sub Дата_DblClick(Cancel As Integer)
    DoCmd.OpenForm "Календарь"
End Sub
'Календарь
Dim oFrm As Form
Private Sub Form_Close()
Const sM = "Сохранить изменения ?"
On Error Resume Next
If oFrm Is Nothing Then Exit Sub
If Not oFrm.Дата = Me![Календарь].Value Then
    If MsgBox(sM, vbQuestion + vbYesNo, "") = vbYes Then oFrm.Дата = Me![Календарь].Value
End If
End Sub
Private Sub Form_Load()
Dim d As Date
On Error Resume Next
Set oFrm = Forms("Главная").Controls("подчиненная Главная").Form
If Not oFrm Is Nothing Then d = oFrm.Дата
If d = 0 Then d = Date
Me.Календарь = d
End Sub

ощущение, что помогал Вам строить домик в песочнице.
Удачи Вам.
Евгений.

[tavoz]

Большое спасибо но из всего кода мне пригодилась только строка
Forms("Главная").Controls("подчинен ная Главная").Form
теперь все работает, пример базы прикрепляю для изменения даты в поле явка