[ACCESS] Laufzeitfehler '2001'

[Pittiplatsch]

Ich habe folgenden Quelltext

Private Sub ma_vorname_AfterUpdate()


Dim sqlstr As String

Dim db As DAO.Database

Dim liste As DAO.Recordset

Dim pnummer as String


Set db = CurrentDb


Set liste = db.OpenRecordset("SELECT Personalnummer FROM tbl_Personal WHERE Name='" & nachname & "' AND Vorname='" & ma_vorname & "'", dbOpenForwardOnly)


pnummer = liste!Personalnummer


    Me.ufrm_Vorgangsdaten.Form.FilterOn = False

    Me.ufrm_Vorgangsdaten.Form.Filter = "Personalnummer = '" & pnummer & "'"

    Me.ufrm_Vorgangsdaten.Form.FilterOn = True

    ufrm_Vorgangsdaten.Visible = True


End Sub

[/PHP]

Beim Ausführen des Codes bringt mir das Programm eine Fehlermeldung:

Laufzeitfehler '2001':

Sie haben die vorherige Operation abgebrochen.

Was soll das denn jetzt wieder heißen?

HILFE dringend erwünscht

[Pittiplatsch]

Kleiner Nachtrag:

Ich arbeite mit Access XP

Aber später solldas Programm auch auf Access 2000 lauffähig sein.

[Maulwurf_der_Schlaue]

hi,

ich hab hier folgendes gefunden evtl. hilft dir das weiter...

Link

[Pittiplatsch]

Den Link hatte ich schon gefunden, bringt mich aber nicht sehr viel weiter

[Maulwurf_der_Schlaue]

wenn du die fehlermeldung bekommst, zeigt er da den vba-editor von access an?

wenn ja ist da was markiert?

wenn nein geh mal auf debug?

wenn das geht dann sag uns wo er meckert....

[Pittiplatsch]

Habe jetzt die Lösung

Hier habe ich sie gefunden.

Statt

Me.ufrm_Vorgangsdaten.Form.Filter = "Personalnummer = ' " & liste!Personalnummer & " ' "

habe ich einfach

Me.ufrm_Vorgangsdaten.Form.Filter = "Personalnummer = " & liste!Personalnummer & ""

geschrieben.

Ich weiß nicht, warum, aber es funktioniert. :floet: :floet: