Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

Sie haben einen Ausdruck eingegeben, der einen ungültigen Verweis auf die Form/Report-Eigenschaft enthält

Der Fehler wird ausgegeben, wenn ich einen SQL String aus einem Hauptformular in die Recordsource einem Unterformular schreiben möchte




Im Code geschieht es genau, dann wenn der SQL zugewiesen wird.

Public Sub fp_Aktualisiere_UF_Customers(parProjectID)

'------------< fp_Aktualisieren() >------------

Dim sSQL As String

If parProjectID <> 0 Then

'----< Customers+Project >----

sSQL = "SELECT CustomerIDsp, Firstname, Lastname, Zip, City, Street"

sSQL = sSQL & vbCrLf & " , NOT ISNULL((SELECT -1 FROM tbl_BASE_Projects_Customers"

sSQL = sSQL & vbCrLf & " WHERE ProjectIDsp = " & parProjectID & " And tbl_BASE_Projects_Customers.CustomerIDsp = tbl_BASE_Customers.CustomerIDsp"

sSQL = sSQL & vbCrLf & " )) AS InList"

sSQL = sSQL & vbCrLf & " FROM tbl_BASE_Customers"

sSQL = sSQL & vbCrLf & " ORDER BY Lastname;"

'----</ Customers+Project >----

Else

'----< nur Project-Join >----

sSQL = "SELECT tbl_BASE_Customers.CustomerIDsp, Firstname, Lastname, Zip, City, Street"

sSQL = sSQL & vbCrLf & " FROM tbl_BASE_Customers"

sSQL = sSQL & vbCrLf & " INNER JOIN tbl_BASE_Projects_Customers"

sSQL = sSQL & vbCrLf & " ON tbl_BASE_Projects_Customers.CustomerIDsp=tbl_BASE_Customers.CustomerIDsp"

sSQL = sSQL & vbCrLf & " WHERE tbl_BASE_Projects_Customers.ProjectIDsp=" & parProjectID

sSQL = sSQL & vbCrLf & " ORDER BY Lastname;"

'----</ nur Project-Join >----

End If

'< Anzeigen >

ctlUF_Customers.Form.RecordSource = sSQL

'</ Anzeigen >

'------------</ fp_Aktualisieren() >------------

End Sub




Der Debugger zeigt, dass das Unterformular probleme hat




Lösung: Man baut eine Kontrolle ein, die prüft, ob das Element überhaupt sichtbar ist.
Hier ist allerdings die Section(0) die Ursache des Problems

Public Sub fp_Aktualisiere_UF_Customers(parProjectID)

'------------< fp_Aktualisieren() >------------

'< Kontrolle >

If ctlUF_Customers.Visible = False Then

Exit Sub

End If

If Section(0).Visible = False Then

Exit Sub

End If

'</ Kontrolle >

Dim sSQL As String

If parProjectID <> 0 Then

'----< Customers+Project >----

sSQL = "SELECT CustomerIDsp, Firstname, Lastname, Zip, City, Street"

..

sSQL = sSQL & vbCrLf & " ORDER BY Lastname;"

'----</ Customers+Project >----

Else

'----< nur Project-Join >----

sSQL = "SELECT tbl_BASE_Customers.CustomerIDsp, Firstname, Lastname, Zip, City, Street"

..

sSQL = sSQL & vbCrLf & " ORDER BY Lastname;"

'----</ nur Project-Join >----

End If

'< Anzeigen >

ctlUF_Customers.Form.RecordSource = sSQL

'</ Anzeigen >

'------------</ fp_Aktualisieren() >------------

End Sub


Mobile
»
ok Timestamp Access Fehlermeldung: Schreibkonflikt: Dieser Datensatz wurde seit Beginn der Bearbeitung von einem anderen Benutzer geändert
»
Access Fehler: Datentypenkonflikt in Kriterienausdruck
»
Access Fehler: Zahl oder Überlauf
»
Fehler Access: Abfrage ist beschädigt, Laufzeitfehler 3340
»
Access Fehlermeldung: Could not delete from specified tables
»
Problem: Microsoft Office Programme werden im Dateiexplorer nicht erkannt
»
OK: Laufzeitfehler -2147217887 80040e21
»
Access fehler: Dieser Datensatz wurde seit Beginn der Bearbeitung von einem anderen Benutzer geändert.
»
Access Crash beim Schliessen eines Fensters.
»
Fehlercode 94: Invalid Use of Null

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de