Hello.
Any idea why I would be getting error 13: Type mismatch in this block of code?
Any idea why I would be getting error 13: Type mismatch in this block of code?
Code:
Private Sub Form_Load()
If Me.MaxQt.Value > Me.MinQt.Value Then
Me.SupplyCateg.ForeColor = vbRed
Else
Me.SupplyCateg.ForeColor = vbBack
End If
End Sub