Filter auf Unterformular anwenden

[smily68]

Hallo

Ich habe HF verknüpft in einem UF. Das UF ist in Tabellenform und darin werden alle Aufträge angezeigt. Im HF habe ich verschiedene Felder nach denen ich die Aufträge filtern möchte. Leider funktioniert mein Code nicht. Es gibt folgende Fehlermeldung:

Anwendungs- oder objektdefinierter Fehler

Hier der Code:

Private Sub cmdFilter_Click()
'Filter nach Status

    Dim strSQL As String
    Dim intStatus As Integer
   
    intStatus = Me.cboAuftrK_Statussuche
    strSQL = "Select * From tblAuftrKopf Where auftrK_Stat_IDF = " & intStatus
   
    Me!frmAuftrSichtListe.Form.RecordSource = strSQL

   
End Sub


Gruss Daniel

[oma]

Hallo Daniel,

evt. reicht schon:   intStatus = Me!cboAuftrK_Statussuche

Gruß Oma

[smily68]

Hallo Oma

Leider ist es nicht das. Ich erkläre kurz die Umgebung. Mein HF hat keine Datenquelle, es dient einzig der Navigation und der Filterung von den Aufträgen im UF. Das UF hat als Datenquelle eine Abfrage aus mehreren Tabellen, eine davon ist die tblAuftrKopf. Ich habe mir gedacht vielleicht ist es die Abfrage. Ich habe die Abfrage mit der tblAuftrKopf ausgewechselt, doch ohne Erfolg.

Gruss Daniel

[bahasu]

Hi,

an welcher Zeile tritt denn der Fehler auf?
Zur Not das Debuggen aktivieren und verfolgen, wo die Macke auftritt.

Ist wirklich sicher, dass an der Stelle "Me.cboAuftrK_Statussuche" eine Zahl vorliegt, oder könnte es auch ein Text sein?

Harald

PS
Frage noch am Rande: Muß ein Statusfeld wirklich als Integer deklariert sein? Mit byte-Deklaration sind 255-Statii möglich. Reicht das nicht?

[smily68]

Hallo

Ich habe überprüft, es ist eine Zahl, ich habe auch zur Sicherheit der Variable eine fixe Zahl gegebn, mit dem gleichen Problem.

Der Fehler tritt in der folgenden Zeile auf:

Me!frmAuftrSichtListe.Form.RecordSource = strSQL

[smily68]

Hallo

Ich bin leider auf die senden Taste gekommen

Wenn ich auf diese Zeile mit der Maus gehe, zeigt er mir folgendes an:

Me!cboAuftrK_Statussuche = "3"

Gruss Daniel

[oma]

Hallo,

ist frmAuftrSichtListe  dein Unterformular?

[DF6GL]

Hallo,

"Anwendungs- oder objektdefinierter Fehler"  könnte darauf hindeuten, dass das UFO-Steuerelement, das das (Unter-)Formular anzeigt, NICHT "frmAuftrSichtListe"   heißt...

[Beaker s.a.]

Hallo Daniel,
Wenn Du omas und Franzs letzte Antworten/Fragen nicht verstanden hast,
schaust Du hier:
http://www.donkarl.com?FAQ4.2
hth
gruss ekkehard

[smily68]

Hallo

Vielen Dank für eure Hinweise. Es hat sich wirklich ein Schreibfehler in der Definition des Namens meines Steuerelementes UFO eingeschlichen.

Gruss Daniel