Помогите пожалуйста

Может я что-то не так написала??

insertstr = "insert into mt_xx_id (тут много всего) values (тут тоже);"

dbs.Execute insertstr, dbFailOnError

причем все названия полей и подставляемых значений проверила на 150 раз!!!

проверила :-((

Примерно так:

insertstr = "insert into mt_xx_id (kl_id, z_nom, dt_wy, vi_id, " _
& "prz_id , inv_nom, vsi_id, vkon_id, dt_ww, dt_cn, cost, " _
& "art, fond_id, st_id, mpi_id, st_id1, nn_id1, " _
& "pt_id, sost_id, ar_id, dt_ch, res_id, dt_nch, dt_pr, " _
& "dt_npr, nn_id) values (out_tip, z_nom_xx, dt_wy_xx, out_vi_si, " _
& "out_prz_si, inv_nom_xx, out_vid_si, out_vid_po, dt_ww_xx, dt_cn_xx, " _
& "cost_xx, art_xx, out_vid_fd, out_pl_ch, out_mpi, out_us_pod, " _
& "out_us_tn, out_us_cd, out_pl_sv, " _
& "out_ar_us, dt_ch_xx, out_res_ch, dt_nch_xx, dt_pr_xx, dt_npr_xx, out_tn_pr);"

не знаю, может где кавычки не так стоят, я просто первый раз за полгода села писать, уже ничего не помню

эти значения формируются при выборке одного значения из таблиц,

Изначально это была база на фоксе, одна подчиненная таблица и куча главных, причем связи естественно определены не были, и значения в большинстве полей заменены на буквенные аббреввитуры, и мне надо было
сформировать все связи заново.

мне надо переписать значения из одной таблицы в другую, и уменьшить количество столбцов.

1. я выбираю необходимые столбцы из исходной таблицы
select... - работает - проверяла
2. формирую запросы на выборку из главных таблиц

типа: sql_tip = "select kl_id as id_ix, tip as par_xx from mt_kl;"

3. далее в цикле:
rst_xx = rst!vid_si_xx
Select Case rst_xx
Case "э"
timestr = "Эталон"
Case "р"
timestr = "Рабочий эталон"
Case Else: timestr = " "
End Select

Call cicle(timestr, sql_vid_si, out_vid_si)

сама процедура:
Public Sub cicle(tip_xx, str_xx, out)
Dim rst1 As DAO.Recordset
Dim dbs As DAO.Database
Dim out1 As Variant

Set dbs = CurrentDb
Set rst1 = dbs.OpenRecordset(str_xx)
rst1.MoveLast
rst1.MoveFirst
While Not rst1.EOF
If UCase(tip_xx) = UCase(rst1!par_xx) Then
Set out1 = rst1!id_ix
out = out1
' MsgBox rst1!par_xx & "." & out, vbOKOnly
Exit Sub
End If
rst1.MoveNext
Wend
rst1.MoveFirst
Set out1 = rst1!id_ix
out = out1
'MsgBox out, vbOKOnly
rst1.Close
End Sub
причем тоже выбирает все правильно - проверяла каждую отдельно

вот это и получается values: out_vid_si = оut = rst1!id_ix

Большое Спасибо, проверю!!!!!

insertstr1 = "insert into [mt_xx_id] ([kl_id], [z_nom], [dt_wy], [vi_id], [prz_id], " _
& "[inv_nom], [vsi_id], [vkon_id], [dt_ww], [dt_cn], [cost], [art], [fond_id], [st_id], [mpi_id], " _
& "[st_id1], [nn_id1], [pt_id], [sost_id], [ar_id], [dt_ch], [res_id], [dt_nch], [dt_pr], " _
& "[dt_npr], [nn_id]) " _
& " values ('" & out_tip & " , " & z_nom_xx & " , " & dt_wy_xx & ", " & out_vi_si & " , " _
& out_prz_si & " , " & inv_nom_xx & " , " & out_vid_si & " , " & out_vid_po & ", " _
& dt_ww_xx & " , " & dt_cn_xx & " , " & cost_xx & " , " & art_xx & " , " _
& out_vid_fd & " , " & out_pl_ch & " , " & out_mpi & " , " & out_us_pod & " , " _
& out_us_tn & ", " & out_us_cd & " ," & out_pl_sv & " , " & out_ar_us & " , " _
& dt_ch_xx & " , " & out_res_ch & " , " & dt_nch_xx & " , " & dt_pr_xx & " , " _
& dt_npr_xx & " , " & out_tn_pr & " ');"

вот так все написала, все равно дает ошибку :-(((

Спасибо всем!!! )

Я уже на пути к истине :)