Recent content by AlbertWorld

Method for restoring all hidden tables Function UnHideAllTables() Dim tdf As TableDef For Each tdf In CurrentDb.TableDefs If tdf.Name Like "msys*" Then Else tdf.Attributes = 0 End If Next tdf Set tdf = Nothing End Function

Hello there