Results 1 to 2 of 2
  1. #1
    Silver Lounger
    Join Date
    Jun 2002
    Location
    Cheadle, Staffordshire
    Posts
    2,177
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Sub Function (A2k)

    I keep getting Sub or Function Not Defined.

    Dim X, I
    X = initstatus("Count to " & Me![Feld1], "Current value: 0", Int(Me![Feld1]))
    If X = False Then GoTo EXIT_SUB
    For I = 0 To Me![Feld1]
    X = SetStatus("Current value: " & I, I)
    If X = False Then GoTo EXIT_SUB
    Next I
    EXIT_SUB:
    X = ResetStatus()

    I'm trying out a status bar technique and the above code was converted from 97 to 2k.
    The Field [Feld1] exists on the form, references checked DAO 3.6 and can't see why this error occurs.
    The original form works from where I imported.

  2. #2
    Silver Lounger
    Join Date
    Jun 2002
    Location
    Cheadle, Staffordshire
    Posts
    2,177
    Thanks
    0
    Thanked 0 Times in 0 Posts

    No Msg, Solved

    .. I Needed to import the module also.

Posting Permissions

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