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

ios - Memory not freeing up after popping viewcontroller using ARC -

-
hi project arc based, using uinavigationcontroller make transition between viewcontroller. using profiler analyse happening behind scene memory. noticed when push viewcontroller allocate memory components , when pop not freeing allocated memory. since using arc unable implement dealloc or release component. have analysed in detail , there no memory leak in project. i not using strong property push viewcontroller. here how pushing viewcontroller. viewcontroller *obj = [[viewcontroller alloc] init]; [self.navigationcontroller pushviewcontroller:obj animated:no]; any clue whats going on? should free memory have consumed. please advise your description indicates have retain cycle, leads objects not being deallocated. typical source of retain cycles properties assigned loading nib files (usually declared iboutlet ). two strategies break them , release objects: declare property weak : @property (nonatomic, weak) iboutlet uilabel *statuslabel; set property nil in...
Read more

Django REST Framework perform_create: You cannot call `.save()` after accessing `serializer.data` -

-
i have following viewset: class artistprofileviewset(viewsets.modelviewset): queryset = artistprofile.objects.all() serializer_class = artistprofileserializer def perform_create(self, serializer): if serializer.is_valid(): serializer.save() with following serializers: class simpleartisttrackserializer(serializers.hyperlinkedmodelserializer): class meta: model = artisttrack fields = (...my fields...) class artistprofileserializer(serializers.hyperlinkedmodelserializer): owners = userserializer(many=true, required=false) tracks = simpleartisttrackserializer(many=true, required=false) class meta: model = artistprofile fields = (...my fields...) i getting following error: assertionerror: cannot call `.save()` after accessing `serializer.data`.if need access data before committing database inspect 'serializer.validated_data' instead. i don't see editing serializer.data object. th...
Read more

Why does Go error when trying to marshal this JSON? -

-
i'm trying rather simple example of trying decode json file structs using golang. however, when attempting error that json: cannot unmarshal object go value of type []main.track which don't understand. here's code in question, , json can found here . package main import ( "encoding/json" "fmt" "net/http" "os" ) // tracks group of track types type tracks struct { tracks []track } // track represents singular track type track struct { name string url string artist artist } // artist represents single artist type artist struct { name string mbid string url string } func main() { url := "http://ws.audioscrobbler.com/2.0/?method=geo.gettoptracks&api_key=c1572082105bd40d247836b5c1819623&format=json&country=netherlands" response, err := http.get(url) if err != nil { fmt.printf("%s\n", err) os.exit(1) } de...
Read more