[exarhos]

Αρχική Δημοσίευση από pakos

χαιρετω τους φιλους
εχω την παρακατω απλη προταση για την λυση

σε οποιαδηποτε φορμα προσθεσε ενα πεδιο π.χ. ora

σε διαδικασια συμβαντος με το χρονομετρο
και χρονικο διαστημα 125

προσθεσε τον παρακατω κωδικα

Private Sub Form_Timer()
Me.ora = Format(Time, "hh:mm:ss am/pm")
If Me.ora = #5:55:00 AM# Or Me.ora = #9:55:00 PM# Or Me.ora = #1:55:00 PM# Then
MsgBox ("Στα επόμενα πέντε (5) λεπτά θα κλείσει η εφαρμογή"), vbInformation, "Information"
End If
If Me.ora = #6:00:00 AM# Or Me.ora = #10:00:00 PM# Or Me.ora = #2:00:00 PM# Then
Application.Quit
End If
End Sub

θα σε πληροφορει και 5 λεπτα πριν

το πεδιο ora μπορεις να το εχεις και μη ορατο

Σ ευχαριστω πολυ φιλε Πασχαλη. θα το δουλεψω αυριο στη δουλεια και θα σου πω.