Помогите с формой

[IgorBol]

Доброго времени суток. У меня есть база данных. В этой базе есть форма. Помогите сделать так, чтоб в Форме при подстановки значений из запроса, значения добавлялись к существующем значениям. Тоесть если уже есть в ФИО Иванов И.И. то после выбора Петрова П.П. в поле осталось Иванов И.И., Петров П.П. Или хотябы подскажите как это можно сделать.

[Teslenko_EA]

Здравствуйте IgorBol.

Option Compare Database
Dim s$
Private Sub Form_Current()
    s = s & ФИО
    ФИО = s
End Sub

подобный код, размещенный в модуле формы, "выполнит" Ваше (как минимум странное) желание.
Евгений.

[IgorBol]

Как я сам не догадался Все просто

[IgorBol]

Написал код, только не получается чегото

Private Sub ФИО_Click()
s1 = s1 & ", " & ФИО
ФИО = s1
End Sub

Private Sub ФИО_GotFocus()
s1 = ФИО
End Sub

Private Sub ФИО_LostFocus()
s1 = ""
End Sub

Проблема такая, все работает, форма не дает удолять (изменять) в форме выражение. Она его просто оставляет такоеже как было