ΑΥΤΟΜΑΤΟ ΚΛΕΙΣΙΜΟ ΚΑΙ ΑΝΟΙΓΜΑ ΦΟΡΜΑΣ

[pctechdr]

Ενα παράδειγμα είναι αυτό

Function Shift() as String
If Time() >= #6:00:00 AM# And Time() <= #1:59:59 PM# Then
Shift = "First"
Else
If Time() >= #2:00:00 PM# And Time() <= #9:59:59 PM# Then
Shift = "Second"
Else
Shift = "Third"
End If
End If
End Function

[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 μπορεις να το εχεις και μη ορατο

[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 μπορεις να το εχεις και μη ορατο

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

[exarhos]

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

Ενα παράδειγμα είναι αυτό

Function Shift() as String
If Time() >= #6:00:00 AM# And Time() <= #1:59:59 PM# Then
Shift = "First"
Else
If Time() >= #2:00:00 PM# And Time() <= #9:59:59 PM# Then
Shift = "Second"
Else
Shift = "Third"
End If
End If
End Function

καλησπερα φίλε μου και σ ευχαριστω πολυ για την απάντηση. δεν εχω καταλαβει τι κανει ο κωδικας ακριβως.
τι σημαινει το shift = first, secont κλπ

[pctechdr]

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

καλησπερα φίλε μου και σ ευχαριστω πολυ για την απάντηση. δεν εχω καταλαβει τι κανει ο κωδικας ακριβως.
τι σημαινει το shift = first, secont κλπ

Καλημέρα.
Οι βάρδιες είναι πρώτη,δεύτερη και τρίτη

[exarhos]

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

Καλημέρα.
Οι βάρδιες είναι πρώτη,δεύτερη και τρίτη

Σε ευχαριστω πολυ