Results 1 to 2 of 2
  1. #1
    4 Star Lounger
    Join Date
    Jun 2001
    Posts
    531
    Thanks
    0
    Thanked 0 Times in 0 Posts

    array not being recognized (97)

    array not being recognized
    I

  2. #2
    4 Star Lounger
    Join Date
    Jun 2001
    Posts
    531
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: array not being recognized (97)

    I fixed above so far with this:

    ***Standard code module:***
    Option Compare Database
    Option Explicit
    'assign an array to hold taxes to be locked...
    Public aryTax(3) As String

    'lock taxes on promoPreAapproval/Cpr tab...
    Public Function lockTaxes(GlobalRegionCode As Variant)

    'determine taxes to lock...
    Select Case GlobalRegionCode
    Case "1099"
    '1099" has all taxes open...
    Case "1199"
    'has all taxes open...
    Case "1299"
    'has GST & PST open...
    aryTax(0) = ("QST")
    aryTax(1) = ("HST")
    Case "1399"
    'has GST & PST open...
    aryTax(0) = "QST"
    aryTax(1) = "HST"
    Case "1499"
    'has GST,PST,QST open...
    aryTax(0) = "HST"
    Case "1599"
    'has HST open
    aryTax(0) = "GST"
    aryTax(1) = "PST"
    aryTax(2) = "QST"
    End Select

    End Function

    ***Forms open event***
    Private Sub Form_Open(Cancel As Integer)

    'lock taxes based upon region...
    Call lockTaxes(GlobalRegionCode)

    Dim intI As Integer

    For intI = 0 To 3
    Me("Forecast" & aryTax(intI)).Locked = True
    Next
    End sub

    I

Posting Permissions

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