vba - Display Message box if value is greater than 0 -

i have form allows users go various other forms it's "main form". i'd message box appear if there values on report greater 0. know how generate message box's. how go displaying message box on form if value in report greater 0 specific field?

the report going driven query i'm assuming, since are. so, i'd open query , check values greater 0.

let's assume report driven query called myquery. i'd add form in appropriate place (maybe on button click event report?):

dim db database dim rec recordset  set db = currentdb set rec = db.openrecordset("select * myquery somefield > 0")  if rec.eof   ...do whatever, or ignore because no values greater 0 else   msgbox "at least 1 value in field somefield greater 0" endif 

this how can handle strictly using vba.