How to look up for the correct price base on qty

It would certainly help if the question made more sense... or if the Table name were provided... or you told us where you were trying to use the info.
In the absence of all that I will just have to guess.
I'm assuming you are entering the quantity on a form in the text box txtQty and you want to populate the label lblPrice.
The table used is tblPrice and the product code is displayed on the form in txtProduct.
I'm also assuming that the record layout is as shown ([Part No],[Qty] & [Price]).

It would certainly help if the question made more sense... or if the Table name were provided... or you told us where you were trying to use the info.
In the absence of all that I will just have to guess.
I'm assuming you are entering the quantity on a form in the text box txtQty and you want to populate the label lblPrice.
The table used is tblPrice and the product code is displayed on the form in txtProduct.
I'm also assuming that the record layout is as shown ([Part No],[Qty] & [Price]).

Expand|Select|Wrap|Line Numbers

1. Private Sub txtQty_AfterUpdate()
2.     Dim curPrice As Currency
3.     Dim strWhere As String, strResult As String
4.  
5.     strResult = "Format([Qty],'0000000000') & [Price]"
6.     strWhere = "(([Part No]='" & txtProduct & "') AND " & _
7.                 "([Qty]<=" & txtQty & "))"
8.     curPrice = CCur(Mid(DMax(strResult, "tblPrice", strWhere), 11))
9.     lblPrice.Caption = Format(, "Currency")
10. End Sub

Sorry for not giving you more detail as I was too work out on the problem and forget to provide you more detail, But you have guess 100% correctly, and thank for that hard to find coding, and exactly what I want, I have tried it out, it work.

Thank You So Much and Happy New Year to You.

You're welcome.

Happy New Year :)