копирование значений поля из одной таблицы access в другую

[Byyf]

в Аксессе есть таблицы мужских(200 имен) и женских имен(150имен) и мужских фамилий (170 фамилий,заканчиваются на -ин,-ов) и отчеств.Нужно заполнить другую таблицу, где имеются поля "фамилия", "имя" и "отчество", случайным перебором имеющихся имен,отчеств и фамилий. Помогите это сделать.Думаю,надо на VBA писать?

[alibek]

Да, SQL тут поможет мало.
Допускаем, что исходные данные (имена, фамилии) ты загрузил в массив, MName() - мужские имена, FName() - женские имена, LName() - фамилии, PName() - отчества.
Тогда код будет приблизительно такой (при условии, что тебе не требуется исключать дубликаты):

Код: Выделить всё

Dim M As Long, F As Long, L As Long, P As Long, S As String
Randomize
M = LBound(MName) + Rnd*(UBound(MName)-LBound(MName)+1)
F = LBound(FName) + Rnd*(UBound(FName)-LBound(FName)+1)
L = LBound(LName) + Rnd*(UBound(LName)-LBound(LName)+1)
P = LBound(PName) + Rnd*(UBound(PName)-LBound(PName)+1)
Randomize
If Rnd < 0.5 Then
  S = LName(L) & "а" & " " & FName(F) & " " & PName(P)
Else
  S = LName(L) & " " & MName(F) & " " & PName(P)
End If
'S - полученное имя, можешь вставлять через код или SQL