Office: (Office 2016) Fehler in Abfrage "abfangen"

Klaus S. aus B. · 10. Juli 2017

Hallo zusammen,

ich habe eine Abfrage, die bei Datensätzen zu denen kein Link zu einer bestimmten Abfrage existiert, einen Fehler ausgibt.

(Ich hoffe das Bild m Anhang hilft das Problem zu verstehen, weil die Beschreibung fällt mir doch sehr schwer) *frown.gif*

Ich könnte die Abfrage dahingehend ändern, dass ich aus "LEFT JOIN" einen "INNER JOIN" mache, aber dann sehe ich eben diese DS gar nicht.
...bisschen zum Hintergrund:
Die Abfrage ist Recordsource für einen Bericht. Mit Inner Join fehlen mir die DS, für die es keine Zuordnung gibt, bei LEFT Join bekomme ich eine Fehler und der Bericht wird nicht erstellt.
Ich würde aber gerne (gerade) diese DS mit fehlender Zuordnung gerne zeigen, damit man sie nachpflegen kann.

Ich habe jetzt schon versucht innerhalb der Abfrage den Fehler abzufangen (mit Wenn(IstNull(... und Wenn(IsError(...) aber es bleibt bei "#Fehler".

Kann mir jemand einen Tipp geben?

Gruß
Klaus

:)

maikek · 11. Juli 2017

Moin,
ist die Abfrage geheim? Dem Bildchen nach sieht es so aus, als wenn du die SQLListen-Funktion im Einsatz hast?
maike

ebs17 · 12. Juli 2017

SQL kann mit fehlenden Werten (NULL) bestens umgehen. Daraus kann man die fehlermeldung nicht ableiten. Der Fehler wird eher in der von Dir formulierten Abfrage liegen.

Wenn Du das Bild in eine vollständige SQL-Anweisung abmalen würdest, könnte man vielleicht mehr dazu sagen.

Klaus S. aus B. · 12. Juli 2017

Hallo.

Hier ist die eigentliche Abfrage:

Code:

SELECT tbl_PrjOver.ID_ProjOV, tbl_DocTrans.ID_doctrans, tbl_DocTrans.Date_act, tbl_DocTrans.Comment, tbl_DocTrans.Revision, tbl_DocTrans.Trns_GAT, tbl_DocTrans.Trns_cust, tbl_docs.Document, tbl_DocName.DocName, abf_PNsmap.mapping
FROM tbl_docs INNER JOIN (tbl_PrjOver INNER JOIN (tbl_DocName INNER JOIN (tbl_DocTrans LEFT JOIN abf_PNsmap ON tbl_DocTrans.DocName_ID = abf_PNsmap.DN_ID) ON (tbl_DocName.ID_DN = tbl_DocTrans.DocName_ID)
AND (tbl_DocName.ID_DN = tbl_DocTrans.DocName_ID)) ON (tbl_PrjOver.ID_ProjOV = tbl_DocTrans.ProjOV_ID)
AND (tbl_PrjOver.ID_ProjOV = tbl_DocName.PrOV_ID)) ON tbl_docs.ID_Docs = tbl_DocTrans.doc_ID
WHERE ((([tbl_prjOver.ID_ProjOV])=76));
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und hier der Code der Abfrage "abf_PNsmap"

Code:

SELECT tbl_DocMap.DN_ID, PNmap([DN_ID]) AS mapping
FROM tbl_DocMap
GROUP BY tbl_DocMap.DN_ID;
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hilft das? Oder braucht ihr noch etwas anderes?

Gruß
Klaus

maikek · 12. Juli 2017

Die Funktion PNmap.
maike

el_gomero · 12. Juli 2017

Hallo,

auf den ersten Blick fällt mir falsche Klammersetzung in der Where-Klausel auf:

Code:

WHERE [tbl_prjOver].[ID_ProjOV]=76;
oder
WHERE tbl_prjOver.ID_ProjOV=76;

statt
WHERE ((([tbl_prjOver.ID_ProjOV])=76));
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ob das mit deinem Problem zusammenhängt hab ich aber nicht geprüft.

Klaus S. aus B. · 12. Juli 2017

Hallo Maike,

hier der Code der Funktion

Code:

Public Function PNmap(DN_ID As Integer) As String
Dim strSQL As String
' On Error GoTo err

strSQL = "SELECT tbl_PN.Proj_ID, [tbl_PN]![PN] & ""("" & [tbl_maschtyp]![Typ] & [tbl_maschtyp]![Baugr]" _
& " & "")"" AS unit, tbl_PN.PN, tbl_DocMap.DN_ID FROM (tbl_maschtyp INNER JOIN tbl_PN ON" _
& " tbl_maschtyp.ID_Mtyp = tbl_PN.Mtyp_ID) INNER JOIN tbl_DocMap ON tbl_PN.ID_PN = tbl_DocMap.PN_ID" _
& " WHERE (((tbl_DocMap.DN_ID) = " & DN_ID & ")) ORDER BY tbl_PN.PN;"

Set rs = DBEngine(0)(0).OpenRecordset(strSQL)

Do While rs.EOF = False
PNmap = PNmap & "; PN" & rs!unit
rs.MoveNext
Loop
PNmap = Mid(PNmap, 3)

Exit Function

err:
' PNmap = "no PN asigned"

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

@el_gomero: ist vielleicht unschön, funktioniert aber. Keine Veränderung bei anderer Schreibweise.

Gruß
KLaus

maikek · 12. Juli 2017

Versuch's so:
Code:

Public Function PNmap(DN_ID As Integer) As String
On Error GoTo err
Dim strSQL As String

'...

Do Until rs.EOF
PNmap = PNmap & "; PN" & nz(rs!unit, "no PN asigned")
rs.MoveNext
Loop

if len(PNmap) > 4 then
PNmap = Mid(PNmap, 5)
else
PNmap = "no PN asigned"
end if

ExitPN:
Exit Function

err:
PNmap = "no PN asigned"
Resume ExitPN

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maike

ebs17 · 12. Juli 2017

Code:

Public Function PNmap(DN_ID As Integer) As String
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

SQL kann hervorragend mit NULL umgehen, VBA und damit die verwendete Funktion aber nicht.
Variablen inkl. Funktionenargumente können nur mit NULL umgehen, wenn sie als Variant deklariert sind. Also müsstest Du die Verarbeitung von NULL in die Funktion einbauen, etwa
Code:

Public Function PNmap(ByVal DN_ID As Variant) As Variant
If IsNull(DN_ID) Then
PNmap = NULL
Else
' weiter mit bisherigem Code
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Klaus S. aus B. · 12. Juli 2017

Hallo Eberhard,

Super, das war's. Danke!!

Gruß
KLaus *Smilie

Office: (Office 2016) Fehler in Abfrage "abfangen"

Fehler in Abfrage "abfangen"

Fehler in Abfrage "abfangen"

Fehler in Abfrage "abfangen"

Fehler in Abfrage "abfangen"

Fehler in Abfrage "abfangen" - Similar Threads - Fehler Abfrage abfangen

Fehler in Abfrage

#Fehler in Abfrage

In Abfrage #Fehler abfangen

Access-Fehler: „Abfrage ist fehlerhaft“

SQL: Fehler in der Abfrage

Access 2010 - Fehler bei Spaltenvergleich in Abfrage

Access Abfragen führen zu Crash oder Fehler