Code omzetten naar een functie

[Dolfke]

Hallo allemaal ,

Ik heb volgende code in een control source staan

=IIf(IsNull([cboServiceCategoryTypeID]),"",IIf([ExclusiveUse]=Yes,DLookUp("PriceExclusiveUsage","TBLReservationPrice","ServiceCategoryTypeID = " & [cboServiceCategoryTypeID] & " AND CooperationTypeID = " & Forms!FrmUsageFacility!CooperationType.column(3)),DLookUp("PriceNonExclusiveUsage","TBLReservationPrice","ServiceCategoryTypeID = " & [cboServiceCategoryTypeID] & " AND CooperationTypeID = " & Forms!FrmUsageFacility!CooperationType.column(3))))

Hoe kan ik hier een functie van maken en deze dan oproepen via mijn controlsource of misschien via een query ?


Bedankt

mvg Romain

 

[Guus2005]

Als je er niet uitkomt hoor ik het wel.

Public Function aap(lngServiceCategoryTypeID As Long, lngCooperationTypeID As Long, blnExclusiveUse as boolean) As String

    If IsNull(lngServiceCategoryTypeID) Then
        aap = ""
    ElseIf blnExclusiveUse Then
        aap = DLookup("PriceExclusiveUsage", "TBLReservationPrice", "ServiceCategoryTypeID = " & lngServiceCategoryTypeID & " AND CooperationTypeID = " & lngCooperationTypeID)
    Else
        aap = DLookup("PriceNonExclusiveUsage", "TBLReservationPrice", "ServiceCategoryTypeID = " & lngServiceCategoryTypeID & " AND CooperationTypeID = " & lngCooperationTypeID)
    End If

End Function

Je aanroep wordt dan:

=aap([cboServiceCategoryTypeID],Forms!FrmUsageFacility!CooperationType.column(3), [ExclusiveUse])

In plaats van aap, mag je de functienaam ook noot of mies of wim noemen.

HTH

 

[Dolfke]

Hallo Guus,

Het werkt zogoed als perfect.
Krijg het maken van functies maar niet onder de knie.

Ik heb wel een klein foutje nog.
Ik werk met een continuous form en in mijn eerst nieuwe record krijg ik telkens een error .
Maar dit vindt ik wel


Bedankt , Super :thumb:

Groetjes
Romain