Hallo Florian,
hab diesen Thread grade erst entdeckt. Bin in letzter Zeit nicht mehr so oft online.
Der Kompilierfehler "ByRef" unverträglich bedeutet meistens dass die übergebene Variable (hier xID) und der erhaltene Parameter verschiedene Datentypen haben. Ein Beispiel:
Sub metest()
Dim xid As Variant
If Test(xid) Then
End If
End Sub
Function Test(mein As Long)
End Function
Wenn du nun auf Kompilieren oder Ausführen klickst erhältst du ByRef unverträglich.
Du hast nun zwei Möglichkeiten: Entweder du passt die Datentypen aneinander an oder du setzt einfach ein ByVal vor den Parameter in der Function. Suche also mit STRG + F nach Function StudyExists am besten im gesamten Projekt, da diese Function offenbar in einem anderen Modul steht. und ersetze wie folgt:
Public Function StudyExists(ByVal Parameter as Irgendwas) as Boolean
wobei Parameter un Irgendwas natürlich Platzhalter für deine Variable und deren Datentyp sind die du nicht verändern solltest.
PS: Nz ist ebenso eine Function die wohl irgendwas umwandelt. Leider habe ich auch kein Access und kann dir daher nicht sagen ob es eine Userfunction oder eine eingebaute Function ist. Musst du selbst rausfinden indem du nach Function Nz suchst.
Gruß Mr. K.
|