ник: Анатолий (Киев)
angel_026, что-то я растерялся. 
То у вас не получается добавить новую запись, то наоборот...
Используйте две кнопки "Добавить запись" и "Дополнить запись"
В форме2 измените имена полей на ПолеX1-ПолеX50 и т.п., а часть кода на "Дополнить запись" такая:
...
With Forms("Форма2")
For i = 1 To 50
If IsNull(.Controls("ПолеX" & i)) And IsNull(.Controls("ПолеZ" & i)) And IsNull(.Controls("ПолеY" & i)) Then
.Controls("ПолеX" & i) = Me!ПолеА
.Controls("ПолеZ" & i) = Me!ПолеБ
.Controls("ПолеY" & i) = Me!ПолеВ
Exit Sub
End If
Next
End With
MsgBox "Нет свободных полей!"
|
Дополнено: А что это вы такое мудрите?
150 полей!!!
Дополнено2: angel_026, учитесь правильно формулировать вопросы, применять терминологию, понятную остальным и не создавайте лишние ветки на одну тему (сейчас их уже три).
