Finde sourcetabellen

FROM angiver tabelnavnene

Select *
FROM Varer

vælger f.eks. alle felter fra tabellen Varer

Recordsource får du med denne uanset om det er en tabel eller forespørgsel:

MsgBox Me.RecordSource

Hvis du har en Select som Recordsource er det jo straks mere bøvlet. Nedenstående har en Select som forespørgsel, men resultatet giver Tabel1, da det er der Select kommer fra:

Dim resultat As String, VARa As String, VARb As Byte, Streng As String, reasultat1 As String
Streng = Me.RecordSource
VARb = Len(Streng)
resultat1 = InStr(Streng, " ")
resultat = InStr(Streng, ".")
VARa = resultat - resultat1
MsgBox Mid(Streng, 8, resultat1)

can I ask why this is necessary Hugo? It would be easy enough to parse the SQL and find a single table but if there are multiple joins or even joins onto other queries then its not so easy.

Terry>  I have mailed you a detailed description of the problem.
I have tried to put it here, but it must contain to much text since Eksperten won't store it :-)

Hvis du smider et svar også Terry så vil jeg godt dele point til jer for konstruktivt input.

:o)

Det var da ikke et svar :-)

(o: