訪問VBA SQL運行時錯誤3134 INSERT INTO

Question

我有一個Access 2013的VBA代碼，並且我想運行INSERT INTO，但是當我嘗試運行它時，它會不斷刪除信息“ INSERT INTO中的運行時錯誤3134語法錯誤”。 有我的代碼：

      Private Sub Parancsgomb35_Click()
Set valamiami = Me.Szöveg29
Dim neveteke As String
Me.KombináltLista27.SetFocus
neveteke = Me.KombináltLista27.Value
Set db_number = Me.Szöveg15
Dim sql_cucc As String
Set rs = CurrentDb.OpenRecordset("SELECT sarzsszám, cikkszam, me, afa, behozatali, netto FROM torzslapok WHERE neve='" & neveteke & "'")

While Not rs.EOF
Set afaka = rs.Fields("afa")
Set sarzsszamka = rs.Fields("sarzsszám")
Set mennka = rs.Fields("me")
Set cikkszamka = rs.Fields("cikkszam")
Set behozatalika = rs.Fields("behozatali")
Set nettoka = rs.Fields("netto")
sql_cucc = "INSERT INTO BE-ALPHAVET(neve, afa, behozatali, netto, db, sarzsszám, cikkszam, me) VALUES('" & neveteke & "','" & afaka & "','" & behozatalika & "','" & nettoka & "','" & db_number & "','" & sarzsszamka & "','" & cikkszamka & "','" & mennka & "');"
CurrentDb.Execute sql_cucc
Wend

End Sub

valamiami = DATE like yyyy.mm.dd
neveteke = STRING
KombináltLista27 = STRING (COMBINE LIST with ine select only)
db_number = INTERGER
sql_cucc = STRING
afaka = INTEGER
sarzsszamka = STRING
mennka = STRING
cikkszamka = STRING
behozatalika = INTEGER
nettoka = INTEGER

我閱讀了很多論壇，但沒有找到任何答案。有人可以為我解釋什么問題嗎？ 感謝和愛！

Answer 1

您的INSERT開始為：

INSERT INTO BE-ALPHAVET(neve, afa, behozatali, netto, db,
                        sarzsszám, cikkszam, me) 

-被解釋為減號。 您需要轉義表名：

INSERT INTO [BE-ALPHAVET](neve, afa, behozatali, netto, db,
                          sarzsszám, cikkszam, me) 

或者，更好的是，將其更改為下划線（ _ ），以使您根本不必轉義該名稱。