[AccessD] why isn't this working?

Hello Jeffrey,

i will try this. thanks for the solution.

Pedro Janssen







The function would probably look something like this:

Function MyExample (mycode, mytelling)  as Double
     Dim mymultipler as double
     Select Case mycode
          Case 501
               mymultipler = 1
          Case 503
               mymultipler = 2
          Case 507
               mymultipler = 2
          Case 506
               mymultipler = .67
          Case 502
               mymultipler = .4
          Case 522
               mymultipler = .4
          Case 542
               mymultipler = .2
          Case 500
               mymultipler = 0
     End Select

     MyExample = mytelling * myultipler

End Function

The next step would be to use it in your query something like the
following:
MyExample([Code], [Telling]) AS Resultaat_Telling FROM TellingCode;


                                                                                                                                 
                    jeffrey.demulling at usbank.c                                                                                   
                    om                               To:     "Access Developers discussion and problem solving"                  
                    Sent by:                          <accessd at databaseadvisors.com>                                             
                    accessd-bounces at databasead       cc:                                                                         
                    visors.com                       Subject:     Re: [AccessD] why isn't this working?