[Resolvido]Erro Código VBA não encontrado.

Olá pessoal do Forum!

Alguém pode me ajudar, pois estou com dificuldades em encontrar o erro nas linhas de código abaixo.

Através de (03) consultar tem que alimentar uma tabela.

Fico grato antecipadamente.

- - - - - - - - - - - - - - - - - - - -
Private Sub Form_Load()
Me.KeyPreview = True
strSQL = "DELETE * FROM zzz_tbl_MovimentacaoProdutos"
Workspaces(0).Databases(0).Execute strSQL
Me.Requery

txtDatIni = Format(IniMes(Now()), "dd/mm/yyyy")
txtDatFim = Format(FimMes(Now()), "dd/mm/yyyy")
txtDatIni.SetFocus
End Sub

Private Sub BotaoOk_Click()
strSQL = "DELETE * FROM zzz_tbl_MovimentacaoProdutos"
Workspaces(0).Databases(0).Execute strSQL
Me.Requery

Set dbs = CurrentDb
strSQL = "SELECT * FROM viewMovimentacaoProdutosVendas WHERE CODIGO = " & "'" & Forms!ListaProdutos.ccVarPro & "'"
strSQL = strSQL & " AND EMISSAO Between Format$('" & Me![txtDatIni] & "', 'dd/mm/yyyy') AND Format('" & Me![txtDatFim] & "', 'dd/mm/yyyy')"
Set rst = dbs.OpenRecordset(strSQL)

Do While Not rst.EOF
strSQL = "INSERT INTO zzz_tbl_MovimentacaoProdutos ("
strSQL = strSQL & "NUMEROPEDIDO,"
strSQL = strSQL & "MOVIMENTACAO,"
strSQL = strSQL & "DATA,"
strSQL = strSQL & "CODIGO,"
strSQL = strSQL & "QUANTIDADE,"
strSQL = strSQL & "idUsuario)"

strSQL = strSQL & "VALUES ("
strSQL = strSQL & "'" & rst("NUMEROPEDIDO") & "',"
strSQL = strSQL & "'" & rst("CLIENTE") & "',"
strSQL = strSQL & "'" & rst("EMISSAO") & "',"
strSQL = strSQL & "'" & rst("CODIGO") & "',"
strSQL = strSQL & "'" & rst("QUANTIDADE") & "',"
strSQL = strSQL & rst("idUsuario") & ");"
On Error GoTo erro
Workspaces(0).Databases(0).Execute strSQL
rst.MoveNext
Loop
rst.Close

Set dbs = CurrentDb
strSQL = "SELECT * FROM viewMovimentacaoProdutosCompras WHERE CODIGO = " & "'" & Forms!ListaProdutos.ccVarPro & "'"
strSQL = strSQL & " AND EMISSAO Between Format$('" & Me![txtDatIni] & "', 'dd/mm/yyyy') AND Format('" & Me![txtDatFim] & "', 'dd/mm/yyyy')"
Set rst = dbs.OpenRecordset(strSQL)

Do While Not rst.EOF
strSQL = "INSERT INTO zzz_tbl_MovimentacaoProdutos ("
strSQL = strSQL & "NUMEROENTRADA,"
strSQL = strSQL & "MOVIMENTACAO,"
strSQL = strSQL & "DATA,"
strSQL = strSQL & "CODIGO,"
strSQL = strSQL & "QUANTIDADE,"
strSQL = strSQL & "idUsuario)"

strSQL = strSQL & "VALUES ("
strSQL = strSQL & "'" & rst("NUMEROENTRADA") & "',"
strSQL = strSQL & "'" & rst("FORNECEDOR") & "',"
strSQL = strSQL & "'" & rst("EMISSAO") & "',"
strSQL = strSQL & "'" & rst("CODIGO") & "',"
strSQL = strSQL & "'" & rst("QUANTIDADE") & "',"
strSQL = strSQL & rst("idUsuario") & ");"
On Error GoTo erro
Workspaces(0).Databases(0).Execute strSQL
rst.MoveNext
Loop
rst.Close

Set dbs = CurrentDb
strSQL = "SELECT * FROM viewMovimentacaoProdutosAlteracao WHERE CODIGO = " & "'" & Forms!ListaProdutos.ccVarPro & "'"
strSQL = strSQL & " AND EMISSAO Between Format$('" & Me![txtDatIni] & "', 'dd/mm/yyyy') AND Format('" & Me![txtDatFim] & "', 'dd/mm/yyyy')"
Set rst = dbs.OpenRecordset(strSQL)

Do While Not rst.EOF
strSQL = "INSERT INTO zzz_tbl_MovimentacaoProdutos ("
strSQL = strSQL & "MOVIMENTACAO,"
strSQL = strSQL & "DATA,"
strSQL = strSQL & "CODIGO,"
strSQL = strSQL & "idUsuario)"

strSQL = strSQL & "VALUES ("
strSQL = strSQL & "'" & rst("REGISTRO") & "',"
strSQL = strSQL & "'" & rst("EMISSAO") & "',"
strSQL = strSQL & "'" & rst("CODIGO") & "',"
strSQL = strSQL & rst("strUser") & ");"
On Error GoTo erro
Workspaces(0).Databases(0).Execute strSQL
rst.MoveNext
Loop
rst.Close

Teste e se funfar, veja as diferenças;

Código:

Private Sub BotaoOk_Click()
Dim strSQL$
Dim strSQL1$
Dim strSQL2$
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim rst1 As DAO.Recordset
Dim rst2 As DAO.Recordset

On Error GoTo erro
Set dbs = CurrentDb

