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

Kleiner Nachtrag:

Ich arbeite mit Access XP

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

hi,

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

Link

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

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....

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: