Indsæt ur

Du kan lave dit eget ur:

indsæt en etiket :lblUr
formens hændelse \'timerinterval\' sættes = 1000 (ms)
formens ved timerudløb kodes således:
Private Sub Form_Timer()
    lblUr.Caption = Time 
End Sub

Lav en formular med en tekstboks. Giv tekstboksen navnet \"Ur\"

Formularen har en egenskab, som hedder \"Timer Interval\". Denne sættes til 1000.
På formularens VedTimerUdløb-hændelse lægges følgende kode:

Me!Ur = Format(Time, \"hh:nn:ss\")
If WeekDay(Date) = 6 And Time = #12:00:00 PM# Then
  MsgBox \"Besked\"
End If


/Thomas

Der er ikke i Access noget objekt, man kan aktivere på bestemte tider. Brug Windows opgavestyring istedet:
lav en alm. tekstfil og døb den eks. besked.vbs med en linje:

msgbox(\"en besked\")

brug derefter opgavestyring til at aktivere dit vbScribt.

Niels

Hej Thomas ;o)

Hej Niels ;o)

God bagjul og godt nytår :o)

Kan man eventuelt lave uret med udtryksgeneratoren, da jeg ikke er særlig stærk, for ikke at sige utrolig dålig, til vba

Og god jul og nytår til jer begge :-)

Mikkel

Hej Mikkel,

du kan nok godt få strikket uret sammen i udtryksgeneratoren og en makro. Men den med Fredag kl 12 er du nødt til at bruge VBA til (Det er i hvert fald klart det nemmeste)
Men lad dig ikke skræmme af det!

Du skal blot finde egenskaben \"VedTimerUdlæb\" og klikke på knappen med de 3 prikker til venstre. Herefter indsætter du de 4 linier kode mellem Form_Timer og End sub. Således:

Private Sub Form_Timer()
Me!Ur = Format(Time, \"hh:nn:ss\")
If WeekDay(Date) = 6 And Time = #12:00:00 PM# Then
  MsgBox \"Besked\"
End If
End sub

Thanks - jeg prøver

øh...knappen med de 3 prikker sidder selvfølgelig til højre i egenskabsvinduet! Når jeg en gang bliver voksen lærer jeg sikkert forskel på højre og venstre ;o)

Jeg føler mig utrolig dum men bliver nødt til at spørge: Hvor findes egenskaben \"timer interval\" og \"Vedtimerudløb\"

på formens egenskabsark under fanebladet hændelser.

Niels

Der findes ingen \'dumme\' spørgsmål

Jeg har siddet og nørklet lidt med selve uret, men hver gang kommer den med en fejlmeddelse hvorpå der står \"Run-Time error 424 - Object required\"  ???

jeg har skrevet som følger:

Private Sub Form_Timer()
lblUr.Caption = Time
End Sub

Sat timerintervallet til 1000, dog ikke (ms), da den her siger at det er ugyldig værdi

I vba makerer den \"lblUr.Caption = Time\" med gult som om det er her fejlen ligger - kan det være rigtigt?

lblUr.Caption = Time

\'lblUr\' er navnet på objektet, dvs du er nødt til at navngive din etiket \'lblUr\' - Det gør du i etikettens egenskabsark.
\'.Caption\' er en egenskab, der svarer til det du normalt skriver i \'titeltekst\'.
Alt dette sættes lig med \'Time\', der er en indbygget VBA funktion, der retunerer (svare til) PCen\'s ur.

Det du mangler er altså at navngive din etiket lblUr. (egenskaber for etiket, fanebladet \'Andre\'.)

Niels

PS. Hvis det er en tekstBoks skal du ikke bruge egenskaben \'.Caption\'. Men blot angive tekstboxens navn.

txtUr = time

Niels

Timerintervallet er ms - men du skal ikke skrive ms.

Jubiii det funger! I er for gode!
Kan dog stadig ikke få meddelsen til at fungerer, Bliver nødt til at drøne på arbejdet nu! Præcisere problemstillingen senerer.

Hilsen en glad Mikkel

Tillykke:

Private Sub Form_Timer()
    lblUr.Caption = Time
 
    If WeekDay(Date) = 6 And Time = #12:00:00 PM# Then
        MsgBox \"Besked\"
    End If
End Sub

Du skal bare tilføje 3 linjer (som Thomas skrev), så din kode kommer til at se ud som ovenstående.

Niels

Det hele fungerer perfekt :-) Point til nih, men også en stor tak til Thomas. Mange tak for hjælpen!

Mikkel

hmmm...

tak for pts.

Men hvis du føler at flere har bidraget bør du nok dele pointene mellem os.

Niels

hej Niels,

burde du ikke sove nu? ;o)

godmorgen Thomas
Jeg er lige mødt på arbejde. Så jeg får min hyre for at sidde her :o))))))

Niels

hmmm, det kan jeg vist ikke prale af :-/

Hvor arbejder du?

Jeg sidder i en døgnvagt i Kolding - El forsyning.

jamen, god arbejdslyst da....jeg tror jeg hopper i seng i stedet :o)

Godnat og sov godt

Det var også min første tanke - men jeg vidste ikke helt hvordan man skulle gøre! hvis det stadigt er muligt, så selvfølig :-) Og ellers, UNDSKYLD Thomas!!

Mikkel

tak for hjælpen