Pessoal, estou com um problema no "INNER JOIN".
Estou tentando fazer com que as informações que busco do servidor como db_produto e db_ID e incluir na tabela TB_new sem repetir o db_produto, até aí está tudo certo porém, gostaria que antes de adicionar as informações na tabela que comparace o db_ID do servidor com db_ID da tabela TB_produtos que criei e inserir na tabela TB_new o Nome no campo Nome após a comparação usando o INNER JOIN porém fiz o exemplo abaixo e ocorreu o seguinte erro:
'............................................................................................................
Erro em tempo de execução '3075':
Erro de sintaxe (operador faltando) na expressão de consulta 'b.db_ID = CH124444WHERE db_produto= 0001122334'.
'............................................................................................................
Do While Not rsADO.EOF
Set db = CurrentDb()
LocalSQL = "SELECT *, b.Nome as Nome FROM [TB_new] a INNER JOIN TB_produtos b on b.db_ID = " & rsADO!db_ID & "WHERE db_produto= " & rsADO!db_produto & ""
Set sr = db.OpenRecordset(LocalSQL)
If sr.EOF Then
sr.AddNew
Else
sr.Edit
End If
sr!db_produto = "" & rsADO!db_produto
sr!Nome = sr!Nome
sr.Update
rsADO.MoveNext
db.Close
Set sr = Nothing
Set db = Nothing
Loop
cn.Close
Set rsADO = Nothing
Set cn = Nothing
Exit Sub
End Sub
Estou tentando fazer com que as informações que busco do servidor como db_produto e db_ID e incluir na tabela TB_new sem repetir o db_produto, até aí está tudo certo porém, gostaria que antes de adicionar as informações na tabela que comparace o db_ID do servidor com db_ID da tabela TB_produtos que criei e inserir na tabela TB_new o Nome no campo Nome após a comparação usando o INNER JOIN porém fiz o exemplo abaixo e ocorreu o seguinte erro:
'............................................................................................................
Erro em tempo de execução '3075':
Erro de sintaxe (operador faltando) na expressão de consulta 'b.db_ID = CH124444WHERE db_produto= 0001122334'.
'............................................................................................................
Do While Not rsADO.EOF
Set db = CurrentDb()
LocalSQL = "SELECT *, b.Nome as Nome FROM [TB_new] a INNER JOIN TB_produtos b on b.db_ID = " & rsADO!db_ID & "WHERE db_produto= " & rsADO!db_produto & ""
Set sr = db.OpenRecordset(LocalSQL)
If sr.EOF Then
sr.AddNew
Else
sr.Edit
End If
sr!db_produto = "" & rsADO!db_produto
sr!Nome = sr!Nome
sr.Update
rsADO.MoveNext
db.Close
Set sr = Nothing
Set db = Nothing
Loop
cn.Close
Set rsADO = Nothing
Set cn = Nothing
Exit Sub
End Sub