I need a code to run in a query to give me box X of X. For example.
Id           description          total boxes       Box X of X
1             test 1                3                      Box 1 of 3
1             test 2                3                      Box 2 of 3
1             test 3                3                      Box 3 of 3
2             test 4                2                      Box 1 of 2
2             test 5                2                      Box 2 of 2    

I can get the total boxes in the query by grouping and counting, but I cant get the Box x (Box X of X). I need to write the Box X of X to a table.

Try this:

Dim strIN As String
Dim intBox As Integer

strIN = "Box 2 of 3"
intBox = CInt(Trim(Mid$(strIN, 4, InStr(1, strIN, "of") - 4)))



____________________________
multi-tasking - the ability to hang more than one app. at the same time.