Πρόσθεση μηνών σε Access

[Roland]

Έστω οτι έχουμε μια ημερομηνία στο πεδίο start_date πχ 10/10/05

και στο πεδίο μήνες γράφουμε 12

Πως μπορεί να γίνει πατώντας το κουμπί "πρόσθεση" να εμφανιστεί στο πεδίο end_date η ανάλoγη ημερομηνία?

Δηλαδή 10/10/06?

 

[UserXP]

DateAdd("m",12,"10/10/05")

[Roland]

Φίλε UserXp ευχαριστώ για την απάντηση

Απ' ότι κατάλαβα η έκφραση DateAdd("m",12,"10/10/05") σημαίνει πως θα προσθέσει 12 μήνες στην ημερομηνία.

Σε μένα δε δούλεψε.

 

Άκου τι εκανα

Δημιούργησα ενα πεδίο.

Δεξί κλικ στο πεδίο Δόμιση Εκφράσεων

Επικόλληση την έκφραση

 

και μου βγάζει το εξής μήνυμα: Η έκφραση που πληκτρολογίσατε έχει μη έγκυρη σύνταξη. Παραλείψατε ένα τελεστέο ή ένα τελεστή κλπ

 

έκανα κατι λάθος?

[koyan]

Το κόμμα (,) μπορεί στον δικό σου υπολογιστή να πρέπει να αντικατασταθεί με το ( (ανάλογα με τα regional settings του υπολογιστή σου)

[Paladin-}LoA{-]

Αν κατάλαβα καλά...Το πρόβλημά σου ειναι στον κώδικα της πρόσθεσης;

 

Αν υποθέσουμε οτι το 1ο πεδίο που έχει την αρχική ημερομηνία το ονομάσεις StartDate, την τελική EndDate και αυτό που λέει πόσοι μήνες θα προστεθούν Months, τότε το Button σου θα πρέπει στο onClick event να έχει τον παρακάτω κώδικα:

 

 

Private Sub Command6_Click()

 

Me.EndDate = DateAdd("m", Me.Months, Me.StartDate)

 

End Sub

 

Αν θέλεις να το δείς σου στέλνω σε zipάκι την βάση στην οποία το δοκίμασα.

monthadd.zip

[random]

se emena ayto paizei

 

Private Sub ButtonProsthesh_Click()

end_date.Value = DateAdd("m", Mhnes.Value, start_date.Value)

End Sub

 

Mηπως θελει semicolons " ; " αντι για κόμμα " , " αναμεσα στους "τελεστές" στις function? εξαρταται απο τα regional.

 

...op... prolavan!! oti sou lene panw isxyei

[Roland]

αυτο ήταν φιλε Paladin-}LoA{-

 

Ευχαριστώ πάρα πολύ

 

Μήπως γίνεται να καταργήσουμε το κουμπί και να μπαίνει η νέα ημερομηνία αυτόματα μολις βάζουμε τους μήνες?

[Paladin-}LoA{-]

Απλά βγάλε το button, και τον κώδικα που είχε στο button (σκέτο το Me.EndDate = DateAdd("m", Me.Months, Me.StartDate) )βάλε τον στο Months Field (στο Lost Focus ή στο After Update event)

monthadd.zip

[Roland]

Τέλεια

 

Θα κάνω κατάχρηση της καλοσύνης σας και θα ρωτήσω και κάτι αλλο

Εχουμε λοιπόν αυτά τα τρια πεδία

StartDate

Months

EndDate

Και θέλουμε τα δεδομένα που προέκηψαν σ αυτά να τα αποθηκεύσουμε στον πίνακα "tbl_dates" πατώντας το κουμπί "Αποθήκευση"

ζητάω πολλά?

[Paladin-}LoA{-]

Αν πίσω από την φόρμα υπάρχει κάποιο table που να παίρνει το data, τότε δεν χρειάζεται καν να πατάς save αφού από μόνο του τα περνάει μέσα στο table.

Σε κάθε περίπτωση στα command buttons υπάρχει και ένα button που ονομάζεται Save Record (σε ελληνική access δεν έχω ιδέα πως το λένε). Ίσως να ναι αυτό που ψάχνεις (αν και πραγματικά είναι αχρείαστο αφού η access με το που φεύγεις από κάποιο πεδίο κάνει το save μόνη της)!

Δες το παράδειγμα. Το button βασικά κάνει save record αλλά είναι αχρείαστο (save γίνεται έτσι και αλλοιώς)

monthadd.zip

[Roland]

σωστα έχεις δίκιο για το αυτόματο σώσιμο . Αλλα οι δικές μου οι φόρμες δεν έχουν καποιο table απο πίσω γι αυτό θέλω και το κουμπάκι να αποθηκευει επιλεκτικά τα περιεχομενα των πεδίων στο "tbl_dates"

[Paladin-}LoA{-]

Δηλαδή δεν θέλεις να έχεις κάποιο table attached στην φόρμα σου.

Απλά θέλεις με το που θα πατάς κάποιο κουμπί save να γίνεται το connection σε κάποιο table και να μεταφέρονται τα δεδομένα από τα κουτάκια εκεί;

[Paladin-}LoA{-]

Επιπλέον...Η φόρμα σου είναι σε Access έτσι;

Δεν είναι σε VB...??

[Roland]

Απλά θέλεις με το που θα πατάς κάποιο κουμπί save να γίνεται το connection σε κάποιο table και να μεταφέρονται τα δεδομένα από τα κουτάκια εκεί;

 

ναι αυτο ακριβώς

 

Είναι σε access

[Paladin-}LoA{-]

Και το θές με VBA ή με macros?

Μου φαίνεται γίνεται και με τα 2