Гдето здесь случайно наткнулся на похожую тему, но где и как запамятовал.
Если кто знает, дайте ссылочку, плииз!
Ситуевина такая, привожу код закрытия справочника, после которого значение
из справочника переносится в поле Kategoria1 формы Reestr, с этим не сложно,
Private Sub btCloze_Click()
On Error GoTo Street_Err
Me.Refresh
Dim A1 As String
A1 = Me.id
DoCmd.Close
Forms![Reestr]![Kategoria1].Requery
Forms![Reestr]![Kategoria1] = A1
Forms![Reestr]![Kategoria1].SetFocus
Exit Sub
Street_Err:
MsgBox "данные не введены"
DoCmd.Close
End Sub |
|
А как данные внести не в Kategoria1 а в поле где находился фокус при вызове справочника.
Спасибо!