Dlookup problem

[mvk]

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]

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.

 

[mvk]

Database

 

[zRowix]

ik heb wat moeite om het aan elkaar te linken maar hier heb je misschien een oplossing.
voor je dlookup probleem ik weet alleen niet precies wat je allemaal er mee wil maar ik denk dat het geen wat je probeert te bereiken veel makkelijker kan. dan dat je nu gebouwd hebt.

 

[zRowix]

Sorry hier is je mdb

 

[mvk]

Hey super bedankt, het werkt nu wel,
Ik wil berijken dat bij iedere bestelling de prijs per stuk wordt opgeslagen zodat als de prijzen van een product in de loop van de tijd verandere de order geschiedenis de prijzen van toen laat zien, anders kloppen de omzet gegevens later niet meer.

Maar nu werkt het wel, ben er super blij mee, heeft me aardig wat hoofdpijn bezorgd.
Zou niet weten hoe ik het anders had moeten doen heb me er suf over gepiekerd.

tnxs

 

[zRowix]

Snap alleen al die qry's dan niet.

maar graag gedaan.

 

[mvk]

Ja paar er van waren als testje van dingen die ik zat te proberen.
En ook 1 die de prijs weer gaf in dat subformulier zodat ik eff de prijs zag staan die via die dlookup geplaatst moest worden, soort van tijdelijke controle even voor bij het maken.

 

[zRowix]

:thumb: Oke ik kon het al niet helemaal volgen al die qry's maar dat maak het soms idd makkelijker

 

[mvk]

Als ik de vraag op opgelost wil zetten krijg ik een systeem melding van het forum terug "Ongeldige actie opgegeven`

Komt dit door iets wat bij mij niet goed zit ?
Ik druk gewoon rechts oonder op opgelost.

 

[zRowix]

ik denk dat het komt om dat maartenf zijn post eerder lijkt te zijn dan die van jou misschien ff een berichtje naar een moderator sturen.