Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
stoppuhr
zurück: Datums funktion weiter: Ereignis Register Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
SlayerSH
VBA-Entwickler


Verfasst am:
09. März 2009, 11:33
Rufname:
Wohnort: Kiel

stoppuhr - stoppuhr

Nach oben
       Version: Office XP (2002)

Hallo Community,
Ich habe mal wieder ein kleines Problem:
Ich brauche in einer Access-Anwendung eine Stoppuhr.
Dafür habe ich gegoogelt und die NTC Beispiel DB gefunden.
Die Stoppuhr darin ist schonmal ein SEHR guter Anfang.
Leider arbeitet sie mit dem Datentyp Double.
Genauer genommen mit folgendem Code:
Code:
    Me!TxtZeitMessung = Format(CDbl(Me!TxtZeitMessung) + 0.01, "0000.00")
Ich hätte die Anzeige gerne in der Form
mm:ss
Mehr stellen brauch ich nicht.
Ich wollte dann CDate benutzen, komm damit aber nicht klar. Hatte so ungefähr an folgendes gedacht:
Code:
    Me!TxtZeitMessung = Format(CDate(Me!TxtZeitMessung) + 0.01, "00:00:00")
Kann mir jemand helfen??
_________________
Fehlende Satzzeichen bitte aus folgendem Vorrat ergänzen: ..........,,,,,,,,,,!!!!!!!!!!??????????;;;;;;;;;;::::::::::
KlausMz
Moderator Access


Verfasst am:
09. März 2009, 11:49
Rufname:
Wohnort: Irgendwo in der Pfalz


AW: stoppuhr - AW: stoppuhr

Nach oben
       Version: Office XP (2002)

Hallo,
ein Zeitfeld ist immer Double. Das solltest Du auch nicht ändern.
Stelle das Format des Anzeigefeldes auf
Zitat:
nn:ss
Achtung: nn ist richtig, m ist schon für Monat reserviert.
Oder dann so:
Code:
    Me!TxtZeitMessung = Format(CDate(Me!TxtZeitMessung) + 0.01, "nn:ss")

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
SlayerSH
VBA-Entwickler


Verfasst am:
09. März 2009, 11:59
Rufname:
Wohnort: Kiel

AW: stoppuhr - AW: stoppuhr

Nach oben
       Version: Office XP (2002)

hey...
schonmal danke für die hilfe.
aber ich glaube, jetzt werfe ich zwei tipps zusammen.
das umstellen des formates des feldes habe ich gemacht.
muss ich dann den code mit CDbl behalten?
wenn ja, dann zeigt er wieder ne kommazahl an, wenn ich die stoppuhr starte.

wenn ich die zeile mit cdate benutze, dann kommt ein laufzeitfehler: typen unverträglich.

_________________
Fehlende Satzzeichen bitte aus folgendem Vorrat ergänzen: ..........,,,,,,,,,,!!!!!!!!!!??????????;;;;;;;;;;::::::::::
MAPWARE
Access Profi(l)neurotiker


Verfasst am:
09. März 2009, 12:18
Rufname:
Wohnort: Hannover

AW: stoppuhr - AW: stoppuhr

Nach oben
       Version: Office XP (2002)

Hi,

stelle das Format der Textbox bitte auf "nn:ss" und ersetze den alten Code im Formular mit diesem:
Code:
Option Compare Database
Option Explicit

Private Sub BStart_Click()
    If Me!BStart.Caption = "&Start" Then
        Me!TxtZeitMessung = 0
        Me.TimerInterval = 1000
        Me!BStart.Caption = "&Stop"
      ElseIf Me!BStart.Caption = "&Stop" Then
        Me.TimerInterval = 0
        Me!BStart.Caption = "&Start"
    End If
End Sub

Private Sub btnOK_Click()
    DoCmd.Close acForm, Me.Name, acSaveNo
End Sub

Private Sub Form_Timer()
    Me!TxtZeitMessung = DateAdd("s", 1, Me!TxtZeitMessung)
    DoEvents
