Eine Auswahlabfrage kann nicht durchgeführt werden

[gilles_de_rais]

Hallo zusammen!
Ich habe voneinander abhängige Kombi- und Listenfelder gebastelt. Ich hatte das zugehörige Formular für alte Datensätze gesperrt, woraufhin die Liste sich mit den Kombifeldern zwar filtern ließ, aber entsprechende Einträge auch nicht mehr angewählt werden konnten. Deswegen hatte ich die Liste in ein Ufo gebastelt, die dann natürlich dann natürlich in seiner Funktion auch recht beschränkt blieb.

Also alles wieder zurück gebaut, mit dem Ergebnis, dass aus irgendeinem Grund die Filterung auch nicht mehr funktionierte.
Jetzt geht alles wieder. Mit folgendem Code:

Code [Auswählen] Erweitern

Private Sub cmbMatArt_AfterUpdate()
strSQL = " SELECT tblMaterial.mat_ID, tblMaterial.mat_name, tblMaterial.mat_nummer " & _
         " FROM tblMaterial WHERE tblMaterial.mat_art = '" & Me!cmbMatArt & "'" & _
         " AND tblMaterial.mat_fahrzeug = " & Nz(Me.cmbMatFahr) & _
         " ORDER BY tblMaterial.mat_name"

lstMaterial.RowSourceType = "Table/Query"
lstMaterial.RowSource = strSQL

CurrentDb.Execute strSQL, 128
'Debug.Print strSQL
MsgBox strSQL
'Me.cmbMatArt = Null
EnableControls
End Sub

Kurioserweise erhalte ich eine Fehlermeldung, wenn ich

Code [Auswählen] Erweitern

CurrentDb.Execute strSQL, 128

im Code aktiviert lasse. Demnach ist eine Auswahlabfrage angeblich nicht möglich.

Code [Auswählen] Erweitern

Laufzeitfehler '3065':
Eine Auswahlabfrage kann nicht durchgeführt werden.

Lasse ich die Zeile jedoch einfach komplett weg, funktioniert alles wie es soll. Kann mir jemand sagen, wieso dies so ist?

VG,
Dennis

EDIT: Hat sich erledigt. Liegt wohl daran, dass strSQL bereits weiter oben ausgeführt wird und dies via CurrentDb.Execute an dieser Stelle falsch und vor allem nicht notwendig ist.
Sorry!

[MzKlMu]

Hallo,
die Zeile mit Execute ist ersatzlos überflüssig. Der Befehl ist nur für Aktionsabfragen zulässig (Anfüge, Aktualisierung, Tabellenerstellung). Bei gewöhnlichen Auswahlabfragen geht das nicht.
Die Auswahlabfrage wird mit RowSource zugewiesen, das reicht.

Nachtrag, Du hast es ja selbst gemerkt, habe ich gerade gesehen.

[gilles_de_rais]

Hallo,
ja, kurz nachdem ich den Foreneintrag verfasst habe, ist es mir wie Schuppen von den Augen gefallen. Ganz umsonst war mein Beitrag dann ja aber vielleicht nicht, wenn er das eigene Denkvermögen anregt. Und möglicherweise hat ja irgendwann ein blutiger Anfänger wie ich ein ähnliches Problem

[Lachtaube]

Du kannst in der Abfrage auf den Tabellenpräfix bei den Feldern verzichten - es gibt ja keine Mehrdeutigkeit. Und

Code [Auswählen] Erweitern

Nz(Me.cmbMatFahr) bei einem Zahlenfeld ist gaaaaanz schlecht, falls dann doch einmal ein Null-Wert vorhanden ist, hagelt es einen Fehler.

Code [Auswählen] Erweitern

Nz(Me.cmbMatFahr, 0) oder

Code [Auswählen] Erweitern

Nz(Me.cmbMatFahr, -1) wäre besser.

[gilles_de_rais]

Hallo,
cmdMatFahr hat die Datensatzherkunft

Code [Auswählen] Erweitern

SELECT fahr_ID, fahr_typ FROM tblFahrzeug;

wobei fahr_typ ein Textfeld darstellt. Ich hatte zuvor den Code in dieser Art

Code [Auswählen] Erweitern

'" & Me!cmbMatFahr & "'" angewandt. Das hat aber leider nicht funktioniert. Ich baue Deine Hinweise direkt mal ein. Vielen Dank für den Hinweis!

[Beaker s.a.]

Hallo Gilles,

wobei fahr_typ ein Textfeld darstellt.

Das ist aber nicht die gebundene Spalte, - oder?
gruss ekkehard