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]
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.
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
Ik heb al van alles zitten proberen, maar ik kom er niet uit.