A warning 1

[samotek]

In the Format event of my report i have a warning that gives a message in case the balance does not correspond to the number OnStore.However usually i have more than one discrepancies and i get the result as a warning message for each one.I want to get only one warning message ,if there is at least one discrepancy.What command can i give for that purpose? Furhter, can i have a control on my form, that also gives a message that siomething is worng with the data in my report ?


If Me![balance] <> Me!OnStore Then
Me!OnStore.ForeColor = 255
result = MsgBox("Something is wrong with the balance of the goods.", vbOKOnly, "Warning")

 

[TripleJHJO]

You could verify if a flag variable has been set before you display your messagage. Initialize a flag variable to 0 and once you display your message, set the flag to 1. It will only display the message if the flag is set to 0.

 

[samotek]

Thank you for your reply. Regrettably i am not a programer and the term flag is not known to me.Could you write down the code for me?
Thank you in advance

 

[TripleJHJO]

Dim flg as boolean

If Me![balance] <> Me!OnStore and flg = False Then
Me!OnStore.ForeColor = 255
result = MsgBox("Something is wrong with the balance of the goods.", vbOKOnly, "Warning")
flg = True
EndIf