SysCmd - Fortschrittsbalken

19/09/2007 - 13:40 von Tobias Trumpfheller | Report spam
Hallo (betr. WinXP, Access 2003),

warum wird ein Statusleistenbalken in einem DesignMaster angezeigt und in
einem Replikat nicht???

Hier der Code, der einwandfrei funktioniert:

Function GetQuery(stDocName As String)
Dim spname As String
Dim varTmp
Dim varTest
Dim intCnt
Dim Pausenlànge, Start, Ende
spname = CurrentUser

varTmp = SysCmd(acSysCmdRemoveMeter)
'DoCmd.OpenForm stDocForm, acFormDS, , , acFormReadOnly, acHidden
DoCmd.OpenQuery stDocName, , acEdit
Pausenlànge = 0
Start = Timer
Do While Timer < Start + Pausenlànge
DoEvents
Loop
Ende = Timer

If CurrentUser = "User1" Then
spname = "Horst"
Else
If CurrentUser = "User2" Then
spname = "Thorsten"
Else
spname = CurrentUser
End If
End If

varTmp = SysCmd(acSysCmdInitMeter, " Hallo " & spname & ", lade Deine
angeforderte Query. Bitte einen Moment Geduld...", 1000000)
For intCnt = 1 To 999999
'varTest = SysCmd(acSysCmdGetObjectState, acQuery,
"qry_del_tbl_FF_IBM_W1_temp")
varTest = SysCmd(acSysCmdGetObjectState, acQuery, stDocName)
'Fortschrittsanzeige aktualisieren
varTmp = SysCmd(acSysCmdUpdateMeter, intCnt)
Next
'Fortschrittsanzeige entfernen
varTmp = SysCmd(acSysCmdRemoveMeter)
End Function
 

Lesen sie die antworten

#1 Thomas Möller
19/09/2007 - 20:37 | Warnen spam
Hallo Tobias,

Tobias Trumpfheller
schrieb:
warum wird ein Statusleistenbalken in einem DesignMaster angezeigt
und in einem Replikat nicht???



zu dieser Frage habe ich leider auch keine Antwort...


If CurrentUser = "User1" Then
spname = "Horst"
Else
If CurrentUser = "User2" Then
spname = "Thorsten"
Else
spname = CurrentUser
End If
End If



... aber obigen Code-Teil könntest Du mit einem Select-Case
übersichtlicher gestalten:

SELECT CASE CurrentUser
Case "User1"
spname = "Horst"
Case "User2"
spname = "Thorsten"
Case Else
spname = CurrentUser
End Select


CU
Thomas

Homepage: www.Team-Moeller.de

Ähnliche fragen