GPGeorge
George Hepworth
- Local time
- Today, 03:04
- Joined
- Nov 25, 2004
- Messages
- 2,968
Again, I truly appreciate everyone's input and efforts. This is what I've decided to do.
First, there's no doubt that those that recommended normalizing the database and using a separate table are telling me the "right" way to approach this. I use quotation marks, because even though I understand and fully agree that it's technically the correct approach, after careful consideration I don't think it's the best solution for me in this instance. I really need the data on one screen, and any subform situation will be awkward and impractical for my particular needs.
I searched around and found this excellent code from Allen Browne that does exactly what I need it to do, and at the same time it allows me the relatively simple entry process on the screen.
Code:Function MinOfList(ParamArray varValues()) As Variant Dim i As Integer 'Loop controller. Dim varMin As Variant 'Smallest value found so far. varMin = Null 'Initialize to null For i = LBound(varValues) To UBound(varValues) If IsNumeric(varValues(i)) Or IsDate(varValues(i)) Then If varMin <= varValues(i) Then 'do nothing Else varMin = varValues(i) End If End If Next MinOfList = varMin End Function
I can maintain the simplicity of entry I want, and still get the answers that I need.
I am not disputing the correctness of what was offered. You guys are right on. It's simply a command decision on my part that I'm making for this particular application. Even though not technically correct, I think it will provide me with the most benefit overall.
Thank you all again for taking the time to work with me on this. I have the highest respect for all of you.
Unfortunately, there's no way to show you ahead of time what the consequences are going to be. As I posted earlier, it's a matter of the number of future billable hours of work that will be required when Safeco goes out of business and you have to add a new field for the replacement company.
The Parable of the Beautiful Tree