Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   Διαχείριση αδειών (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/2275-diaxeirisi-adeion.html)

bill72 10-01-13 13:20

Διαχείριση αδειών
 
1 Συνημμένο(α)
Την καλησπέρα μου σε όλο το forum καλή χρονιά και χρόνια πολλά σε όλους. χρειάζομαι την βοήθεια σας γαι να πραγματοποιήσω το ίδιο ζητούμενο που είχε ζητηθεί και εδώ: http://www.ms-office.gr/forum/access...si-adeion.html στην βάση που ανεβάζω θα ήθελα αν γίνεται ο παρακάτω κώδικας να προσαρμοστεί στην βάση που ανεβάζω ή οπαιαδήποτε άλλη ιδέα δεκτή ,δηλαδή να μην με αφήνει να βάζω ημερομηνία που έχω ξαναβάλει ή ενδιάμεσα ή στην αρχή ή στο τέλος
Private Sub CountDatesPeriod()
Dim Date1 As Long, Date2 As Long
If IsDate(Me.StartDate) And IsDate(Me.EndDate) Then
If Me.StartDate <= Me.EndDate And Me.StartDate <> 0 Then
Date1 = CLng(Me.StartDate): Date2 = CLng(Me.EndDate)
If DCount("ID", "Adeies", "ID =" & Me.ID & _
" AND (StartDate Between " & Date1 & " And " _
& Date2 & ") Or (" & "EndDate Between " & _
Date1 & " And " & Date2 & ")") Then
MsgBox "Dating in conflict..."
Me.Undo
Else
Me.AbsenceDays = Me.EndDate - Me.StartDate + 1
End If
End If
End If
End Sub

ασχετος 10-01-13 14:24

Παράθεση:

Αρχική Δημοσίευση από bill72 (Μήνυμα 13423)
Την καλησπέρα μου σε όλο το forum καλή χρονιά και χρόνια πολλά σε όλους. χρειάζομαι την βοήθεια σας γαι να πραγματοποιήσω το ίδιο ζητούμενο που είχε ζητηθεί και εδώ: http://www.ms-office.gr/forum/access...si-adeion.html στην βάση που ανεβάζω θα ήθελα αν γίνεται ο παρακάτω κώδικας να προσαρμοστεί στην βάση που ανεβάζω ή οπαιαδήποτε άλλη ιδέα δεκτή ,δηλαδή να μην με αφήνει να βάζω ημερομηνία που έχω ξαναβάλει ή ενδιάμεσα ή στην αρχή ή στο τέλος
Private Sub CountDatesPeriod()
Dim Date1 As Long, Date2 As Long
If IsDate(Me.StartDate) And IsDate(Me.EndDate) Then
If Me.StartDate <= Me.EndDate And Me.StartDate <> 0 Then
Date1 = CLng(Me.StartDate): Date2 = CLng(Me.EndDate)
If DCount("ID", "Adeies", "ID =" & Me.ID & _
" AND (StartDate Between " & Date1 & " And " _
& Date2 & ") Or (" & "EndDate Between " & _
Date1 & " And " & Date2 & ")") Then
MsgBox "Dating in conflict..."
Me.Undo
Else
Me.AbsenceDays = Me.EndDate - Me.StartDate + 1
End If
End If
End If
End Sub

Βασίλη,
στο παραδειγμα που δίνεις έχεις δύο εγγραφές
3/1/2013 - 7/1/2013
4/1/2013 - 6/1/2013
τι ζητάς;
1. να μην μπορείς να καταχωρήσεις < τις 3/1/2013
2. να μην μπορείς να καταχωρήσεις < τις 3/1/2013 και μεταξύ 3/1/2013 και 7/1/2013

τι ακριβώς, γιατί δεν κατάλαβα.

bill72 10-01-13 14:53

Κώστα σ' ευχαριστώ πολύ για το ενδιαφέρων σου κατ' αρχήν ,θέλω να μην δέχεται εγγραφή στο παράδειγμα δηλαδή 3/1/2013 - 7/1/2013 αν καταχωρήσω στο ίδιο άτομο άδεια με οποιαδήποτε ημερομηνία που να εμπλέκονται οι ανωτέρω ημερομηνίες να μην δέχεται δηλαδή 3/1/2013 - 6/1/2013 ή4/1/2013 - 5/1/2013 ή 5/1/2013 - 7/1/2013 κτλ ή οτιδήποτε άλλο συνδυασμό που βρίσκεται από το διάστημα StartDate έως EndDate ή ενδιάμεσα αυτού στην βάση που ανέβασα δεν έπρεπε να δεχτή την εγγραφή 4/1/2013 - 6/1/2013 .

