Message Box based on Query Value

[animaimmortale]

I have a query, TonerAudit, that audits toner inventory based on the [number of cartridges in inventory] - [cartridges installed in labs]. Data is grouped by the cartridge reorder number.

When the db opens I would like the switchboard form to run an On Open event that evaluates if [TonerAudit].[Expr1] < 2 and if so return a message box saying that toner needs to be reordered.

I tried doing this using a macro but I ran into the problem that my if/then procedure will not access individual columns in TonerAudit.

I was wondering if there is a way to do this with VBScript.



Thanks in advance!

[Toyman]

I have a query, TonerAudit, that audits toner inventory based on the [number of cartridges in inventory] - [cartridges installed in labs]. Data is grouped by the cartridge reorder number.

When the db opens I would like the switchboard form to run an On Open event that evaluates if [TonerAudit].[Expr1] < 2 and if so return a message box saying that toner needs to be reordered.

I tried doing this using a macro but I ran into the problem that my if/then procedure will not access individual columns in TonerAudit.

I was wondering if there is a way to do this with VBScript.

Thanks in advance!

Put the in the on load event of the switchboard:

Dim X as Integer
X = DLookUp(["Expr1","TonerAudit")
If X < 2 Then
Msgbox "You need to re-order toners",vbInformation,"Order Toner"
End if

[animaimmortale]

This eventually worked for me but gave a syntax error at first.

Dim X as Integer
X=DLookup("CartridgeName","TonerAudit",Expr1<2)
Msgbox "Toner cartridge " & X & " is low on inventory!"

Thanks for putting me on the right track!