Caption eines Button ändern - Änderung erfolgt erst, wenn der eigentliche Prozess (Text-Datei) schon erledigt ist.

01/08/2009 - 11:50 von Stefan Paesch | Report spam
Moin zusammen,

ich schreibe Daten (14.000 Zeilen) aus einer Tabelle zeilenweise in
eine Textdatei.
Wàhrend der Schreibprozess làuft (ca. 7 sec) soll die Beschriftung des
Button im Form, der das Ereignis auslöst geàndert werden.

Momentan ist es so, dass die Beschhriftung des Button sich erst
àndert, wenn eine MsgBox den Schreiberfolg meldet. Das natürlich zu
spàt.

Was mache ich falsch ? Hat jemand einen Tipp für mich.

Vielen Dank und ein schönes Wochenende Stefan.



Code (Auschnitt)

Private Sub btnTextDateiSchreiben_Click()

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim vZaehler As Integer
Dim vDateipfad As String, vZeile As String


On Error GoTo fehler

Me.btnTextDateiSchreiben.Caption = "Verarbeitung làuft !"
Me.btnTextDateiSchreiben.ForeColor = vbRed


rs.Open "tbl_Dataport", CurrentProject.Connection

Open "D:\Txt\Import_" & Me!txtTeilPfad & ".txt" For Output As #1
vZaehler = 0

Do Until rs.EOF
vZeile = vZeile & rs!Belegdatum & ";" & rs!Buchungsdatum & ";"
& rs!Belegart
rs.MoveNext
Print #1, vZeile
vZaehler = vZaehler + 1
vZeile = ""
Loop

Close #1

MsgBox "Erfolg", "Status: Transfer beendet !"

Me.btnTextDateiSchreiben.Caption = " Textdatei erzeugen"
Me.btnTextDateiSchreiben.ForeColor = vbBlack

rs.Close
Exit Sub

fehler:

MsgBox Err.Description, vbCritical, "Status: Fehler " & Err.Number & "
ist aufgetreten !"

End Sub
 

Lesen sie die antworten

#1 Thomas Möller
01/08/2009 - 12:18 | Warnen spam
Hallo Stefan,

Stefan Paesch schrieb:
ich schreibe Daten (14.000 Zeilen) aus einer Tabelle zeilenweise in
eine Textdatei.
Wàhrend der Schreibprozess làuft (ca. 7 sec) soll die Beschriftung des
Button im Form, der das Ereignis auslöst geàndert werden.

Momentan ist es so, dass die Beschhriftung des Button sich erst
àndert, wenn eine MsgBox den Schreiberfolg meldet. Das natürlich zu
spàt.

Private Sub btnTextDateiSchreiben_Click()

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim vZaehler As Integer
Dim vDateipfad As String, vZeile As String


On Error GoTo fehler

Me.btnTextDateiSchreiben.Caption = "Verarbeitung làuft !"
Me.btnTextDateiSchreiben.ForeColor = vbRed



Füg an dieser Stelle mal bitte folgende Zeile ein:


DoEvents


HTH
Thomas

Homepage: www.Team-Moeller.de

Ähnliche fragen