Results 1 to 2 of 2
  1. #1
    2 Star Lounger
    Join Date
    Apr 2005
    Location
    Plovdiv
    Posts
    109
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Replace with constant (Access 2000)

    I want to insert the constant rate into my line of code however
    i get the message that i have a syntax error.May i ask for help ?


    Public Const rate As Double = 10

    Public Function ResetAutonumber()
    CurrentDb.Execute "ALTER TABLE Customers1 ALTER COLUMN Customerid COUNTER(rate,1)"
    End Function

  2. #2
    Gold Lounger
    Join Date
    Feb 2001
    Location
    Sint Niklaas, Belgium
    Posts
    2,778
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Replace with constant (Access 2000)

    Change your line to :

    CurrentDb.Execute "ALTER TABLE Customers1 ALTER COLUMN Customerid COUNTER(" & rate & ",1)"
    Francois

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •