Functie ongedefineerd in Excel / Access

[AatB]

Forum,

ik heb in een access datebase een functie toegevoegd;
Deze functie geeft de maximale waarde van twee gegevens.

In een Access query gebruikt ik deze functie.
Als ik nu een koppeling in Excel maak (middels een query) naar deze Access query, dan krijg ik de foutmelding dat de functie Maximum ongedefinieerd is....
Kunnen jullie aangeven wat ik moet doen om dit probleem op te lossen?

mvg,

Aat

Public Function Maximum(ParamArray FieldArray() As Variant)
   ' Declare the two local variables.
   Dim I As Integer
   Dim currentVal As Variant

   ' Set the variable currentVal equal to the array of values.
   currentVal = FieldArray(0)

   ' Cycle through each value from the row to find the largest.

   For I = 0 To UBound(FieldArray)
      If FieldArray(I) > currentVal Then
         currentVal = FieldArray(I)
      End If
   Next I

   ' Return the maximum value found.
   Maximum = currentVal

End Function

 

[ReneDirks]

Definieer je functie ook even in een excel vba module, dan zou het wel moeten werken

Als het altijd maar twee gegevens zijn waar je het maximum van moet bepalen, dan kun je dat sneller zo doen:

Public Function Max(a as variant, b as variant) as variant
  if a > b then
     Max = a
  else
    Max = b
end function

 

[AatB]

Definieer je functie ook even in een excel vba module, dan zou het wel moeten werken

Als het altijd maar twee gegevens zijn waar je het maximum van moet bepalen, dan kun je dat sneller zo doen:

Public Function Max(a as variant, b as variant) as variant
  if a > b then
     Max = a
  else
    Max = b
end function

Thanks, we gaan dat proberen...

mvg,

Aat

 

[AABE]

Thanks, we gaan dat proberen...

mvg,

Aat

Helaas dat werkt niet.
Excel blijft de foutmelding geven.
Waar definieer ik precies in excel de functie?

 

[ReneDirks]

In een module - in 2000/2003 (Alt-F11, rechtsklikken op VBA project en dan invoegen/module)

 

[AatB]

In een module - in 2000/2003 (Alt-F11, rechtsklikken op VBA project en dan invoegen/module)

Dat had ik ook gedaan, maar excel blijft de foutmelding geven.

mvg,

Aat