Caro forum,

 

Preciso de uma função que delete os registros repetidos em uma tabela access.

 

Grato...

a SQL abaixo retorna todos os registros repetidos de uma tabela (pode ser um mais campos)

 

SELECT Tabela.CampoRepetido

FROM Tabela
WHERE (((Tabela.CampoRepetido) In (SELECT [CampoRepetido] FROM [Tabela] As Tmp GROUP BY [CampoRepetido] HAVING Count(*)>1 )))
ORDER BY Tabela.CampoRepetido;

Caro Martini,

 

Executeia SQl, mas retornou o seguinte erro:

A instrução select inclui uma palavra reservada ou um nome de argumento que está incorreto ou faltando, ou a pontuãção está incorreta.

 

A minha SQl ficou da seguinte forma:

meu banco de dados = simcons

minha tabela = arqcons

o campo que quero verificar = tex_art

'--------------------------------------

       Dim rst As New ADODB.Recordset
       Set rst.ActiveConnection = cn
       '-----------------------------------

       Dim rst As New ADODB.Recordset
       Set rst.ActiveConnection = cn
       rst.CursorType = 3 'Define cursor
       '----- define arquivo --------
       vsql = "SELECT arqcons.tex_art, From arqcons where"
       vsql = vsql & " (((arqcons.tex_art) In (SELECT [tex_art] FROM [arqcons] As Tmp GROUP BY [tex_art] HAVING Count(*)>1 )))"
       vsql = vsql & " ORDER BY arqcons.tex_art" & ";"
       '-----------------
       rst.Open vsql

vsql = "SELECT arqcons.tex_art, From arqcons where"

Tira a vírgula antes do FROM

Natarelli,

 

blz, era isso...

sabe me informar se essa SQL aceita campo memo???

 

Aceita.

 

Abs,