Variable aus Formular in Modul übergeben - Bsp Stoppuhr f. Access

[nkh2016]

Hallo..

Mein Formular Stoppuhr funktioniert soweit....

Wie kann ich jedoch bei der Eingabe im Feld Startzeit ab Sekunden zB Eingab 90 (90 Sekunden) erreichen, dass die Stoppuhr bei 90 sec (00:01:30) startet...

Ich bekomme es nicht hin, dass der Wert aus dem Formular ins Modul als Variable übernommen wird...

[Lachtaube]

Mit objStoppUhr.StartT Me.StartZeitInSekunden nebst entfernen des ungültigen Codes im Klassenmodul sollte das gelingen.

Wozu dient denn das ganze Prozedere überhaupt und warum speicherst Du die Zeitdauer als Text?

[nkh2016]

Danke @Lachtaube...

Ich hab das Beispiel im Internet gefunden und für mich adaptiert...

Ich mache hobbymäßig bei kleineren Veranstaltungen die Zeitnehmung und wollte für unsere Bedürfnisse die Stoppuhr anpassen.... Dass mit der späteren Startzeit ist wegen Korrekturgründen zwischenduch mal notwendig...

Falls du eine bessere Lösung hast, wäre ich dankbar...

Danke nochmals und lg     

[nkh2016]

@Lachtaube...

Ich bekomme trotz deiner Hilfe und Beschreibung es nicht zuwege, dass die Stoppuhr nach der angeführten Zeit zu Laufen beginnt...

[Lachtaube]

Hast Du das hier im Klassenmodul gelöscht?

#If VBA7 Then
   Private Declare PtrSafe Function QueryPerformanceCounter Lib "Kernel32" (X As Currency) As Boolean
   Private Declare PtrSafe Function QueryPerformanceFrequency Lib "Kernel32" (X As Currency) As Boolean
#Else
   Private Declare Function QueryPerformanceCounter Lib "Kernel32" (X As Currency) As Boolean
   Private Declare Function QueryPerformanceFrequency Lib "Kernel32" (X As Currency) As Boolean
#End If

      Private Sub StartZeitInSekunden_Dirty(Cancel As Integer)
Me.StartZeitInSekunden = Me.StartZeitInSekunden
End Sub
                 
                       
                       
'Klasse initialisieren

und im Formularmodul diese Ergänzung vorgenommen?

Private Sub btnStart_Click()
    objStoppUhr.StartT StartZeitInSekunden
    Me.TimerInterval = conTimerIntervall
End Sub

[nkh2016]

  Danke Lachtaube...

stand etwas auf der Leitung funktioniert jetzt...

lg

(Anbei die Datei, falls es jemand braucht)...

[Lachtaube]

stand etwas auf der Leitung funktioniert jetzt...

das war aber schon fast ein Infarkt.