ασχετος 10-01-13 18:11

Παράθεση:

Αρχική Δημοσίευση από bill72 (Μήνυμα 13426)
Κώστα σ' ευχαριστώ πολύ για το ενδιαφέρων σου κατ' αρχήν ,θέλω να μην δέχεται εγγραφή στο παράδειγμα δηλαδή 3/1/2013 - 7/1/2013 αν καταχωρήσω στο ίδιο άτομο άδεια με οποιαδήποτε ημερομηνία που να εμπλέκονται οι ανωτέρω ημερομηνίες να μην δέχεται δηλαδή 3/1/2013 - 6/1/2013 ή4/1/2013 - 5/1/2013 ή 5/1/2013 - 7/1/2013 κτλ ή οτιδήποτε άλλο συνδυασμό που βρίσκεται από το διάστημα StartDate έως EndDate ή ενδιάμεσα αυτού στην βάση που ανέβασα δεν έπρεπε να δεχτή την εγγραφή 4/1/2013 - 6/1/2013 .

Βασίλη,
Πήγαινε στα
Access samples - Χρήσιμα αρχεία & παραδείγματα
και κατέβασε την Βάση του Γιώργου του Καπετανόπουλου
Χειρισμός χρονικών διαστημάτων
κοίτα της Function και θα καταλάβεις, αν όχι
έδω είμαστε.

stavross 10-01-13 22:23

1 Συνημμένο(α)
Βασίλη επειδή είχα κάνει και εγώ την ίδια ερώτηση πριν από λίγο καιρό ο Γιώργος ο Kapetang μου έφτιαξε αυτήν την βάση που επισυνάπτω και δουλεύει τέλεια. Αν παίξεις λίγο με τις άδειες κάνει ακριβώς αυτό που ζητάς
Φιλικά Σταύρος

bill72 11-01-13 09:42

Καλημέρα Σταύρο σ' ευχαριστώ για την ανταπόκριση σου ,πράγματι είναι πολύ καλή δουλειά αλλά η γνώσεις μου στην vbe δεν είναι τόσο προχωρημένες για να μπορέσω να εκπληρώσω το ζητούμενο μέσα από τη βάση που μου έστειλες ωστόσο θα προσπαθήσω και θα ξαναμιλήσουμε.

kosta 12-01-13 10:10

Καλημέρα σε όλους την εξαιρετική δουλειά "Διαχείριση αδειών" που έχει κάνει ο Τάσος φαίνεται πως την δανειστήκαμε πολλοί, έχω στήσει και εγώ όπως και πολλοί άλλοι την βάση μου όπως ο Βασίλης και θα ήθελα να δω και εγώ την λύση στο πρόβλημα , Βασίλη αν βρεις κάτι σε παρακαλώ ανέβασε το γιατί αντιμετωπίζω και εγώ το ίδιο ακριβώς πρόβλημα!

bill72 13-01-13 11:47

Καλημέρα στην παρέα, Κώστα κοίταξα την Function του Γιώργου που μου υπέδειξες αλλά δεν μπορώ να την συνδέσω με την δικιά μου βάση για να μου απαγορεύει τις εγγραφές για τον ίδιο υπάλληλο στις ίδιες ημερομηνίες ή ενδιάμεσα αυτών, κάποια βοήθεια θα την χρειαζόμουν σίγουρα.
Η απορία μου είναι ακριβώς ίδια με της ΧΡΙΣΤΙΝΑΣ Οταν δίνω για κάποιο υπάλληλο
Ημερομηνια Από π.χ. 3/1/2013 και
Ημερομηνία Έως π.χ. 7/1/2013
Να μην γίνεται ξανά αποδεκτο το ίδιο διάστημα Απο - Εως .

nasos23 13-01-13 12:52

1 Συνημμένο(α)
Καλησπέρα σε όλους
Βασίλη δες το αρχείο.
Είναι βασισμένο στην υλοποίηση "Χειρισμός χρονικών διαστημάτων" (frmProsopiko_Apousies3) του Γιώργου Καπετανόπουλου και τον ευχαριστούμε όλοι γι' αυτό.

Φιλικά Νάσος

bill72 13-01-13 16:23

Επιτέλους!! τα κατάφερα η βάση του Γιώργου Καπετανόπουλου είναι εξαίσια η πληροφορίες που αντλείς είναι απεριόριστες όμως χάρη στην βάση που ανέβασες Νάσο με ξεκόλλησες ,να ’σαι καλά σας ευχαριστώ όλους πολύ και πάλι καλή χρονιά σε όλους .


Η ώρα είναι 15:36.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2