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."      end if  end if   '***************diagnosis code incorrect patients age 104.07***************** dim count integer docmd.setwarnings (false) docmd.openquery ("qryerrorcode104-07 -1") count = dcount("*", "qryerrorcode104-07 -2") if count > 0 me.label123.visible = true end if docmd.deleteobject actable, "tmp10407" docmd.setwarnings (true)    '***************diagnosis code incorrect patients sex 104.08*****************  docmd.setwarnings (false) docmd.openquery ("qryerrorcode104-08 -1") count = dcount("*", "qryerrorcode104-08 -2") if count > 0 me.label124.visible = true end if docmd.deleteobject actable, "tmp10408" docmd.setwarnings (true)  end sub

i have tried using activexcontrol microsoft progressbar control, version 6.0 no luck. when click button run code progressbar doesnt move. appreciated. thank in advance.

i don't see way judge progress other defining in quarters each step. if add active x progressbar , call progressbar1 such update it

private sub command125_click()  me.progressbar1.value = 25 'we @ first leg set 25 doevents           '***************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."      end if  end if me.progressbar1.value = 50 'we @ second leg set 50 doevents  '***************diagnosis code incorrect patients age 104.07***************** dim count integer docmd.setwarnings (false) docmd.openquery ("qryerrorcode104-07 -1") count = dcount("*", "qryerrorcode104-07 -2") if count > 0 me.label123.visible = true end if docmd.deleteobject actable, "tmp10407" docmd.setwarnings (true)  me.progressbar1.value = 75 'we @ 3rd leg set 75 doevents   '***************diagnosis code incorrect patients sex 104.08*****************  docmd.setwarnings (false) docmd.openquery ("qryerrorcode104-08 -1") count = dcount("*", "qryerrorcode104-08 -2") if count > 0 me.label124.visible = true end if docmd.deleteobject actable, "tmp10408" docmd.setwarnings (true) me.progressbar1.value = 100 'we done set 100  end sub

Comments

Post a Comment

Popular posts from this blog

html - Styling progress bar with inline style -

-
i trying set progress bar color red using inline style. need in way because have access <body> part of document. style need apply: progress { color: red } progress::-moz-progress-bar { background: red;} progress::-webkit-progress-value { background: red; } progress[aria-valuenow]:before { background: red; } i tried <progress style="background: red;"> incorrect effect, progress bar color turns blue red background. guide right direction desired style? thank in advance. here live example: https://jsfiddle.net/z36d3f6l/
Read more

java - Oracle Sql developer error: could not install some modules -

-
i have downloaded fresh copy of sqldeveloper ( sqldeveloper-4.1.3.20.78-no-jre ) oracle website. when unzip , lauch gui, keep getting following error message: warning - not install modules: dynamic module config - no module providing capability org.netbeans.netbinox found. my system: windows 7 32 bit hp probook. jdk 1.6 , 1.7, 1.8 available in java/jdk subdirectory. netbeans 8.0.2 installed finally got way out after dirty hours. extracted sqldeveloper zip in nested directory. i.e: e://a/b/c/sqldeveloper. starting sqldeveloper gui above directory threw erros. solution: go in c:\users**username**\appdata\roaming : delete sql developer , sqldeveloper folders extract sql developer zip in new non nested directory. i.e: e:// start , should work now reference: https://community.oracle.com/thread/3870680?start=0&tstart=0
Read more

How to use autoclose brackets in Jupyter notebook? -

-
this may sound silly question, how make use of autoclose brackets in jupyter notebook? example, when type print( jupyter notebook auto-closes brakets print() and places cursor inside. type argument, say print(1 + 1) now cursor between second 1 , right bracket ) . key navigate right of ) ? of course can press end or → or ) achieve this, not seem save time, purpose of brackets autoclose suppose? thanks in advance.
Read more