Results 1 to 1 of 1
  1. #1
    Join Date
    Nov 2003
    Posts
    150

    Unanswered: Code wont work after Upsizing

    Hi,

    I've just upsized my db to an adp with a MSDE 2000 back end. All went well in the process, but i now get a lot of errors from the VBA procedures in the project.

    By default, i didnt have DAO libraries referenced, so my code would be ADO already.

    My procedures are pretty simple ( they just calculate values for controls in forms ), so i'm really not sure what could have gone wrong...

    here's one of the procedures that crashes ( it stops at the line where i define the value of TextTPS and i get error 440 ):

    --------------------------------------------------------------------------------

    Private Sub Command78_Click()

    If Me!Frame60 = "1" Then
    OptionQc.Enabled = True
    OptionMaritime.Enabled = True
    OptionCan.Enabled = True

    If Me!Frame67 = "1" Then
    TextTPS.Visible = True
    TextTVQ.Visible = True
    TextTVH.Visible = False
    TextTPS.Value = Me!Items.Form!curSubtotal * 0.07
    TextTVQ.Value = (Me!Items.Form!curSubtotal * 1.07) * 0.075
    TextTVH.Value = 0
    Text42.Value = Me!Items.Form!curSubtotal + TextTPS + TextTVQ + TextTVH + curShippingCharge

    ElseIf Me!Frame67 = "2" Then
    TextTPS.Visible = True
    TextTVQ.Visible = False
    TextTVH.Visible = False
    TextTPS.Value = Me!Items.Form!curSubtotal * 0.07
    TextTVQ.Value = 0
    TextTVH.Value = 0
    Text42.Value = Me!Items.Form!curSubtotal + TextTPS + TextTVQ + TextTVH + curShippingCharge

    ElseIf Me!Frame67 = "3" Then
    TextTPS.Visible = False
    TextTVQ.Visible = False
    TextTVH.Visible = True
    TextTPS.Value = 0
    TextTVQ.Value = 0
    TextTVH.Value = Me!Items.Form!curSubtotal * 0.15
    Text42.Value = Me!Items.Form!curSubtotal + TextTPS + TextTVQ + TextTVH + curShippingCharge

    End If

    ElseIf Me!Frame60 = "2" Then
    OptionQc.Enabled = False
    OptionMaritime.Enabled = False
    OptionCan.Enabled = False
    Me!Frame67 = "4"
    TextTPS.Visible = False
    TextTVQ.Visible = False
    TextTVH.Visible = False
    TextTPS.Value = 0
    TextTVQ.Value = 0
    TextTVH.Value = 0
    Text42.Value = Me!Items.Form!curSubtotal + TextTPS + TextTVQ + TextTVH + curShippingCharge

    End If

    curBalance.Value = Text42 - Text46

    End Sub

    --------------------------------------------------------------------------------

    All of this was fully functional before the upsize...

    any ideas?

    thanks!
    Last edited by MrCrud; 02-28-04 at 13:46.
    Cheers!

    Mr.Crud

    There are 10 kinds of people, ones that understand digital, others that dont

Posting Permissions

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