I am trying to check my database to see if there is a table already there before doing a query, but i have come across a problem, the table i am using is a system table and i dont have read permission even with Admin as the user , the moment i go in to access and chance the permission by hand it works fine
Is there anyway i cant do this in access as thi is a app i need to send to over 200 site so it will be a little hard to do it all by hand or even another way you think will work,
I will attach my code, change it if you like but if you do please tell me what the change will do in comment as i can learn
Public Sub dbu()
Dim rs As New ADODB.Recordset
Dim sql As String
sql = "select * from MSysNavPaneGroups where [name] = 'job_information'"
rs.Open(sql, cnn1, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockPessimistic)
If (rs.BOF Or rs.EOF) Then
sql = "CREATE TABLE Job_Information (ID integer PRIMARY KEY ,Joblist char(255))"
'rs.Open(sql, cnn1, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockPessimistic)
SplashScreen1.updateinfo.Text = ("Stars Datase Update (New Table,""Update"")")
MsgBox("Stars Datase Update (New Table,""Update"")")