Access - Ugente para expertos

Private Sub Detalle_Print(Cancel As Integer, PrintCount As Integer)

Dim nombreregs As Integer
Dim rst As Recordset
Dim id As Integer

Set rst = CurrentDb.OpenRecordset("tmpsinonim", dbOpenDynaset)

With rst
.MoveLast
nombreregs = .RecordCount 'esto me dara el numero de registros
.MoveFirst

For contador = 1 To nombreregs

id = DLookup("identrada", "tblentrades", "[equivcatalà]=" & "'" & Me!EquivCatalà & "'")

With rst
.MoveFirst

If Me!sinonimor = id Then
Me!Texto22 = Me!Texto22 & " " & !entradads
End If

End With
.MoveNext

Next
End With

Bueno me explico en teoria este codigo debera primero contar el numerro de registros de una tabla

esto funciona y me lo guiarda en la variable nombreregs

Luego en teoria deberia recorrer toda la tabla "tmpsinonim" y realizar una comprobacion.

Para realizarla

primero busco del informe donde estoy ejecutando el codigo el identificativo de un campo

id = DLookup("identrada", "tblentrades", "[equivcatalà]=" & "'" & Me!EquivCatalà & "'")

es esta parte ke tambien funciona

Lo ke kiero hacer luego es comprobar si el valor "id " es igual a un campo de la tabla tmpsinonim ke se llama sinonimor

es esta parte

If !sinonimor = id Then
Me!Texto22 = Me!Texto22 & " " & !entradads
End If

en caso afirmativo en el informe me lo agregara a un textboc el problema es ke

me!sinonimor no me lo reconoce como un campo de la tabla tmpsinonim

como hago para comparar con un miembro de esa tabla ?

en teoria habria de comprobar el id de kla tabla tmpsinonim y en caso afirmativo coger de esa misma tabla el campo entradads

gracias

Lo siento me fije bien y cometi un pequeño error

If !sinonimor = id Then

no en contraba el campo pq no es
sinonimor
es
sinònimor

XD sorry

Ya lo solucione