Office: (Office 2016) Abfrage Kriterien in VBA Rückgabewert

Moin,
ich habe in einer Abfrage eine VBA Funktion die mir einen Rückgabewert als Long liefert. Will ich nun in der Abfrage in den Kriterien z.B. den Wert 1 filtern so bekomme ich die Fehlermeldung:

Datentypenkonflickt in Kriterienausdruck

Ich habe es auch schon mit einen Boolean Wert versucht, auch kein Erfolg.

Der Hintergrund: Die Abfrage ist Datengrundlage für ein tabellarisches Formular in dem die Daten zwingend geändert werden müssen.

Das zu filternde Feld befindet sich in einer Tabelle, die nicht Teil der Abfrage ist, daher selektiere ich den Wert mit VBA. Nehme ich die Tabelle mit in die Abfrage auf, so wird der Recordset nicht mehr veränderbar.

Vielen lieben Dank für Eure Ideen

:)

 

Ist schon geklärt, ob der Fehler in der Abfrage oder in der Funktion auftritt?
Hast Du die Funktion schon z.B. im Direktfenster getestet?
Stimmen in der Abfrage die Datentypen der Felder, die an die Funktion übergeben werden, mit Datentypen der Funtionsparameter überein?

 

Der Fehler tritt in der Abfrage auf, der Rückgabewert wird auch richtig angezeigt. Ich bekomme den Fehler dann, wenn ich das Kriterium in die ensprechene Spalte eintrage.

 

Ja ich habe beides mit Long oder Boolean ausprobiert, leider ohne Erfolg

 

Hallo,
zeige bitte Deine Versuche in VBA und SQL (Abfrage).

 

So hier wäre das SQL

SELECT INFO_AUFTRAG_KOTHESELEKTION([FKKSAGNR],1) AS Kothe, TBKOTHESCHEINE.*, INFO_AUFTRAG([FKKSAGNR],1) AS Farbe, TBAUFTRAG.IDAGNR, INFO_AUFTRAG([FKKSAGNR],2) AS Rohdatum
FROM TBKUNDEN INNER JOIN (TBAUFTRAG INNER JOIN TBKOTHESCHEINE ON TBAUFTRAG.IDAGNR = TBKOTHESCHEINE.FKKSAGNR) ON TBKUNDEN.IDKDNR = TBAUFTRAG.FKAGKDNR
WHERE (((INFO_AUFTRAG_KOTHESELEKTION([FKKSAGNR],1))=1) AND (Not (TBKOTHESCHEINE.KSGEDRUCKT) Is Null) AND ((TBKOTHESCHEINE.KSZURUECK) Is Null))
ORDER BY INFO_AUFTRAG([FKKSAGNR],1), TBAUFTRAG.IDAGNR;

 

Und hier die kleine Funktion mit einem Rückgabewert Long

Public Function INFO_AUFTRAG_KOTHESELEKTION(vIDAGNR As Long, vArt As Long) As Long
'*****************************************************************
'*** Maik Ramftel
'*** 2020-10-13
'*** #458
'*** Zeigt den Rückgabewert für die Oberflächenverfolgung
'*****************************************************************
If DEBUGMODUS = False Then
On Error Resume Next
End If

Dim sql As String, tb As Recordset, vAnzahl As Long

Select Case vArt
Case Is = 1
'*** Selektiere die Farbinfos, ich gehe davon aus das alle Seiten des Fertigungsauftrages gleich sind, daher selektiere ich die Daten der ersten Seite ***
sql = "SELECT TBFERTIGUNGSAUFTRAG.FKFAAGNR, TBFERTIGUNGSAUFTRAG.FASEITE, TBOBERFLAECHEN.OBKOTHE FROM TBOBERFLAECHEN INNER JOIN TBFERTIGUNGSAUFTRAG ON TBOBERFLAECHEN.IDOBNR = TBFERTIGUNGSAUFTRAG.FKFAOBNR WHERE (((TBFERTIGUNGSAUFTRAG.FKFAAGNR)=" & vIDAGNR & ") AND ((TBFERTIGUNGSAUFTRAG.FASEITE)=1));"
Set tb = CurrentDbC.OpenRecordset(sql, dbOpenDynaset, dbSeeChanges, dbOptimistic)
vAnzahl = tb.RecordCount
If vAnzahl >= 1 Then
INFO_AUFTRAG_KOTHESELEKTION = tb![OBKOTHE]
End If
End Select


