The following gives a "Type mismatch" error. txtShrink's format is set to general number. The highlighted line is the ElseIf line. Did I write the if condition wrong?
If IsNull(Me.txtShrink) Then
MsgBox ("Enter a shrink rate for the new Material")
ElseIf (Me.Category = "Metal" Or "Other" And Me.txtShrink <> 0) Then
MsgBox ("Non plastic parts use zero shrink")
Me.txtShrink = 0
Exit Sub
End If