ник: kot_k_k
если уверен что слов два.
то на сво-во После обновления вешай
Private Sub Name_full_AfterUpdate()
str_ = Me.Name_full
kol = InStr(str_, " ")
Me.Name_sur = Mid(str_, 1, kol - 1)
Me.Name_given = Trim(Mid(str_, kol))
Me.Name_given.Requery
Me.Name_sur.Requery
End Sub
пример засунул, во
п.с. посмотрел на время - да у Вас уже 17:00 а унас еще 16:00 