get Msysobject in Access 2003

[junis]

Dear Experts,

if we want to see msysobject in Access 2003, we can use "option" "tool" and check the System Object.

the question is ... i want update the "Option" "tool" with visual basic code in application...?
cos .. if i'm not check this option, then message error " Records cannot be read; no read permission on Msysobject" is rise

well... i m really appreciate for your help

thx 4 ur attention


-junis-

[MMcCarthy]

This will set the View System Objects to true.

 
Application.SetOption "Show System Objects", True
 

Mary

Dear Experts,

if we want to see msysobject in Access 2003, we can use "option" "tool" and check the System Object.

the question is ... i want update the "Option" "tool" with visual basic code in application...?
cos .. if i'm not check this option, then message error " Records cannot be read; no read permission on Msysobject" is rise

well... i m really appreciate for your help

thx 4 ur attention


-junis-

[junis]

thank Mary,

btw .. i confused to use your code in my code
there's my code

   Private Sub UpdateCboTable(ByVal sFileMDB As String)
 
        Me.CboTable.Items.Clear()
 
        strConn ="Provider=Microsoft.jet.oledb.4.0; data source= " & sFileMDB 
        cn = New OleDb.OleDbConnection(strConn)
        cn.Open()
 
        lSQL = "SELECT Name FROM  MSysObjects " & _
                " WHERE  (Left([Name],4) <> 'MSys')" & _
                " AND ([Type] In (1, 4, 6)) ORDER BY Name"
 
        cmd = cn.CreateCommand
        cmd.CommandText = lSQL
        Reader = cmd.ExecuteReader()
 
        Do While Reader.Read()
            Me.CboTable.Items.Add(Reader.GetString(0))
        Loop
        Reader.Close()
        cn = Nothing
 
    End Sub
 

any idea with this code ...or maybe i have mistake ...

regards

-junis-

This will set the View System Objects to true.

 
Application.SetOption "Show System Objects", True
 

Mary

[MMcCarthy]

Private Sub UpdateCboTable(ByVal sFileMDB As String)
 
Me.CboTable.Items.Clear()
 
strConn ="Provider=Microsoft.jet.oledb.4.0; data source= " & sFileMDB 
cn = New OleDb.OleDbConnection(strConn)
cn.Open()
 
Application.SetOption "Show System Objects", True
 
lSQL = "SELECT Name FROM MSysObjects " & _
" WHERE (Left([Name],4) <> 'MSys')" & _
" AND ([Type] In (1, 4, 6)) ORDER BY Name"
 
cmd = cn.CreateCommand
cmd.CommandText = lSQL
Reader = cmd.ExecuteReader()
 
Do While Reader.Read()
Me.CboTable.Items.Add(Reader.GetString(0))
Loop
 
Application.SetOption "Show System Objects", False
 
Reader.Close()
cn = Nothing
 
End Sub
 

Try this ...

[junis]

i try that code ...
but i get error message

'SetOption' is not a member of 'System.Windows.Forms.Application'.

what i must do ...?
that i missed some Reference ?

[MMcCarthy]

i try that code ...
but i get error message



what i must do ...?
that i missed some Reference ?

Are you running the code from Access or Visual Basic?

[NeoPa]

Junis,

I'm sorry to say this, but although all this is true & correct, I don't believe it will help you as you will still have problems with permissions on that object when it's all done :(.

[Killer42]

I'm sorry to say this, but although all this is true & correct, I don't believe it will help you as you will still have problems with permissions on that object when it's all done :(.

Here's a post I found on another forum (which I won't name, to avoid the wrath of the moderators :)) - it may be some help. A lot depends on what environment you are working in, I expect. Are we talking about VBA? VB5? VB6? VB.Net?

If you have permissions to manipulate MS Access database then open it under the the user name which you are using to access the database from VB. (If you don't have database secured then, you don't have to worry, just open MS Access database. Then do the following:

From the Pull Down menu select
1. Tools/Options
2. Select "View" tab and make System Objects checkbox selected
3. OK
4. Go Back to Pull Down Menu and Selectÿ
Tools/Security/User and Groups permissions
5. On Permissions TAB choose Table object type from the Combobox
6. Select MSysObjects table and give it permissions to read data and read design

Save all this and you VB connection will get the permissions to do what you want to do.

It works under DAO but I believe it will work under ADO to. I didn't have time to check ADO, sorry, too busy

[junis]

actually i running this code in VB.net

and i get some example with DAO (VB 6)... and its work (without changing permission)


btw ... thanks a lot (mary, neopa & Killer42)
maybe i can find this matter in another forum ...

regards
-junis-