[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]... (Υπάρχει σίγουρα και άλλη βελτίωση)