Har en liten function som ska ersätta angiven text i Accessdatabas. Funktionen tillverkades för lite mer än ett år sedan och då fungerade allt som det ska - nu plötsligt får jag följande meddelande;

Compile error:
Sub or Function not defined.


Här är funktionen:


'Mottager det inmatade värdet MittNamn och letar upp det för matchning i FirstaBladet (som är accesstabellens namn).

Private Function SQLText(Value As String) As String
If Len(Value) > 0 Then
SQLText = "'" & Replace(Value, "'", "''") & "'"
Else
SQLText = "Null"
End If
End Function

Har du funktionen i en modul? Isåfall ska det vara Public Function istället för Private.

/Micke

Ja, den ligger i en modul.

Provade med Public Function MEN

Den gnäller om det där "Replace" - att det är mishmash.


Provade att skriva
Dim Replace As Variant

går inte heller.

Hmmm, nu är det krångligt.

Ska jag kanske lägga koden under ett sheet? Och strunta i modulen...

Eller kanske får jag något annat tips

Jag kan ju posta hela koden från början till slut om det hjälper något?

Med vänlig hälsning!