Update-query på MSysObjects

Jeg er ikke vant til at bruge MsysObjects-tabellen men skal denne

UPDATE MSysObjects SET MSysObjects.Name = Mid([Name],10)
WHERE (((MSysObjects.Name) Like "SM92TEST_*"));

ikke være

UPDATE MSysObjects SET MSysObjects.Name = '" & Mid([Name],10) & "'
WHERE (((MSysObjects.Name) Like "SM92TEST_*"));

Alternativ kan tabellernes loopes igennem via en funktion.

Mid([Name],10) er allerede en tekststreng, og skal derfor ikke i "".

Helt ok, hvad med at loope gennem tabellerne og rename dem.
Kan du bruge noget i stil med:

Dim db          As DAO.Database
Dim tdf        As TableDef

Set db = CurrentDb

For Each tdf In db.TableDefs
    'Er det et linked table så er connect-propertys længde > 0
    If Len(tdf.Connect) > 1 Then
    If left(tdf.name,9)="SM92TEST_" Then
            tdf.name = Mid(tdf.name,10)
    End if
    End If
Next

set db = nothing


(ikke selv testet det)