Moin Moin,
ich habe ein Problem mit einer Abfrage in Access, wo ich eine eigene Funktion in VBA programmiert habe. Die will mein Programm nicht ausführen, weil er sie nicht findet. Es geht darum, dass ich Group_Concatenate per VBA in Access integriert habe und das wiederum in einer Abfrage verwende.
In meinem Programm rufe ich dann die Abfrage auf, was mit der Meldung "~ Finde Funktionen nicht ~" scheitert.
Hier die VBA-Funktion
Jetzt habe ich schon ein wenig gegoogelt und scheinbar gibt es keine Lösung für das Problem. Hat von Eucher einer eine Idee, wie ich mein Ziel trotzdem erreichen kann.
Mein Ziel ist quasi unten angehängte Abfrage so in meinem Programm wieder zu geben. Ohne diese Abfrage hätte ich redundante Datensätze und das will ich verhindern.
ich habe ein Problem mit einer Abfrage in Access, wo ich eine eigene Funktion in VBA programmiert habe. Die will mein Programm nicht ausführen, weil er sie nicht findet. Es geht darum, dass ich Group_Concatenate per VBA in Access integriert habe und das wiederum in einer Abfrage verwende.
In meinem Programm rufe ich dann die Abfrage auf, was mit der Meldung "~ Finde Funktionen nicht ~" scheitert.
Hier die VBA-Funktion
VB.NET-Quellcode
- Public Function TourConcat(pustr_Prefix As String, pustr_Nr As String)
- Dim str_SQL As String
- Dim str_Ergebnis As String
- Dim ado_RS As New ADODB.Recordset
- str_SQL = "SELECT TOP 5 Kundenort FROM abf_Touren_Auftrag_Kunden WHERE " & _
- "TourPrefix = '" & pustr_Prefix & "' AND " & _
- "TourNr = '" & pustr_Nr & "' " & _
- "GROUP BY Kundenort ORDER BY Kundenort"
- ado_RS.Open str_SQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
- While ado_RS.EOF = False
- If str_Ergebnis = "" Then
- str_Ergebnis = ado_RS!Kundenort
- Else
- str_Ergebnis = str_Ergebnis & ", " & ado_RS!Kundenort
- End If
- ado_RS.MoveNext
- Wend
- ado_RS.Close
- Set ado_RS = Nothing
- TourConcat = str_Ergebnis
- End Function
Jetzt habe ich schon ein wenig gegoogelt und scheinbar gibt es keine Lösung für das Problem. Hat von Eucher einer eine Idee, wie ich mein Ziel trotzdem erreichen kann.
Mein Ziel ist quasi unten angehängte Abfrage so in meinem Programm wieder zu geben. Ohne diese Abfrage hätte ich redundante Datensätze und das will ich verhindern.