strSQL = "DELETE * FROM zzz_tbl_MovimentacaoProdutos"
Workspaces(0).Databases(0).Execute strSQL
Me.Requery

strSQL = ""
strSQL = "SELECT * FROM viewMovimentacaoProdutosVendas WHERE CODIGO = '" & Forms!ListaProdutos.ccVarPro & "'"
strSQL = strSQL & " AND EMISSAO Between Format(#" & Me![txtDatIni] & "#, 'mm/dd/yyyy') AND Format(#" & Me![txtDatFim] & "#, 'mm/dd/yyyy')"
Set rst = dbs.OpenRecordset(strSQL)

Do While Not rst.EOF
strSQL = "INSERT INTO zzz_tbl_MovimentacaoProdutos ("
strSQL = strSQL & "NUMEROPEDIDO,"
strSQL = strSQL & "MOVIMENTACAO,"
strSQL = strSQL & "DATA,"
strSQL = strSQL & "CODIGO,"
strSQL = strSQL & "QUANTIDADE,"
strSQL = strSQL & "idUsuario)"

strSQL = strSQL & "VALUES ("
strSQL = strSQL & "'" & rst("NUMEROPEDIDO") & "',"
strSQL = strSQL & "'" & rst("CLIENTE") & "',"
strSQL = strSQL & "'" & rst("EMISSAO") & "',"
strSQL = strSQL & "'" & rst("CODIGO") & "',"
strSQL = strSQL & "'" & rst("QUANTIDADE") & "',"
strSQL = strSQL & "" & rst("idUsuario") & ");"

Workspaces(0).Databases(0).Execute strSQL
rst.MoveNext
Loop
rst.Close


strSQL1 = "SELECT * FROM viewMovimentacaoProdutosCompras WHERE CODIGO = '" & Forms!ListaProdutos.ccVarPro & "'"
strSQL1 = strSQL1 & " AND EMISSAO Between Format(#" & Me![txtDatIni] & "#, 'mm/dd/yyyy') AND Format(#" & Me![txtDatFim] & "#, 'mm/dd/yyyy')"
Set rst1 = dbs.OpenRecordset(strSQL1)

Do While Not rst1.EOF
strSQL1 = ""
strSQL1 = "INSERT INTO zzz_tbl_MovimentacaoProdutos ("
strSQL1 = strSQL1 & "NUMEROENTRADA,"
strSQL1 = strSQL1 & "MOVIMENTACAO,"
strSQL1 = strSQL1 & "DATA,"
strSQL1 = strSQL1 & "CODIGO,"
strSQL1 = strSQL1 & "QUANTIDADE,"
strSQL1 = strSQL1 & "idUsuario)"

strSQL1 = strSQL1 & "VALUES ("
strSQL1 = strSQL1 & "'" & rst1("NUMEROENTRADA") & "',"
strSQL1 = strSQL1 & "'" & rst1("FORNECEDOR") & "',"
strSQL1 = strSQL1 & "'" & rst1("EMISSAO") & "',"
strSQL1 = strSQL1 & "'" & rst1("CODIGO") & "',"
strSQL1 = strSQL1 & "'" & rst1("QUANTIDADE") & "',"
strSQL1 = strSQL1 & "" & rst1("idUsuario") & ");"

Workspaces(0).Databases(0).Execute strSQL1
rst1.MoveNext
Loop
rst1.Close


strSQL2 = "SELECT * FROM viewMovimentacaoProdutosAlteracao WHERE CODIGO = '" & Forms!ListaProdutos.ccVarPro & "'"
strSQL2 = strSQL2 & " AND EMISSAO Between Format(#" & Me![txtDatIni] & "#, 'mm/dd/yyyy') AND Format(#" & Me![txtDatFim] & "#, 'mm/dd/yyyy')"
Set rst2 = dbs.OpenRecordset(strSQL2)

Do While Not rst2.EOF
strSQL2 = ""
strSQL2 = "INSERT INTO zzz_tbl_MovimentacaoProdutos ("
strSQL2 = strSQL2 & "MOVIMENTACAO,"
strSQL2 = strSQL2 & "DATA,"
strSQL2 = strSQL2 & "CODIGO,"
strSQL2 = strSQL2 & "idUsuario)"

strSQL2 = strSQL2 & "VALUES ("
strSQL2 = strSQL2 & "'" & rst2("REGISTRO") & "',"
strSQL2 = strSQL2 & "'" & rst2("EMISSAO") & "',"
strSQL2 = strSQL2 & "'" & rst2("CODIGO") & "',"
strSQL2 = strSQL2 & "" & rst2("strUser") & ");"
On Error GoTo erro
Workspaces(0).Databases(0).Execute strSQL2
rst2.MoveNext
Loop
rst2.Close
Set rst = Nothing: Set rst1 = Nothing: Set rst2 = Nothing
dbs.Close: Set dbs = Nothing
End Sub

Obrigado por responder JPaulo.

Nossa, faltou informar o resto do código, desculpa.

Depois rts.Close, tem mais este:

Set dbs = CurrentDb
strSQL = "SELECT * FROM zzz_tbl_MovimentacaoProdutos"
Set rst = dbs.OpenRecordset(strSQL)
Me.RecordSource = strSQL

Me.Requery
BotaoVisualizar.visible = True

VoltaErro:

Exit Sub

erro:
Beep
MsgBox Error$, vbCritical, "Edição"
Resume VoltaErro
End Sub

Maravilha JPaulo.

Rodo 100%.

Muito Obrigado.

Fico feliz
Obrigado pelo retorno o fórum agradece.