Hi, after I added another form to my existing database, I am starting having problems running some vba codes as I change data in form. For example when I change or select "VAT transactions" number in combo box. Form "VAT3" is intended for entering and calculating tax. Interestingly, the "VAT2" form is practically the same but I haven had any such problems there.
Can you tell me which variables do I need to define, why didn't I have these problems before?
Thanks for your comments.
Code:
Private Sub cmbVATtr_Click()
If cmbVATtr.Value = 11 Then
Me.RestTotal.Requery
NETVALUE.SetFocus
NETVALUE = 0
VATOI20 = 0
VATOI10 = 0
VATOI05 = 0
ExemptDeduct = 0
IntraEUS = 0
IntraEUG = 0
Export = 0
VAT76a = 0
NSV = 0
NETVALUE = RestTotal / 1.2
VATOI20 = NETVALUE * 0.2
VATAccount = 2600
Me.Recalc
ElseIf cmbVATtr.Value = 12 Then
Me.RestTotal.Requery
NETVALUE.SetFocus
NETVALUE = 0
VATOI20 = 0
VATOI10 = 0
VATOI05 = 0
ExemptDeduct = 0
IntraEUS = 0
IntraEUG = 0
Export = 0
VAT76a = 0
NSV = 0
NETVALUE = RestTotal / 1.1
VATOI20 = NETVALUE * 0.1
VATAccount = 1610
Me.Recalc
ElseIf cmbVATtr.Value = 13 Then
Me.RestTotal.Requery
NETVALUE.SetFocus
NETVALUE = 0
VATOI20 = 0
VATOI10 = 0
VATOI05 = 0
ExemptDeduct = 0
IntraEUS = 0
IntraEUG = 0
Export = 0
VAT76a = 0
NSV = 0
NETVALUE = RestTotal / 1.1
VATOI20 = NETVALUE * 0.1
VATAccount = 2605
Me.Recalc
ElseIf cmbVATtr.Value = 4 Then
Me.RestTotal.Requery
NETVALUE.SetFocus
NETVALUE = 0
VatValue20 = 0
VatValue10 = 0
VatValue05 = 0
VatNonded20 = 0
VatNonded10 = 0
VatNonded05 = 0
NetValue00 = 0
NSV = 0
NETVALUE = RestTotal / 1.2
VatNonded20 = NETVALUE * 0.2
ElseIf cmbVATtr.Value = 5 Then
Me.RestTotal.Requery
NETVALUE.SetFocus
NETVALUE = 0
VatValue20 = 0
VatValue10 = 0
VatValue05 = 0
VatNonded20 = 0
VatNonded10 = 0
VatNonded05 = 0
NetValue00 = 0
NSV = 0
NETVALUE = RestTotal / 1.1
VatNonded10 = NETVALUE * 0.1
ElseIf cmbVATtr.Value = 6 Then
Me.RestTotal.Requery
NETVALUE.SetFocus
NETVALUE = 0
VatValue20 = 0
VatValue10 = 0
VatValue05 = 0
VatNonded20 = 0
VatNonded10 = 0
VatNonded05 = 0
NetValue00 = 0
NSV = 0
NETVALUE = RestTotal / 1.05
VatNonded05 = NETVALUE * 0.05
ElseIf cmbVATtr.Value = 9 Then
Me.RestTotal.Requery
NETVALUE.SetFocus
NETVALUE = 0
VatValue20 = 0
VatValue10 = 0
VatValue05 = 0
VatNonded20 = 0
VatNonded10 = 0
VatNonded05 = 0
NetValue00 = 0
NSV = 0
NSV = RestTotal
End If
End Sub