ProgressBar

[RuiSoares via AccessMonster.com]

Hi,

Sorry the way I write, but my english is poor.

I have the following module and I want to get a form with progress bar to
display to users the step of the job.

Sub ClimeSPVTG1()


DoCmd.SetWarnings False
MyBD.Execute ClimeSPVTG101, 0
MyBD.Execute qry02_ClimeHdrSPVTG102, 0
MyBD.Execute qry02_ClimeDtlSPVTG103, 0
MyBD.Execute ClimeSPVTG104, 0
MyBD.Execute qry02_ClimeHdrSPVTG105, 0
MyBD.Execute qry02_ClimeDtlSPVTG106, 0
MyBD.Execute ClimeSPVTG107, 0
DoCmd.TransferText acExportDelim, "TXT Files Export Specification",
"qry02_PrepTxtSPVTG1", "\\setp03iapl01\climestore\Data\Programas Locais\
AplicGeral\OutputFiles\Balancetes\Aplic03-SPVTG1.txt", False, ""
MyBD.Execute BridgeSPVTit01, 0
MyBD.Execute qry02_BridgeHdrSPVTit02, 0
MyBD.Execute qry02_BridgeDtlSPVTit03, 0
DoCmd.TransferText acExportDelim, "TXT Files Export Specification",
"qry02_PrepSarSPVTit", "\\setp03iapl01\climestore\Data\Programas Locais\
AplicGeral\OutputFiles\Balancetes\SAR-SPVTit.txt", False, ""

End Sub


Anyone can help me??

Thanks

 

[RuralGuy]

Hi,

Sorry the way I write, but my english is poor.

I have the following module and I want to get a form with progress bar to
display to users the step of the job.

Sub ClimeSPVTG1()


DoCmd.SetWarnings False
MyBD.Execute ClimeSPVTG101, 0
MyBD.Execute qry02_ClimeHdrSPVTG102, 0
MyBD.Execute qry02_ClimeDtlSPVTG103, 0
MyBD.Execute ClimeSPVTG104, 0
MyBD.Execute qry02_ClimeHdrSPVTG105, 0
MyBD.Execute qry02_ClimeDtlSPVTG106, 0
MyBD.Execute ClimeSPVTG107, 0
DoCmd.TransferText acExportDelim, "TXT Files Export Specification",
"qry02_PrepTxtSPVTG1", "\\setp03iapl01\climestore\Data\Programas Locais\
AplicGeral\OutputFiles\Balancetes\Aplic03-SPVTG1.txt", False, ""
MyBD.Execute BridgeSPVTit01, 0
MyBD.Execute qry02_BridgeHdrSPVTit02, 0
MyBD.Execute qry02_BridgeDtlSPVTit03, 0
DoCmd.TransferText acExportDelim, "TXT Files Export Specification",
"qry02_PrepSarSPVTit", "\\setp03iapl01\climestore\Data\Programas Locais\
AplicGeral\OutputFiles\Balancetes\SAR-SPVTit.txt", False, ""

End Sub


Anyone can help me??

Thanks

Maybe this link can help:
http://home.bendbroadband.com/conradsystems/accessjunkie/progressbars.html

_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.

 

[RuiSoares via AccessMonster.com]

Hi RG,

Thanks for your help.

RS

 

[RuralGuy]

Hi RG,

Thanks for your help.

RS

You're very welcome.
_______________________________________________
hth - RuralGuy (RG for short)
Please post to the NewsGroup so all may benefit.