Access-o-Mania

Access-Forum (Deutsch/German) => Access Programmierung => Thema gestartet von: nkh2016 am März 29, 2017, 00:45:30

Titel: Variable aus Formular in Modul übergeben - Bsp Stoppuhr f. Access
Beitrag von: nkh2016 am März 29, 2017, 00:45:30
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...
Titel: Re: Variable aus Formular in Modul übergeben -
Beitrag von: Lachtaube am März 29, 2017, 08:28:44
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?
Titel: Re: Variable aus Formular in Modul übergeben -
Beitrag von: nkh2016 am März 29, 2017, 13:52:50
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  :)  :)  :)
Titel: Re: Variable aus Formular in Modul übergeben -
Beitrag von: nkh2016 am März 29, 2017, 14:07:17
@Lachtaube...

Ich bekomme trotz deiner Hilfe und Beschreibung es nicht zuwege, dass die Stoppuhr nach der angeführten Zeit zu Laufen beginnt...
Titel: Re: Variable aus Formular in Modul übergeben -
Beitrag von: Lachtaube am März 29, 2017, 14:16:28
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
Titel: Re: Variable aus Formular in Modul übergeben -
Beitrag von: nkh2016 am März 29, 2017, 14:33:32
 :) Danke Lachtaube...

stand etwas auf der Leitung funktioniert jetzt...

lg

(Anbei die Datei, falls es jemand braucht)...
Titel: Re: Variable aus Formular in Modul übergeben - Bsp Stoppuhr f. Access
Beitrag von: Lachtaube am März 29, 2017, 17:54:36
Zitat von: nkh2016 am März 29, 2017, 14:33:32stand etwas auf der Leitung funktioniert jetzt...
das war aber schon fast ein Infarkt. :)