Bom dia amigos!!

Me ajudem!

"data type mismatch in criteria expression"

 

Criei a tabela pontuacao com os mesmos campos que estou selecionando no SELECT abaixo..

 

Esse select funciona perfeitamente quando mostro os dados filtrados pelo formulário no Data Grid. Mas quando tento jogar o resultado desse select em uma outra tabela, não consigo!

Data = txtDataInicio.Text
dataFim = txtDataFim.Text
inteiro = Int(txtMinimoPontos.Text)

 

SQL1 = "Delete * from Pontuacao"
conexao.Execute (SQL1)

 

SQL2 = "INSERT INTO Pontuacao SELECT colaboradores.nome, Sum(multas.pontuacao) AS SumOfpontuacao, colaboradores.regional, colaboradores.territorio, colaboradores.cargo, colaboradores.matricula FROM colaboradores INNER JOIN multas ON colaboradores.matricula = multas.matricula WHERE multas.dataPreenchimento >= #" & Format(Data, "mm/dd/yyyy") & "# and multas.dataPreenchimento <= #" & Format(dataFim, "mm/dd/yyyy") & "# and multas.motivo='Indicado no Prazo' and colaboradores.matricula like '" & txtMatricula.Text & "*' and colaboradores.nome like '" & txtNome.Text & "*' and colaboradores.cargo like '" & comboCargo.Text & "*' and colaboradores.regional like '" & comboRegional.Text & "*' and colaboradores.territorio like '" & comboTerritorio.Text & "*'  GROUP BY colaboradores.nome, colaboradores.regional, colaboradores.territorio, colaboradores.cargo, colaboradores.matricula HAVING Sum(multas.pontuacao)>= " & inteiro & " ORDER BY Sum(multas.pontuacao) DESC"
conexao.Execute (SQL2)

Abraços!

Access..

 

Eu consigo jogar essa consulta (sem o insert claro) em um datagrid e fica perfeito... Mas o que preciso na verdade é inserir o resultado desta consulta na tabela pontuacao..

 

Abraços!

Campos da tabela pontuacao: Tive a preocupação de criar na tabela pontuacao, os mesmos campos da consulta

 

matricula

sumofpontuacao

nome

cargo

regional

territorio

 

Abraços!