Try AND-ing the attribute to the constant:
If (CurrentDb.TableDefs(i).Attributes And dbHiddenObject) <> 0 Then
--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.
"thread" <yaniv.dg [at] gmail.com> wrote in message
news:2b1b7b65-4364-41fa-b49b-eb8a5c942b73 [at] s8g2000prg.googleg roups.com...
>
> i'm trying to hide by database with this code:
> Application.CurrentDb.TableDefs(CurrentDb.TableDefs(i).Name) .Properties("Attributes").Value
> = dbhiddenobject
>
> from some reason it doesnt work
> the table are not hidden,does anyone have an idea what can cause this
> problem?
