warning message

[pooterpooter]

In my report called rptStockFlow i have the products
underlined with red if balance is not equal to in - out:


Const conNormal = 400
Const conHeavy = 900 ' exra bold

Private Sub Detail_Format(Cancel As Integer, FormatCount As

Integer)
If Me![balance] <> Me!In - Me!Out Then
Me!balance.FontWeight = conHeavy
Me!balance.ForeColor = 32768
Else
Me!balance.FontWeight = conNormal
Me!balance.ForeColor = 0
End If
If Me![balance] <> Me!OnStore Then
Me!OnStore.FontWeight = conHeavy
Me!OnStore.ForeColor = 255
Else
Me!OnStore.FontWeight = conNormal
Me!OnStore.ForeColor = 0
End If
End Sub


is it possible in the Onopen event of the report to create
some code that sends a warning message on the screen,that something is
wrong with the balance of the goods ?

 

[Crowley16]

put msgbox "something is wrong mister!" in the if statement where balance is less than in - out

--------------------
Procrastinate Now!