Access97: Fehler 2501 OpenForm abgebrochen

Computer: Software & Programmierung Microsoft Access
1

Hallo zusammen,
ich habe hier in meinem Formular ein Listenfeld bei dem ich
bei einem Doppelklick ein anderes Formular mit dem spezifischen
Datensatz öffnen möchte.
Dazu hab ich folgenden Quelltext benutz doch irgentwie geht das
nicht und es erscheint dieser Laufzeitfehler 2501 mit :
Die Aktion OpenForm wurde abgebrochen …

Quelltext:

Private Sub Suchliste_DblClick(Cancel As Integer)
On Error GoTo myError

Dim strName As String
strName = „Uni“

'entsprechenden Datensatz auswählen

strKrit11 = „[Kunde]=’“ & Me!Suchliste.Value & „’“
strKrit12 = „[Abgrenzung]=’“ & Me!Suchliste.Value & „’“
strKrit13 = „[Datum]=’“ & Me!Suchliste.Value & „’“
var_Krit = strKrit11 & " And " & strKrit12 & " And " & strKrit13

DoCmd.OpenForm strName, , , var_Krit

Exit_myError:
Exit Sub
myError:
If Err.Number = 3075 Then
MsgBox "Mit Doppelklick können Sie nur einen vorhandenen Wert öffnen. ", vbInformation + vbOKOnly, „Keinen Wert ausgewählt“
Else
MsgBox "Fehler " & Err.Number & " " & Error$
Resume Exit_myError
End If
End Sub

Kann mir da jemand weiterhelfen ?..
Kann es auch sein das das an meinem Zielformular liegt ???

Mit freundlichen Grüßen
C. Papp

2

Hallo Carolin!

Listenverwaltung per Klassenmodul ist bei Listenfelldern immer ein Problem. Bis Access 97 ging es noch mit Ach und Krach - ab Access 2000 kann ich Dir im moment leider nicht weiterhelfen. Was Du aber eventuell machen kannst, schau doch einfach einmal auf dieser Seite vorbei:

http://www.add-in-world.com/katalog/

Schreibe doch bitte nächstesmal auch die Versionsnummer dabei (Access 97; 2000 oder XP), dann bekommst Du wahrscheinlich schneller die richtige Hilfe.

mfg Albert

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Ich hab dir in Spotlight geantwortet…

Gruß aus dem Norden
Reinhard Kraasch
(http://www.kraasch.de - Access Tipps & Tricks)

4

Hallo Carolin,
Hallo Albert,

ich habe Dir Carolin die Lösung bereits per Mail zukommen lassen.

Hier noch mal öffentlich:
In Deinem Listenfeld gibt es voraussichtlich min. 2 Spalten: ID und Kunde. (Spalte = Column)
Da die ID nicht angezeigt werden soll, ist Sie mit der Länge 0 ausgeblendet.

Dein Kriterium fragt aber nicht die Spaltendaten ab!

strKrit11 = „[Kunde]=’“ & Me!Suchliste.Value & „’“
strKrit12 = „[Abgrenzung]=’“ & Me!Suchliste.Value & „’“
strKrit13 = „[Datum]=’“ & Me!Suchliste.Value & „’“
var_Krit = strKrit11 & " And " & strKrit12 & " And " &
strKrit13

Richtig müsste es dann so sein: (vorausgesetzt, das Du für ABGRENZUNG und DATUM ganz „normale“ Eingabefelder definiert hast)

strKrit11 = "[Kunde]= " & Me!Suchliste.COLUMN(0)
strKrit12 = „[Abgrenzung]=’“ & Me!ABGRENZUNG & „’“
strKrit13 = „[Datum]=’“ & Me!AKTDATUM & „’“
var_Krit = strKrit11 & " And " & strKrit12 & " And " &
strKrit13

Außerdem fällt mir gerade auf, dass Du alle Daten in STRING umwandelst. Das ist zumindest bei der ID nicht sinnvoll! Also die `` müssen weg. Da ich den Wert von Abgrenzung nicht kenne, bitte ich Dich dies zu überprüfen, ob es ein String oder Zahlenwert ist.
Das Datum kannst du auch nicht einfach als String übergeben. Da es sich hier eigentlich um einen SQL-Ausdruck geht, muß das Datum in ein SQL-Datum umgewandelt werden.

Format SQL-Datum : #MM/TT/JJJJ#

Dafür kannst Du eine kleine Funktion selber schreiben, oder eine fertige aus dem Internet laden.

Listenverwaltung per Klassenmodul ist bei Listenfelldern immer
ein Problem.

hä? WARUM?

Bis Access 97 ging es noch mit Ach und Krach -

ist in allen Versionen gleich!? Unterschiede sind mir NOCH nicht aufgefallen.

ab
Access 2000 kann ich Dir im moment leider nicht weiterhelfen.

wer redet hier von Access 2000?

Schreibe doch bitte nächstesmal auch die Versionsnummer dabei
(Access 97; 2000 oder XP), dann bekommst Du wahrscheinlich
schneller die richtige Hilfe.

Mensch Albert, schau Dir doch mal die Überschrift von Carolins Anfrage an! Brille nicht aufgesetzt? :smile:

Gruß Wolfgang