Aktion OpenForm wurde abgebrochen in ACC03

02/11/2009 - 08:33 von Hubert Holler | Report spam
Ich verwende eine Filterfunktion in einem Formular
Wenn ich jetzt die Filteraktion durchführe bekomme ich immer die
Meldung "Aktion OpenForm wurde abgebrochen".

Diese Aktion wird aber vorher ausgeführt werden, dann wird erst meine
Klick Aktion durchgeführt.
Hier der Code für den Filter:

Private Sub Befehl30_Click()

If Not IsNull(Me!bezsu) Then
swhere = "(bezeichnung Like """ & Me!bezsu & "*"") and "
If Zahl = 1 Then
OrderBy = "bezeichnung"
OrderByOn = True
Zahl = 0
End If
End If
If Not IsNull(Me!nrsu) Then
swhere = swhere & "(artikelnummer Like """ & Me!nrsu & "*"") and "
If Zahl = 2 Then
OrderBy = "artikelnummer"
OrderByOn = True
Zahl = 0
End If
End If

iLen = Len(swhere) - 5 ' Without trailing " And "
If iLen <= 0 Then
Me.FilterOn = False ' No criteria entered: remove filter
Else
Me.Filter = Left$(swhere, iLen)
Me.FilterOn = True
End If

Das Feld artikelnummer und bezeichnung sind zwei Textfelder.

Hoffe da kann mir jemand weiterhelfen, wo da das Problem liegen
könnte.
Vielen Dank für jede Antwort
 

Lesen sie die antworten

#1 Peter Doering
02/11/2009 - 15:13 | Warnen spam
Hallo,

Hubert Holler wrote:

Ich verwende eine Filterfunktion in einem Formular
Wenn ich jetzt die Filteraktion durchführe bekomme ich immer die
Meldung "Aktion OpenForm wurde abgebrochen".

Diese Aktion wird aber vorher ausgeführt werden, dann wird erst meine
Klick Aktion durchgeführt.
Hier der Code für den Filter:

Private Sub Befehl30_Click()

If Not IsNull(Me!bezsu) Then
swhere = "(bezeichnung Like """ & Me!bezsu & "*"") and "
If Zahl = 1 Then
OrderBy = "bezeichnung"
OrderByOn = True
Zahl = 0
End If
End If
If Not IsNull(Me!nrsu) Then
swhere = swhere & "(artikelnummer Like """ & Me!nrsu & "*"") and "
If Zahl = 2 Then
OrderBy = "artikelnummer"
OrderByOn = True
Zahl = 0
End If
End If

iLen = Len(swhere) - 5 ' Without trailing " And "
If iLen <= 0 Then
Me.FilterOn = False ' No criteria entered: remove filter
Else
Me.Filter = Left$(swhere, iLen)
Me.FilterOn = True
End If

Das Feld artikelnummer und bezeichnung sind zwei Textfelder.



Die Prozedur enthaelt keine offensichtlichen Fehler, abgesehen davon, dass
swhere nicht deklariert ist.

Hast du die Prozedur schon mal schrittweise ausgefuehrt? An welcher Stelle
steigt er denn aus?

Gruss - Peter


Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com

Ähnliche fragen