Error: Assignment to Constant

[IagreeOK]

'This is declared at the module level (Declarations)
Global Const Mytable = vbRSTypeTable

'This is my Sub_Main and it is in the same module

Dim Wheresitat$
'***Get where the databases are*******
Wheresitat = app.Path & "\OnABC.Mdb"
Set PayDB = OpenDatabase(Wheresitat$, False)
Set Mytable = PayDB.OpenRecordset("FilesAreAt&quot
Mytable.MoveFirst
DBSAreAt$ = Mytable("FilesAreAt&quot

Question: I run this and get
Compile error:
Assignment to constant Not permitted When it sets
MyTable.

Can someone please explain to me why? Thank You sooo much

 

[edderic]

Wheresitat = app.Path & "\OnABC.Mdb"
Set PayDB = OpenDatabase(Wheresitat$, False)
Set Mytable = PayDB.OpenRecordset("FilesAreAt&quot
Mytable.MoveFirst
DBSAreAt$ = Mytable("FilesAreAt&quot

Its DAO :

its easay to declare as Option Explicit then
Dim Wheresitat$

So Dim Wheresitat As String

<Wheresitat = app.Path & &quot;\OnABC.Mdb&quot;
<Set PayDB = OpenDatabase(Wheresitat$, False)
change it to :

Wheresitat = app.Path & &quot;\OnABC.Mdb&quot;
Set PayDB = OpenDatabase(Wheresitat, False,False)

<Set Mytable = PayDB.OpenRecordset(&quot;FilesAreAt&quot

change it to :

Set Mytable = PayDB.OpenRecordset(&quot;FilesAreAt&quot;,DBOpenDynaset)




Eric De Decker
vbg.be@vbgroup.nl

License And Copy Protection AxtiveX.

Download Demo version on my Site:

http://www.createsoftware2000.com