Заполнение поле формы автоматически из другой формы!!

[Магомед]

Доброй ночи!!

Такая проблемка!!
Есть форма Полис (создана на основе таблицы Полис), есть форма ТС(на основе табл ТС)..таблицы ТС и Полис связаны полем Номер ТС..
В форме Полис есть поле Номер ТС и кнопка ТС, которая открывает форму ТС, как сделать так, чтобы при выборе соответствуещего номера ТС и нажатию кнопке ОК, этот номер автоматически записывался в форму Полис??

Очень надеюсь на вашу помощь!!
вот ссылка на программу

[x8i]

Если я вас правильно понял то можно сделать так:
АГЕНТ.rar

[Магомед]

Большое спасибо x8i....я вижу что вы хорошо разбираетесь в Accesse, если что буду обращаться к вам за помощью в процессе написания курсового проекта

[Магомед]

Слушай, а ты там прописал только кнопку или еще что то?..
я просто пробую написать тоже самое, для своей программы, выдает ошибку....

[x8i]

Да, я написал код для кнопки и еще в тот же модуль добавил функцию

Public Function IsLoaded(ByVal FName As String) As Boolean

Dim frm As Form

IsLoaded = False

For Each frm In Forms
If frm.Name = FName Then IsLoaded = True
Next frm

End Function

- проверяет открыта ли форма, имя которой указывается в качестве параметра. Больше ничего. А что за ошибка? и когда возникает?

[Магомед]

ошибка 2465..
вот просмотри тоже самое

[x8i]

Ты походу переименовал поле ввода Номер_ТС на форме Полисы, а в коде оно называлось ctlNTS, из-за этого ошибка. Или верни это имя или в процедуре его замени на Номер_ТС

[Магомед]

Ок....спасибо, заработало

[Roland81]

А как сделать то же самое, но если форма, в которую возвращается параметр подчиненная другой форме. Щас текст такой:

Private Sub Наименование_DblClick(Cancel As Integer)
If IsLoaded("ЯзыкиСотрудникаПодчиненна я") Then
Forms("ЯзыкиСотрудникаПодчиненная") .Form.КодЯзыка= Me.Код.Value
End If
DoCmd.Close
End Sub

Public Function IsLoaded(ByVal FName As String) As Boolean
Dim frm As Form
IsLoaded = False
For Each frm In Forms
If frm.Name = FName Then IsLoaded = True
Next frm
End Function

Но, т.к. форма ЯзыкиСотрудникаПодчиненная находится внутри формы НовыйСотрудник, он не видит ее как открытую. Как правильно написать?

сам же и нашел правильный ответ. Надо написать:
Forms![НовыйСотрудник]![ЯзыкиСотрудникаПодчиненная].Form![КодЯзыка]=Me.Код.Value