Freshman
Registered User.
- Local time
- Today, 19:49
- 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
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