Hændelse

Jeg har ændret Datatypen for feltet ProduktID i tabllen Produkter fra, at være et nummer felt til at være et tekst felt, grunden til denne er, at jeg har varenummer med både tal og bogstaver. Herefter er jeg støt på det problem at nedenstående hændelse i min formular ikke længere fungere, hvad kan jeg gøre. ????

Databasen er forøvrigt sample databasen "Northwind" som ligger i office pakken.

Private Sub ProduktID_AfterUpdate()
On Error GoTo Err_ProduktID_AfterUpdate

    Dim strFilter As String
   
    ' Evaluer filteret før det vidergives til funktionen DLookup.
    strFilter = "ProduktID = " & Me!ProduktID
   
    ' Slå produktets pris pr. enhed op, og tildel den til kontrolelementet Pris pr enhed.
    Me![SalgsPris] = DLookup("[SalgsPris]", "ProduktNavn", strFilter)

Exit_ProduktID_AfterUpdate:
    Exit Sub

Err_ProduktID_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_ProduktID_AfterUpdate

End Sub