Simple MsgBox without Button(s) with Progress Bar

[karlomutschler]

Hello and good day,
to my script I would like to add a MsgBox that informs the user what is currently happening:

for example:
' switch WarnMsgs OFF
DoCmd.SetWarnings False
' copy File1 to File1_old
DoCmd.OpenQuery "Backup_File1", acViewNormal, acEdit
MsgBox "File1 copied to File1_old
' deleting contents of File1
DoCmd.OpenQuery "deleteContents_File1", acViewNormal, acEdit
' import File1
DoCmd.TransferText acImportDelim, "File1 import", "File1", "c:\Path\File1.csv", False, ""
' switch WarnMsgs ON
DoCmd.SetWarnings True
etc ...

The MsgBox should be purely informative without the need to press any (OK)-Button
... and the addition of a progress bar would be a nice feature

Any tips and advice how to go about this task is much appreciated.
Kind regards
Karlo


meistertools@gmx.net

 

[LittleSmudge]

Rether than a message box as such - how about making all this good update information appear in the status bar at the bottom left of the screen

Use

SysCmd(acSysCmdSetStatus,"File1 copied to File1_old"


and as for the progress meter look at
SysCmd(acSysCmdUpdateMeter, .. ..



'ope-that-'elps.



G LS
spsinkNOJUNK@yahoo.co.uk
Remove the NOJUNK to use.