Βοήθεια

[Jim]

Αρχάριος μεν αλλά περίεργος δε και νέος.
Θα ήθελα την βοήθεια σας
Έχω μία δευτερεύουσα φόρμα με το πεδίο Ημερομηνία, θα ήθελα ενώ γράφω την πρώτη ημέρα του χρόνου δηλ. 01/01/2004 αυτόματα να παίρνει η επόμενη γραμμή την επόμενη ημερομηνία δηλ. 02/01/2004 και να φαίνεται στην γραμμή αν γίνεται με κώδικα η βάση δεδομένων είναι σε Access ευχαριστώ όλους για την κατανόηση και την υπομονή σας

[Meteora]

Καλημέρα
Σε μια 'φόρμα με πολλά στοιχεία' εμφάνιζα ονόματα μαθητών και πρόσθετα-διέγραφα-άλλαζα τη βαθμολογία τους. Δεν ξέρω τι γίνεται με αυτές ...τις δευτερεύουσες φόρμες αλλά θέλοντας να σε βοηθήσω σε λέω : Το πεδίο [Ημερομηνία] έχει διάφορα συμβάντα. Στο συμβάν 'Με την είσοδο' μπορεί να γραφεί κώδικας που θα εμφανίζει την ημερομηνία που θες !
Βήμα 1. Διάβασε την τιμή του πεδίου της προηγούμενης εγγραφής
Βήμα 2. Κάνε χρήση της function Dateadd, για να εμφανιστεί αυξημένη κατα μία ημέρα η ημερομηνία.
Ελπίζω να βοήθησα λίγο. Εδώ στο Forum υπάρχουν παιδιά (χμ!) που θα σε βοηθήσουν αρκεί να έχεις λίγη υπομονή και να μαθαίνεις την access σκαλοπάτι-σκαλοπάτι
Τα ξαναλέμε...
Φιλικά Νίκος

[Giorgos]

καλημέρα jim

έκανα κάτι.. δες εάν είναι αυτό που ζητάς..

Γιώργος

[Jim]

Σε ευχαριστώ πάρα πολύ για τον ενδιαφέρον που έδειξες κατέβασα το αρχείο αλλά
δεν μπορώ να το ανοίξω ξέχασα να αναφέρω ότι δουλεύω σε Access 2003. Θα προσπαθήσω να ανεβάσω την βάση μήπως και γίνω ποιο κατανοητός μια και με δέρνει η απειρία.Είναι μια βιάση από διαχείριση ταξί στην φόρμα χιλιόμετρα αν προσέξεις έχει μια δευτερεύουσα ανάλυση χιλιομέτρων στο πεδίο Ημ/νία θα ήθελα
Να καταχωρούνται οι ημερομηνίες όλου του χρόνου ας πούμε για το 2010 εφόσον
Εγώ γράψω στην πρώτη σειρά την πρώτη ημέρα (01/01/2010) αυτό όμως να γίνεται και στον πίνακα ώστε να μην χρειάζεται να τις γράφω με το χέρι είναι κουραστικό πάρα πολύ.Ευχαριστώ όλα τα παιδιά εκ των προτέρων

[Meteora]

Καλημέρα Δημήτρη
Είδα την εφαρμογή σου και μπράβο σου για ότι κατάφερες μέχρι τώρα. Ειλικρινά !
Μάλλον έφτιαξα αυτό που ζητάς, αλλά δοκίμασέ το και εσύ...
Η ημερομηνία στη φόρμα θα εμφανιστεί αυξημένη κατά μια μονάδα, μόλις συμπληρώσεις το δίπλα πεδίο και πάς σε κάποιο άλλο -δεξιότερα- για να συνεχίσεις την εγγραφή σου.
Και πάλι μπράβο σου. Καλή συνέχεια...
Τα ξαναλέμε ...
Φιλικά Νίκος

Σχόλιο : Δεκτή οποιαδήποτε τροποποίηση μιας και το ζήτημα που έθεσε ο Δημήτρης εμφανίστηκε ξανά

Να κάποια αλλαγή στον κώδικα που έγραψα :


Private Sub Χ_Εκμ_1ος_AfterUpdate()

Dim fla As Integer
If [ID1] < 2 Then: Exit Sub

For I = 1 To [ID1]
fla = [ID1] - I
[Ημ_νία] = DLookup("[Ημ_νία]", "Ανάλυση Χιλιομέτρων", "[ID1] = " & fla)

If Not IsNull([Ημ_νία) Then: Exit For
Next I

If Not IsNull([Ημ_νία]) Then: [Ημ_νία] = DateAdd("d", 1, [Ημ_νία])

End Sub

Η παραπάνω ρουτίνα έρχεται να αντιμετωπίσει και το ζήτημα της διαγραφής κάποιων ή και όλων των εγγραφών, οπότε υπάρχει μια ασυνέχεια στις τιμές αυτόματης αρίθμησης του [ID1]... (Υπάρχει σίγουρα και άλλη βελτίωση)

[Jim]

Φίλε Νίκο Σε ευχαριστώ πάρα μα πάρα πολύ μου έλυσες τα χέρια και συνάμα
Αυξήθηκε η γνώση μου. Πραγματικά είναι αυτό που ζητούσα και πολύ παραπάνω λες και ήσουν στην σκέψη μου αν κάποτε κατέβης Βόλο θέλω να βρεθούμε.
Φιλικά Δημήτρης