[AccessD] Select case is too cumbersome

Why not this?

Public Function Load_Financials(intCaseno As Integer, strpathname As
String)
	Select Case intCaseno
		Case 1
			Call SubroutineForFirstCase(strpathname)
		Case 2
            	Call SubroutineForSecondCase(strpathname)
			.
			.
			.
		Case n
			Call SubroutineForNthCase(strpathname)
	End Select
End Function

Private Sub SubroutineForFirstCase(strpathname as string)
	'Do some work.
End Sub

Scott Marcus
TSS Technologies, Inc.
marcus at tsstech.com
 




NOTICE:  This electronic mail transmission is for the use of the named individual or entity to which it is directed and may contain information that is privileged or confidential.  If you are not the intended recipient, any disclosure, copying, distribution or use of the contents of any information contained herein is prohibited.  If you have received this electronic mail transmission in error, delete it from your system without copying or forwarding, and notify the sender of the error by replying via email or by calling TSS Technologies at (513) 772-7000, so our address record can be corrected.   

Any information included in this email is provided on an “as is” and “where is” basis, and TSS Technologies makes no representations or warranties of any kind with respect to the completeness or accuracy of the information contained in this email, or with respect to any other matters communicated in this email.  TSS Technologies hereby disclaims any and all express or implied warranties of any kind.  Nothing in this email shall be construed to create any kind of contractual or binding agreement or commitment by or on behalf of TSS Technologies, Inc., the recipient, or any third-parties.