Can I simpifly this line of code?

[rbinder]

Greetings,

I was wondering of I can simplify this line of code which to me looks very clumsy. It work but I assume it could be more efficient?

The line is;

If IsNothing(Me.transvalue) Or IsNothing(Me!FrmDestination.Form.sumtransvolume) Or Me.transvalue > Me!FrmDestination.Form.sumtransvolume Or Me.transvalue < Me!FrmDestination.Form.sumtransvolume Then
(obviously it is on one line)

The whole code is
If IsNothing(Me.transvalue) Or IsNothing(Me!FrmDestination.Form.sumtransvolume) Or Me.transvalue > Me!FrmDestination.Form.sumtransvolume Or Me.transvalue < Me!FrmDestination.Form.sumtransvolume Then
MsgBox "There is a volume error " & vbCrLf & _
"the data entry has not been properly completed " & vbCrLf & _
"Please correctly enter or check all Data", vbCritical, gstrAppTitle
Else
etc.


Point two is there a way of simplifying the "<" and ">" to say not equals.

Thanks in advance

rbinder

 

[Smart]

RE;Can I simpifly this line of code?

point 2 not equals is <>

 

[nateobot]

Me.transvalue > Me!FrmDestination.Form.sumtransvolume Or Me.transvalue < Me!FrmDestination.Form.sumtransvolume

I think this is the same thing:

Not (Me.transvalue = Me!FrmDestination.Form.sumtransvolume)

or you could try

Me.transvalue <> Me!FrmDestination.Form.sumtransvolume

 

[MarkK]

I don't think IsNothing() is a valid function. Maybe you mean IsNull()?

[COLOR="Green"]'use a With statement to qualify objects[/COLOR]
With Me.FrmDestination.Form
  [COLOR="Green"]'nulls propagate through an expression, so to test for one or more nulls, add the items[/COLOR]
  If Not IsNull(Me.transvalue + .sumtransvolume) Then
[COLOR="Green"]    'and if both are not null, check for inequality[/COLOR]
    If Me.transvalue <> .sumtransvolume Then
[COLOR="Green"]      'some code here[/COLOR]
    End If
  End If
End With