End Sub
Anstatt 1000mal pro Sekunde wird hier auch nur 1 mal pro Sekunde aktualisiert und dabei 1 Sekunde weitergezählt.
_________________
Grüße
Marcus

Wer Controls nicht sinnvoll benennt, wird es später bereuen.
SlayerSH
VBA-Entwickler


Verfasst am:
09. März 2009, 12:41
Rufname:
Wohnort: Kiel

AW: stoppuhr - AW: stoppuhr

Nach oben
       Version: Office XP (2002)

vielen dank, funktioniert hervorragend!
_________________
Fehlende Satzzeichen bitte aus folgendem Vorrat ergänzen: ..........,,,,,,,,,,!!!!!!!!!!??????????;;;;;;;;;;::::::::::
Gast



Verfasst am:
18. März 2009, 13:20
Rufname:

AW: stoppuhr - AW: stoppuhr

Nach oben
       Version: Office XP (2002)

Hallo, hab grad deine Funktion für die Stoppuhr gefunden und finde diese super.

Ich bräuchte nur die Angabe der Zeit anders. bei 60 sekunden soll er nicht bei 00 anfangen sondern weiterzählen. So das 01:12 = 72 sekunden ist.

Wie krieg ich das hin?

Danke für Eure Hilfe schon jetzt
Willi Wipp
Moderator


Verfasst am:
22. März 2009, 00:45
Rufname:
Wohnort: Raum Wiesbaden


Re: AW: stoppuhr - Re: AW: stoppuhr

Nach oben
       Version: Office XP (2002)

Hi Gast,

dann arbeite einfach im Formuler-Ereignis Bei Zeitgeber (Timer) nicht mit DateAdd sondern
Code:
    Me!TxtZeitMessung = Me!TxtZeitMessung + 1

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Programmierung / VBA: Zeit für eine Tätigkeit anzeigen und speichern (Stoppuhr) 2 PetraBE 102 30. Dez 2013, 20:11
PetraBE Zeit für eine Tätigkeit anzeigen und speichern (Stoppuhr)
Keine neuen Beiträge Access Programmierung / VBA: Stoppuhr - Stopp verzögern 4 Thomas-R6 168 16. Mai 2012, 08:27
Gast Stoppuhr - Stopp verzögern
Keine neuen Beiträge Access Programmierung / VBA: Stoppuhr starten - einmaliges antippen der Taste 4 Thomas-R6 461 08. März 2012, 01:02
Thomas-R6 Stoppuhr starten - einmaliges antippen der Taste
Keine neuen Beiträge Access Programmierung / VBA: Stoppuhr mit Tasten starten ? 4 Thomas-R6 507 29. Jan 2012, 17:50
viezy Stoppuhr mit Tasten starten ?
Keine neuen Beiträge Access Formulare: Aktualisierung eines Formulares/oder desen Tei mit Stoppuhr 5 bortse21 280 17. Nov 2011, 22:08
bortse21 Aktualisierung eines Formulares/oder desen Tei mit Stoppuhr
Keine neuen Beiträge Access Formulare: Stoppuhr Countdownfunktion 21 chales 4386 03. März 2010, 11:25
caro2710 Stoppuhr Countdownfunktion
Keine neuen Beiträge Access Formulare: Stoppuhr 10 Stoppuhr 1660 22. Aug 2007, 19:39
jens05 Stoppuhr
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Programmierung / VBA: Stoppuhr 1 Stoppuhr 652 16. Aug 2007, 13:44
KlausMz Stoppuhr
Keine neuen Beiträge Access Formulare: Stoppuhr in Formular! 4 Gast 1148 11. Apr 2007, 08:51
Gast Stoppuhr in Formular!
Keine neuen Beiträge Access Hilfe: Eine Art Stoppuhr in Access 2 Bananarama 3451 04. Jul 2006, 12:22
Bananarama Eine Art Stoppuhr in Access
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project