variable en sentencia sql

[Rael74]

Saludos a la comunidad,

Estoy creando código en visual basic para una aplicación hecha en access 97.
Tengo creado el siguiente módulo, con el que pretendo lo siguiente: hacer una consulta de registros duplicados en modo sql, en la cual uso como nombre de la tabla una variable string que contiene el nombre de la tabla.
Esta variable está declarada como pública:

Public nomarxiuimportat As String 'es el nombre de la tabla


Function segona_part()

Dim sql As Recordset

Set sql = CurrentDb().OpenRecordset("SELECT DISTINCTROW ['" & nomarxiuimportat & "'].nombre_campo1, ['" & nomarxiuimportat & "'].nombre_campo2 FROM ['" & nomarxiuimportat & "'] WHERE (((['" & nomarxiuimportat & "'].nombre_campo1) In (SELECT [nombre_campo1] FROM ['" & nomarxiuimportat & "'] As Tmp GROUP BY [nombre_campo1] HAVING Count(*)>1 ))) ORDER BY ['" & nomarxiuimportat & "'].nombre_campo1;")

If sql.RecordCount = 0 Then
MsgBox sql.RecordCount
End If

sql.Close
End Function

Cuando ejecuto el código me sale un error que dice que el motor de la base de datos Microsoft Jet no puede encontrar la tabla "xxxxxxx", que es precisamente el valor que tiene la variable.

Alguien puede ayudarme?

Gracias a todos,

Un saludo

Rael74

[rulsanchez]

Hola compañer@ Rael74, no se si es porque se te ha olvidado pero no veo en el codigo donde creas esa tabla, deberias poner algo asi para crearla:
Dim Sql as string

Sql = "CREATE TABLE " & NOMBREDETUTABLA& " ("
Sql = Sql & "UNCAMPO nvarchar(50), "
Sql = Sql & "OTROCAMPO nvarchar(50), "
Sql = Sql & ")"
TUCONEXION.Execute Sql, , adExecuteNoRecords

y asi ya tienes creada tu tabla.
Mira a ver si es eso y sino miramos otra cosa.
Saludotes ;)

[boluart]

haber prueba con esto:

SELECT *
FROM table1
WHERE
(
SELECT COUNT(*)
FROM table1 As Tmp
where table1.nombre_campo1= Tmp.nombre_campo1
) > 1

donde table1 es tu tabla que tiene los registros repeditos
PD: ya no seria necesario crear tablas temporales

[Rael74]

Gracias boluart,
Ahora ya funciona con la instrucción que me has facilitado.
Por otro lado, gracias tambien a ti, rulsanchez, por tu interés. Respecto a tu pregunta, te comento que la tabla se crea anteriormente, dentro del mismo módulo, mendiante la instrucción
DoCmd.TransferSpreadsheet.
Gracias de nuevo

Rael74