Listbox update unknow

Freshman

Registered User.
Local time
Today, 15:59
Joined
May 21, 2010
Messages
437
Hi all,
I'm working on a app created by an unknow developer. In the one form (unbound) there is a list box being populted from the sub below.
But I can't seem to find the table or query it is refering to.
I would appreciate some advice on where to look for it.
Do I need to post extra info?

Thanks a lot

Code:
Sub updateDisplay_Item()

ItemKeyCombo.value = ""
Me.ItemDesc = ""
Me.txtCostLB = ""
Me.txtPriceLBBase = ""

Me.txtNumItems = ""
Me.lblMinQty.caption = ""

Me.txtPerItemCost = ""
Me.lblPerItemCostDtld.caption = ""

Me.txtPowderSrchgLb = ""
    
With currDisplayParams

    If Not .itemInfo Is Nothing Then
        
        ItemKeyCombo.value = .ItemKey
        Me.ItemDesc = .itemInfo.ItemDescription
        Me.txtCostLB = FormatCurrency(.itemInfo.baseCostLB, 2)
        Me.txtPriceLBBase = FormatCurrency(.itemInfo.basePriceLB, 2)
        
        If Not .frenchItemInfo Is Nothing Then

            Me.txtNumItems = .frenchItemInfo.numItemsMaterial
            Me.lblMinQty.caption = "(Min Qty. = " & FormatNumber(.frenchItemInfo.minQty, 2, vbTrue) & " lbs.)"

            If Not .frenchParams Is Nothing Then
            
                Me.txtPerItemCost = .frenchItemInfo.numItemsMaterial * .frenchParams.perItemTrxCost
                Me.lblPerItemCostDtld.caption = "(" & FormatCurrency(.frenchParams.perItemTrxCost, 2, vbTrue) & " x " & .frenchItemInfo.numItemsMaterial & " Items)"
            
            End If

        End If
        
    End If

End With

End Sub
 
check the Class section.
it is using custom data structure.
 
Thanks that helped a bit. Gosh this code is confusing - very little notes.
 
If you post some of the code or a copy of the database, I'm sure readers can help with logic and comments.
 
If you post some of the code or a copy of the database, I'm sure readers can help with logic and comments.
Thanks ArnelGP provided enough for me to go on
 

Users who are viewing this thread

Back
Top Bottom