Acces 2003 Dlookup probleem

[Verwijderd]

Het volgende:

Ik ben een klein databasje aan het maken om de bestelling van gerechten in bij te houden.
Ik heb hier de volgende 3 tabellen.

Gerechten
Facturen
Bestelling

In de tabel bestelling als in Gerechten komt het veld Prijs_Incl_BTW voor.

Nu heb ik een formulier gemaakt waar je nieuwe bestellingen kun invoeren.

Er worden dan gegevens geplaatst in de tabel factuur, en de bestel regels in de tabel bestelling gezet.

Dit werkt allemaal prima, maar nu moet hij bij de bestel regels de Prijs_Incl_BTW ophalen uit de tabel Gerechten, maar hier gaat het fout, ik dacht dit te kunnen doen met de volgende code :

Bij bewerken van het vel Bestelling_Gerecht_Nummer zou dan het volgende geplaatst worden bij [Gebeurtenisprocedure]

code:

Private Sub Bestelling_Gerecht_Nummer_AfterUpdate()
On Error GoTo Err_Bestelling_Gerecht_Nummer_AfterUpdate

    Dim strFilter As String
    
    ' Beoordeel de filter voordat deze wordt doorgegeven aan de functie DLookup.
    strFilter = "Bestelling_Gerecht_Nummer = " & Me!Bestelling_Gerecht_Nummer
    
    ' Prijs per stuk van product opzoeken en toewijzen aan besturingselement
    ' Prijs per stuk.
    Me![Bestelling_Prijs_Incl_BTW] = DLookup("[Gerecht_Prijs_Incl_BTW]", "TBL_Gerechten", strFilter)

Exit_Bestelling_Gerecht_Nummer_AfterUpdate:
    Exit Sub

Err_Bestelling_Gerecht_Nummer_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_Bestelling_Gerecht_Nummer_AfterUpdate

End Sub

Het gaat op zich goed bij de eerste bestel regel die ik toevoeg, maar als ik dan nog een bestel regel toe wil voegen, maar nu een ander product, en dus een andere prijs zet hij gewoon de zelfde prijs neer als bij de 1e regel.

Ik heb al van alles zitten proberen, maar ik kom er niet uit.
Sorry dat ik hem eerst in het verkeerde forum had gepost.

[Verwijderd]

Is er niemand die hier iets weet ?

[Lustucru]

Debug eens. Zet het resultaat van je dlookup actie in een variabele en spuug die uit dmv quick watch of debug.print. Wordt de code uitgevoerd op het moment dat je het verwacht? IS het besturingselement correct gebonden aan onderliggende velden?

[Verwijderd]

De actie wordt op het juiste moment uitgevoerd,
Als ik product kiest, dan zet ie inderdaad de stukprijs neer, maar hij pakt gewoon de 1e uit de tabel gerechten zeg maar. hij maakt de vergelijking niet tussen TBL_Bestelling Bestelling_Gerecht_Nummer en TBL_Gerechten Gerecht_Nummer

Hij zet nu gewoon de stukprijs van het 1e gerecht neer uit de gerechten tabel.

Ik ben ook niet zo held in het maken van vb dus wordt er helemaal knetter gek van