ms access - How to use progress bar onclick event -
hello trying display form shows progress of queries performed in onclick event: private sub command125_click() '***************statement covers period 104.03***************** dim countofdays integer dim lngred long lngred = rgb(255, 0, 0) countofdays = datediff("d", me.admit_date, me.from_date) if countofdays > 3 me.from_date.forecolor = lngred me.label126.visible = true 'select lines on contain dos 3 days prior 'to date of admission , enter reason code 104.03 if fileexists("m:\a_audit\client_" & [forms]![frmclients]![client_id] & "\client_" & [forms]![frmclients]![client_id] & ".xlsx") docmd.setwarnings (false) docmd.openquery ("qryerrorcode104-03") docmd.setwarnings (true) else msgbox "please upload itemized statement identify more 3 days" & _ "discrepancy between statement date , admission date."...