Status bar.....ohhh it would be nice 2

[paul123456]

you know...I don't know if you can do this..but i do no this is the place to ask...it would be awesome if theres a way to display a status bar as a form...or a box in the middle of the screen...just like the status bar in the bottom left..it would say...running query...importing...exporting..or whatever and display the bar....OHHHH That would be a nice feature...anyone got ideas?

Thanks, PAUL

 

[gol4]

Paul you could create someting similar to the status bar using a lot of code but why use the additional resourses to display redundant information.
You can use the SysCmd method to, display a progress meter or optional specified text in the status bar, return information about Microsoft Access and its associated files, or return the state of a specified database object (database objects: An Access database contains objects such as tables, queries, forms, reports, pages, macros, and modules. An Access project contains objects such as forms, reports, pages, macros, and modules.) (to indicate whether the object is open, is a new object, or has been changed but not saved). Variant.

syscmd.getobjectstate then pass that to your form.

 

[paul123456]

Thanx gol4..were abouts should i put that on my form?

Thanks, PAUL

 

[cblock1025]

Paul, the progress bar is not real time. However you can fool around with the loop and get it to go faster or slower. I like th frmSplash. Just import that form into your database. Modify it in design view with the colors you want and stuff. Then just call it on any button or procedure you want by making it a popup center. Although it is not real time the user still can see that the application is doing something.

Christian, hope that helps

 

[SiJP]

Create a ProgressBar (activex) called axProgress.. use the lngmin and lngmax objects to determine when the progress bar should be (e.g.

Call fUpdateProgressBar(0, lngRecordCount)

.

and the function...

Private Function fUpdateProgressBar(lngMin, lngMax)
    
    Dim ProgObj As ProgressBar
    Set ProgObj = axProgress.Object
    ProgObj.Min = lngMin
    ProgObj.Max = lngMax
    
    If ProgObj.Value < lngMax Then
     ProgObj.Value = ProgObj.Value + 1
    Else
     ProgObj.Value = ProgObj.Value
    End If
    
End Function

------------------------
Hit any User to continue

 

[jksmi]

Hi, if you have an os of w2k (sp3) or greater or vb6 then you can add a reference to Windows Common Controls (MSCOMCTL.OCX). in this library of controls is a statusbar, progressbar, listviews, treeviews, all sorts and its a standard windows library.

HTH, Jamie
FAQ219-2884

 

[hermanlaksko]

Hi Gol4 thx for this little tip.

Some forms open just showing the msg "Form ready"-M$ statement, I have never found any use for this little bit of information from M$ and have had a few problems getting rid of it on some "user information forms" but your litte syscmd turned on the light :-D.

I have no idear why I did not think of the before, shame om me one of those things I guess!

Thx, a star is on the way


Herman

They say that crime doesn't pay... does that mean my job is a crime?