#

Access Fehlermeldung: Laufzeitfehler 2455 Formular Eigenschaften

 Date 25.03.2015 Views 10.700

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

.
soap2day