Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Timer in Formular hängt sich auf
zurück: Prüfen, ob Datensatz schon vorhanden weiter: Summe aus vorhandenem Recordset Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
mfreye
Im Profil kannst Du frei den Rang ändern


Verfasst am:
15. Aug 2009, 07:41
Rufname:

Timer in Formular hängt sich auf - Timer in Formular hängt sich auf

Nach oben
       Version: Office 2007

Tach zusammen.

Also ich habe eine Timer in einen Formular, der jede Sekunde ausgeführt wird.

Den verwende ich um, um bestimmte Uhrzeiten, bestimmte Ereignisse auszuführen. Außerdem benutze ich diesen um mir die aktuelle Uhrzeit anzuzeigen.

Das ganze läuft auch gut, aber nach eine einiger Zeit (ca. 10Stunden) hängt sich der Timer dann auf und die Uhrzeit steht (natürlich auch der Rest). Wenn ich die Datenbank dann komprimieren und reparieren geht es wieder. Nur ein neu Start der Formulars bringt nichts.

Ich habe einen "Überlauf" als Fehlermeldung.

Habe ich dort einen Falschen Weg eingeschlagen oder muss ich den Zähler vom Timer regelmäßig zurück setzen?

MfG
mfreye
KlausMz
Moderator Access


Verfasst am:
15. Aug 2009, 08:47
Rufname:
Wohnort: Irgendwo in der Pfalz


AW: Timer in Formular hängt sich auf - AW: Timer in Formular hängt sich auf

Nach oben
       Version: Office 2007

Hallo,
ohne Code nix los Laughing

Zeige bitte den Code.

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
mfreye
Im Profil kannst Du frei den Rang ändern


Verfasst am:
15. Aug 2009, 09:38
Rufname:

AW: Timer in Formular hängt sich auf - AW: Timer in Formular hängt sich auf

Nach oben
       Version: Office 2007

Gut hier der Code:

Ein Formular mit folgendem Code:
Code:
'-----------------------------------------------------------------------------
'Load Einstellungen
'-----------------------------------------------------------------------------
Private Sub Form_Load()
On Error GoTo Form_Load_Err  'und ab zur Fehlerbehandlung
    Dim cnn As ADODB.Connection  'Datenbank-Connection
   
    'TimerInterval
    Me.TimerInterval = 1000  'jede Minute
Form_Load_Exit:
    Exit Sub
Form_Load_Err:
    sMsg = "Fehler in Form_Load: " & Err.Description
    LogMsg sMsg, True
    MsgBox sMsg, vbExclamation, _
           Form_F_HomeStudio_Einstellungsverwaltung_Master.Form.Name
    Resume Form_Load_Exit
End Sub

'-----------------------------------------------------------------------------
' Form_Timer()
' Timerinterval
'-----------------------------------------------------------------------------
Public Sub Form_Timer()
    Static iIntZaehler As Integer
    Static iTimer As Integer

    If Timer Then
        Timer_jede_Sekunde
    End If
    'Timer zurücksetzen
    iTimer = Not iTimer
End Sub
Dieser ruft ein in einem Modul den folgenden Code auf:
Code:
Public iZaehler_Intern_Timer_Interval_stbStatusMaster As Integer
Public iZaehler_Geburtstage_Termine_Liste_Erin As Integer
Option Compare Database

'-----------------------------------------------------------------------------
' Timer_jede_Sekunde()
'-----------------------------------------------------------------------------
Public Sub Timer_jede_Sekunde()
On Error GoTo ErrorHandling  'und ab zur Fehlerbehandlung
    Static iZaehler_Timer_Sek As Integer

'Jede Sekunde
    'Aktuelle Zähler
    iZaehler_Timer_Sek = iZaehler_Timer_Sek + 1
    iZaehler_Intern_Timer_Interval_stbStatusMaster = _
                            iZaehler_Intern_Timer_Interval_stbStatusMaster + 1
    iZaehler_Geburtstage_Termine_Liste_Erin = _
                                   iZaehler_Geburtstage_Termine_Liste_Erin + 1
    'Logdatei aktualisieren
    Logdatei_Form_erzeugen
    'Zählerwert schreiben 'Zählerwert an Formular übergeben
    Form_F_HomeStudio_Einstellungsverwaltung_Master.tex_Zaehler_Timer = _
                                                            iZaehler_Timer_Sek
    'Zaehler_Intern schreiben
    Form_F_HomeStudio_Einstellungsverwaltung_Master _
        .tex_Zaehler_Intern_stbStatusMaster = _
                                iZaehler_Intern_Timer_Interval_stbStatusMaster
    'Zaehlerwert schreiben
    If CurrentProject.AllForms("F_Übersicht_Erinnerungen").IsLoaded Then
        Form_F_Übersicht_Erinnerungen.tex_Zeit_Formular_schliessen = _
                                "Erinnerungsfenster wird geschlossen, in " & _
                   mod_Public_Const.Zaehler_Geburtstage_Termine_Liste_Erin - _
                        iZaehler_Geburtstage_Termine_Liste_Erin & " Sekunden."
    End If
    'Uhrzeit schreiben
    Form_F_HomeStudio_Einstellungsverwaltung_Master.tex_Uhrzeit = Time
    'SimpleText schreiben Master rückseten
    If iZaehler_Intern_Timer_Interval_stbStatusMaster = _
           mod_Public_Const.Zaehler_Intern_Timer_Interval_stbStatusMaster Then
        sMsg = "Statusinformation: Es leigen keine Aktuellen Meldungen vor!"
        Form_F_HomeStudio_Einstellungsverwaltung_Master _
                                            .stbStatusMaster.SimpleText = sMsg
    End If
    'Formular schliessen
    If iZaehler_Geburtstage_Termine_Liste_Erin >= _
                  mod_Public_Const.Zaehler_Geburtstage_Termine_Liste_Erin Then
        'Prüfen ob das Formula geöffent ist
        If CurrentProject.AllForms("F_Übersicht_Erinnerungen").IsLoaded Then
            'Formular schliessen
            DoCmd.Close acForm, "F_Übersicht_Erinnerungen"
        End If
    End If
