<div>
if Progress is a TextBox:<br />
<br />
Progress.Multiline = true ?
</div>


if Progress is a TextBox:

Progress.Multiline = true ?

<div>
Yes.<br />
<br />
Do until ...<br />
&nbsp; ...<br />
&nbsp; DOEVENTS<br />
&nbsp; ...<br />
Loop<br />
<br />
Cheers<br />
<br />

</div>


Yes.

Do until ...
  ...
  DOEVENTS
  ...
Loop

Cheers



<div>
Try to issue a refresh statement like<br />
<br />
&nbsp; &nbsp;Progress.Refresh<br />
<br />
immediately after changing the progress bar's properties.<br />
<br />
Michel
</div>


Try to issue a refresh statement like

   Progress.Refresh

immediately after changing the progress bar's properties.

Michel

<div>
If not you could try Progress.refresh or DoEvents
</div>


If not you could try Progress.refresh or DoEvents

<div>
Hi<br />
u should add Progress.Refresh after you set the text property. &nbsp;This method forces the text box to redraw before the rest of the code continues to execue.<br />
<br />
Cat
</div>


Hi
u should add Progress.Refresh after you set the text property.  This method forces the text box to redraw before the rest of the code continues to execue.

Cat

<div>
<div class="content wysiwyg-content">
I am running this piece of code :-<br />
<br />
Do Until Len(sFilename) = 0<br />
<br />
&nbsp; Progress.Text = Progress.Text &amp;&nbsp;vbCrLf &amp;&nbsp;&quot;Extracting Text from &quot;&nbsp;&amp; sFilename<br />
&nbsp; Call Import_to_access(sFilename<wbr />)<br />
<br />
&nbsp; Progress.Text = Progress.Text &amp;&nbsp;vbCrLf &amp;&nbsp;&quot;Exporting to &quot;&nbsp;&amp; Left(sFilename, Len(sFilename) - 4) &amp;&nbsp;&quot;.dbf&quot;<br />
&nbsp; Call Export_current(sFilename)<br />
<br />
&nbsp; sFilename = Dir()<br />
Loop<br />
<br />
But the Progress field is not updated until the whole thing has finished. &nbsp;Is it possible to have a way of showing the progress as it goes?<br />
<br />
Thanks
</div>
</div>


I am running this piece of code :-

Do Until Len(sFilename) = 0

  Progress.Text = Progress.Text & vbCrLf & "Extracting Text from " & sFilename
  Call Import_to_access(sFilename)

  Progress.Text = Progress.Text & vbCrLf & "Exporting to " & Left(sFilename, Len(sFilename) - 4) & ".dbf"
  Call Export_current(sFilename)

  sFilename = Dir()
Loop

But the Progress field is not updated until the whole thing has finished.  Is it possible to have a way of showing the progress as it goes?

Thanks

Synchronising code and form

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.