I am getting Run-time error 2471
the object doesn't contain the automation object 'x' x being the fabrikant. When running the following
Private Sub Fabrikant_Leverancier_AfterUpdate()
Dim strfilter As String
strfilter = Me!Fabrikant
Me!korting = DLookup("[korting]", "[tblFabrikanten]", strfilter)
Me!PrijsPerEenheidinclBTW = [PrijsPerEenheidexclBTW] * 1.19 * (1 - ([korting] / 100))
End Sub
Can any body help me please
the object doesn't contain the automation object 'x' x being the fabrikant. When running the following
Private Sub Fabrikant_Leverancier_AfterUpdate()
Dim strfilter As String
strfilter = Me!Fabrikant
Me!korting = DLookup("[korting]", "[tblFabrikanten]", strfilter)
Me!PrijsPerEenheidinclBTW = [PrijsPerEenheidexclBTW] * 1.19 * (1 - ([korting] / 100))
End Sub
Can any body help me please