I got the input box figured out, but ran into another issue. I'm pretty sure it's this line: RowNumber([TempOrderImport]![PONUMBER],[TempOrderImport]![WAREHOUSE]). The RowNumber function was intended for one parameter, whereas I need it to evaluate two fields: [PONUMBER] and [WAREHOUSE]. How do Iget the function to evaluate 2 fields?
Code:
SELECT DISTINCT TempOrderImport.PONUMBER, TempOrderImport.WAREHOUSE, RowNumber([TempOrderImport]![PONUMBER],[TempOrderImport]![WAREHOUSE]) AS RowID
FROM TempOrderImport
WHERE (((ResetRowNumber())<>False))
ORDER BY TempOrderImport.PONUMBER, TempOrderImport.WAREHOUSE;
Code:
Public Function ResetRowNumber() As Boolean
Set colPrimaryKeys = New VBA.Collection
Dim strInput As String, strInputLng As String, booNotWholeNumber As Boolean
GiveNumberRetry:
booNotWholeNumber = False
strInput = InputBox("What was the last Invoice Number Used?")
If Len(strInput) = 0 Then GoTo ExitGiveNumber
On Error Resume Next
strInputLng = CLng(strInput)
If Err > 0 Then
Err = 0
booNotWholeNumber = True
End If
If strInput <> strInputLng Then booNotWholeNumber = True
If booNotWholeNumber Then
If vbCancel = MsgBox("You should enter a Whole Number", vbExclamation + vbOKCancel) Then
GoTo ExitGiveNumber:
Else
GoTo GiveNumberRetry
End If
End If
ExitGiveNumber:
lngRowNumber = strInput
ResetRowNumber = True
End Function
Thanks!