Word - Timeglas ved klik på OK-knap

Timeglas: Screen.MousePointer = 11
Normal  : Screen.MousePointer = 0

F.eks.:
Sub CommandButton1_Click()

'Timeglas
UserForm1.MousePointer = 11

'en masse kode :-)

'Normal:
CommandButton1.MousePointer = 0

End Sub

Takker for hjælpen
- din kode holder ikke helt vand. Skal knyttes direkte til cmdKnappen f.eks.

cmdOK.MousePointer = 11

Men det hjalp mig heldigvis på vej

Hilsen Susanne

Jeg vidste jo ikke hvad din knap hed. Derfor satte jeg den på userformen for at vise dig, hvordan metoden kunne virke *S*

Selvfølgelig - my mistake

Mit problem er dog ikke helt løst - var for hurtig på aftrækkeren.

Har både forsøgt mig med

cmdOk.MousePointer = 11

og

frmStandard.MousePointer = fmMousePointerDefault

Ingen har den ønskede effekt, da de kun viser timeglasset når cursor holdes hen over OK-knappen.

Ønsker at timeglasset vises indtil hele VBA-koden er kørt færdig med tjek af bogmærker, moduler osv.

Findes der en eller anden kode hvor man kan angive at timeglasset skal vise i x antal sekunder - du ved ligesom når man gemmer filer

Hilsen Susanne

MousePointer virker kun i en userform, så mit råd til dig er enten

-at lade userformen stå på skærmen mens koden kører og så ændre MousePointeren som forslået før

eller

- at lave endnu en userform, hvor der står at brugen skal "vente lidt" og så starte den op på cmdOK_Clik og slutte koden med et fjerne den igen.

/Richardt

øhhh ok -
hvilken kode skal jeg tilknytte på ok-knappen for at få en userform frem med "Vent Venligst"

er lidt i tvivl om jeg kan nøjes med at kalde den via cmdOK med f.eks.

Private Sub cmdOK_Click()
frmVent. show

' en hulens masse kode samt henvisninger til moduler

frmVent.Hide


Eller skal det mere til????

Du kan det jo godt :-) Det er nemlig lige sådan du skal gøre det.

mhhh smart fundet på - har endda sat et lille pics ind på formen - men har nu et nyt problem. Hvis jeg kalder den nye formular, f.eks. med ovenstående kode, så spærrer den nye userform, så resten af min kode ikke afvikles. Dvs frmVent skal først lukkes før der sker noget, og det var jo ikke det der var meningen :-)

Er det fordi jeg har overset en property der skal ændres på formen, eller ????

Det har du *S*

Egenskaben ShowModal skal på begge formularer sættes til False

ok har nu ændret ShowModal på alle 5 forms til False.

koden køres godt nok, men det enste jeg kan se på frmVent er den caption jeg har sat på den.

viser ikke den tekst jeg har skrevet på resten af formen. (et almindeligt labelfelt).

skyldes det at jeg ikke har nogen command objekter på??

ok - nej det er ikke det der er galt.

Har prøvet at knytte en knap til formen. Hjælper ikke.

Hvad gør jeg så??

Det skyldes ikke, at du ikke har noget command objekt.

Jeg kan sagtens se, hvad jeg har skrevet i caption på mit almindelige labelfelt.. hmm - jeg må være dig svar skyldig - den kan jeg ikke lige gennemskue, men du kan sende skabelonen til mig, så kan jeg kigge lidt nærmere på den rvejemad@sca.csc.com *S*

Damn****

Userformen indeholder fortrolige info.
OK må vende det med min boss eller ændre den tekst der skal skrives ind i nogen af felterne

)-: hele koden fylder mere end 10 sider udskrevet

Jeg arbejder som konsulent med speciale i VBA for CSC Danmark og kender ret godt til fortrolighed og kunne aldrig finde på at håndtere fortrolige oplysninger lemfældigt, men... Du kan, hvis du er bange for udlevere fortrolige oplysninger, vælge at købe min ekspertice og på den måde sikre dig et 100% fortroligt samarbejde (via en almindelig standard konsulentkontrakt). Hvis du ønsker dette kan vi etablere kontakten via min email - som du selvølgelig også bare kan bruge, hvis du vælger at stole på mig eller fjerner de fortrolige oplysninger *S*

Mvh

Richardt

NB - Jeg er ude af huset i morgen, så jeg kan først svar dig på mandag :-)

> Richardt
Har har jeg ændret i koden - sender dig formen - er spændt på om du har en løsning :-)

Har prøvet din løsning på en form med en del mindre kode - her virker den fint. Mhh............

Det virker fint hos mig - hvis jeg kører den i Word2000 eller 2002 - i Word97 fejlede den.

interessant - ok de bruger Word 2000, og jeg har også testet den på samme, men virker ikke.

Underligt at du kan få den til at køre med Word 2000 når jeg ikke kan. Jeg har både testet den underd win98, win2000 og NT4 og her går den ikke.

Har du noget forslag til hvad pokker jeg skal gøre???