Exit Function
Fehler:
MsgBox Err.Description, , MSGBOXTITEL

End Function

 

Lade das als Beispiel hoch.
Erscheint mir alles etwas umständlich.
Die Prüfung auf >1, das Bilden des Recordsets, SElect case...

Im string brauchst du nur ein Feld, Obkothe bildet den Rückgabewert der Funktion, die anderen 2 Felder im SElect sind unnötig.
sql ist reserviert und solltest eher strSQL verwenden. Sind nur formale Hinweise, hat nix mit dem Fehler zu tun.


Code:

 

Die beiden anderen Where Elemente sind natürlich notwendig, hochladen kann ich hier nichts, das ist Teil einer DB. SQL oder strsql spielt hier keine Rolle.

Du kannst ein beliebige Function im vba erstellen und ein Kriterium in der Abfrage in der Spalte mit der Rückgabe nutzen, geht scheinbar grundsätzlich nicht...

 

P.S. in der Funktion ist nur der Case=1 die anderen habe ich nicht mit hochgeladen da nicht relevant.

 

ehm, logisch ist das Teil einer DB.
Ohne die Struktur der Tabelle zu sehen, kann man hier keine Aussage treffen.

Exportiere die 3 (?) Tabellen in eine DB, die Abfrage und die 3(!) Funktionen im SQL-String und lade das Teil hoch (ohne sensible Daten).

Um das WHERE Kriterium über diese beiden Felder zu bilden, müssen diese aber nicht im Select mit aufgeführt sein.

Sind die Felder, die die Parameter der Funktion liefern alle gefüllt in der Tabelle ??
Halte ich für die wahrscheinlichste Erklärung des Fehlers.

Hatte ich bereits erwähnt, dass das formale Hinweise sind. SQL als Variablenbezeichner sollte man nicht verwenden, da reserviertes Wort.

 

Die Codedarstellung ist sehr unübersichtich, etwas in dieser (lieblosen) Form mag man nicht wirklich lesen.

Bezüglich VBA-Funktion:
On Error Resume Next ... sollte man doch für eine Fehlerfindung deaktivieren können (Finden Ignorieren).
Daneben kann VBA nicht so locker mit NULL umgehen wie SQL. Daher sollte man prüfen, was man an Variablen/Argumenten, die nicht als Variant deklariert sind, übergibt und was daraus folgen kann.

 

Die Diskussion geht hier in die falsche Richtung. Es geht um die Grundsatzfrage warum ich in einer Abfrage nicht in einer Spalte selektieren kann die den Rückgabewert einer Funktion beinhaltet.

 

Wie schon anders formuliert: Ich würde erst einmal überprüfen, ob die Spalte vollständig von Dir erwartete Rückgabewerte enthält und nicht vielleicht doch so etwas wie #Fehler.
Erst die vollständig fehlerfreie Spalte würde ich in einer Filterung benutzen wollen. SQL ist Massendatenverarbeitung - alles auf einmal.

Grundsätzlich wird eine Filterung funktionieren, wenn man nötige Bedingungen einhält.

Bei Grundsätzen, die Dich selber betreffen (... warum ich ...), kann man nicht so leicht urteilen.

 

Das funktioniert problemlos.

Auch folgende Annahme ist falsch:

Außerdem solltest du in der Funktion die Werte ByVal übergeben.
Überhaupt würde ich das mit einer Abfrage lösen.
Die Werte aus TBKOTHESCHEINE sollten problemlos bearbeitbar sein.