'Jede 1/2 Minute
    If Right(Time(), 2) = "00" Or Right(Time(), 2) = "30" Then
        'Datei_kopieren_Timer
        Form_F_Übersicht_Copy.Datei_kopieren_Timer
        'Datei_loeschen_Timer
        Form_F_Übersicht_Delete.Datei_loeschen_Timer
    End If
'Jede 1/4 Minute
    If Right(Time(), 2) = "00" Or Right(Time(), 2) = "15" Or _
       Right(Time(), 2) = "30" Or Right(Time(), 2) = "45" Then
        'Raumreglerdateien lesen
        Raumregler_1_Textdateien_einlesen
        'Datumerzeugen
        Form_F_HomeStudio_Einstellungsverwaltung_Master.tex_Datum = Date
    End If
'Jede Minute
    If Right(Time(), 2) = "00" Then  'SimpleText schreiben Master
    End If
abbrechen:
    Exit Sub
'Die Fehlerbehandlung
ErrorHandling:
    Debug.Print "Timer_jede_Sekunde: " & Err.Description
End Sub
Hoffe das reicht, sonst schicke ich noch mehr Code ;)

mfg
mfreye
KlausMz
Moderator Access


Verfasst am:
15. Aug 2009, 09:46
Rufname:
Wohnort: Irgendwo in der Pfalz

AW: Timer in Formular hängt sich auf - AW: Timer in Formular hängt sich auf

Nach oben
       Version: Office 2007

Hallo,
Schnellschuss: Ändere alle Variablendeklarationen von Integer in Long.
Integer geht nur bis 32.767 Long bis 2.147.483.647

32.767 Sekunden = 9,1 Stunden, könnte passen. Danach kommt es zum Überlauf.
Also Long verwenden.

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


Zuletzt bearbeitet von KlausMz am 15. Aug 2009, 09:52, insgesamt einmal bearbeitet
mfreye
Im Profil kannst Du frei den Rang ändern


Verfasst am:
18. Aug 2009, 09:09
Rufname:


AW: Timer in Formular hängt sich auf - AW: Timer in Formular hängt sich auf

Nach oben
       Version: Office 2007

mfreye am 15. Aug 2009 um 09:52 hat folgendes geschrieben:
Danke werde ich machen, aber das könnte es echt sein.

Werde dann berichten!

Danke, das war der Grund Embarassed

mfg
mfreye
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 Tabellen & Abfragen: Aus Abfrage auf ein Feld im Formular zugreifen 5 Olsen 1646 11. Jul 2005, 12:34
Willi Wipp Aus Abfrage auf ein Feld im Formular zugreifen
Keine neuen Beiträge Access Tabellen & Abfragen: Parameter fuer SQL-Statement aus Formular 1 kuni 824 04. Jul 2005, 10:22
jens05 Parameter fuer SQL-Statement aus Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Datensatz über Formular suchen 3 Sandnet 2166 10. Jun 2005, 10:52
Dalmatinchen Datensatz über Formular suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage von Formular zu mehreren Tabellen gleichzeitig 5 Friedel 1237 22. Mai 2005, 11:06
jens05 Abfrage von Formular zu mehreren Tabellen gleichzeitig
Keine neuen Beiträge Access Tabellen & Abfragen: Formular --> Tabelle ? 6 AlexisM 835 27. Apr 2005, 10:56
AlexisM Formular --> Tabelle ?
Keine neuen Beiträge Access Tabellen & Abfragen: Formular: Groesse? 1 Gast 732 24. März 2005, 13:35
Sanne Formular: Groesse?
Keine neuen Beiträge Access Tabellen & Abfragen: Automatische Aktualisierung von generiertem Wert im Formular 9 GandalfTCM 1041 09. Feb 2005, 17:40
lothi Automatische Aktualisierung von generiertem Wert im Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Wert übernehmen von einem Formular in das andere 2 mactoolz 1244 03. Feb 2005, 17:46
ralphkr Wert übernehmen von einem Formular in das andere
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit Formular gestalten 3 HBurmei 1977 03. Dez 2004, 22:17
mapet Abfrage mit Formular gestalten
Keine neuen Beiträge Access Tabellen & Abfragen: Add Record - Formular in ein Nebenformular 6 User007 926 27. Okt 2004, 11:49
Gast Add Record - Formular in ein Nebenformular
Keine neuen Beiträge Access Tabellen & Abfragen: Standardwert in Formular aus einer Abfrage? 3 Gast 1777 04. Okt 2004, 12:53
Pfobeman Standardwert in Formular aus einer Abfrage?
Keine neuen Beiträge Access Tabellen & Abfragen: Kriterien aus nem Formular die mich fertig machen!!! 19 Martin von der Bergwiese 2658 24. Aug 2004, 12:53
Lorenz Kriterien aus nem Formular die mich fertig machen!!!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS