Synthax error

[Denker]

Can enyone tell me where could be mistake in code:
Some oprerators are missing and I cant figure it out which they are

Private Sub Command1_Click()
Dim TblName As String
Dim StrSql As String
Dim fromTabela As String
TblName = InputBox("Table name")
fromTabela = InputBox("From table")
StrSql = "SELECT [" & fromTabela & "].[Šifra_komitenta] " & _
"INTO" & TblName & _
"FROM [" & fromTabela & "] ;"
CurrentDb.Execute StrSql, dbFailOnError

THanks

 

[JHB]

You are missing spaces.

StrSql = "SELECT [" & fromTabela & "].[Šifra_komitenta] " & _
"INTO" & TblName & _
"FROM [" & fromTabela & "] ;"

Correct is:

StrSql = "SELECT [" & fromTabela & "].[Šifra_komitenta] " & _
" INTO" & TblName & _
" FROM [" & fromTabela & "];"

 

[Denker]

It still showes same mistake. I copied your "Quote" but nothing has changed.
Any other solution?????????

 

[JHB]

I see I'm missing a space too: " INTO" it has to be: " INTO "
If not, then insert a MsgBox(StrSql) in your code and show the result here.

 

[Denker]

It Works now !!!!!

Thank you a lot ,

Best regards

 

[JHB]

You're welcome.