IF statment problem

[Richard Gilmore]

New to coding and I don't know why this doesn't work get an error 424 it is for my access database

Public Function vatty()

If Stocktbl.[Vat] = True Then
Stocktbl.[Total] = "Stocktb.[Price]*1.175"
Else
Stocktbl.[Total] = "Stocktbl.[Price]"
End If


End Function

[willakawill]

New to coding and I don't know why this doesn't work get an error 424 it is for my access database

Public Function vatty()

If Stocktbl.[Vat] = True Then
Stocktbl.[Total] = "Stocktb.[Price]*1.175"
Else
Stocktbl.[Total] = "Stocktbl.[Price]"
End If


End Function

Hi. I imagine Vat is boolean and Total and Price are both currency types.
I suggest you add a VAT table so that your code will endure any changes in VAT.

You will not be successful in assigning a string value to a currency data type
Try this

If Stocktbl.[Vat] Then
   Stocktbl.[Total] = Stocktb.[Price] * 1.175
Else
   Stocktbl.[Total] = Stocktbl.[Price]
End If

And if you add a Tax table:

If Stocktbl.[Vat] Then
   Stocktbl.[Total] = Stocktbl.[Price] _
           + (Stocktbl.[Price] * Taxtbl.[VAT])
Else
   Stocktbl.[Total] = Stocktbl.[Price]
End If

Good luck