Laufzeitfehler 2501 bei Listenfeld

Computer: Software & Programmierung Office Software
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

Programme: Access 97
Entschuldigung habe vergessen anzugeben welches Programm…

Access 97

3

Hallo allein,

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

Willst Du für Kunde, Abgrenzung und Datum die gleiche Zeichenkette (Me!Suchliste.Value) einsetzen?

Ist aber rätselhaft mit dieser Fehlernummer. Es gibt übrigens weiter unten ein eigenes Access-Forum.

Ulrich

4

Hallo Carolin,

ich vermute, das Du ein Listenfeld mit mehreren Spalten (Column) hast?
Ich der Zuweisung der Kriterien verweist Du immer auf die selben Daten!!

Ich vermute mal, die Kriterien für Abgrenzung und Datum kommen eigentlich aus anderen Feldern, oder aus den Spalten der Liste.

  1. Lösung (wenn die Daten aus Spalten kommen):

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

  1. Lösung ( Wenn Daten aus andren Feldern kommen)

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

Ich bin davon ausgegangen, das in der ersten Spalte die ID des Kunden steht und in der Liste ausgeblendet ist.

!! Wichtig !!

  1. Spalte = COLUMN(0) die Zählweise beginnt bei 0

Gruß Wolfgang