ник: debilder
Dim spec, KV As Integer
Dim edrp As String
edrp = Forms![Форма1]![F_VZ]![E_ED].Value
spec = Forms![Форма1]![F_VZ]![R_Yr].Value
KV = Forms![Форма1]![F_VZ]![R_KV].Value
For Each tbl In dbS.TableDefs
tablic = tbl.name
dbsFB.Execute ("INSERT INTO ...
Next