Private Sub Form_Current() If IsNull(Me![]) Then Me.Controls("").Value = Forms![FIO_fr]![mn].value End If End Sub
http://www.sql.ru/forum/1072066/poluchit-soderzhanie-polya-so-spiskom-v-drugoe-pole