Function checkQTY(ByVal QTY As Variant)
If IsNull(QTY) Then
Me.CHECK = "Favor de registrar una cantidad o en su defecto un 0"
Else
If Me.QTY > Me.LIM Then
Me.CHECK = "La cantidad ingresada es mayor al límite, favor de revisar"
Else
Me.CHECK = "Capturado correctamente"
End If
End If
End Function
=checkQTY([QTY])
Function checkQTY(ByVal QTY As Variant)
If IsNull(QTY) Then
checkQTY = "Favor de registrar una cantidad o en su defecto un 0"
Else
If Me.QTY > Me.LIM Then
checkQTY = "La cantidad ingresada es mayor al límite, favor de revisar"
Else
checkQTY = "Capturado correctamente"
End If
End If
End Function