[ Φόρμες ] Αντιγραφή πεδίων

[γιώργοςΚ]

Παιδιά γειά σας,

Είμαι νέο μέλος του φόρουμ το οποίο πραγματικα βρίσκω πάρα πολυ ενδιαφέρον, τουλάχιστον για εμέν που είμαι σχετικά άπειρος με τ στοιχείο programming. Μπράβο στους διαχειριστές και σε ολους εσάς που δίνετε απλόχερα την βοήθεια σας σε εμάς τους "ολίγον" ασχετους..

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

Έχω μια φόρμα στην οποία είναι ενσωματωμένη μια subform σε continuous μορφή. Στην βασική φόρμα αναγράφωνται τα στοιχεία του πελάτη και στην subfom η διατροφή του για μία μέρα. Τώρα, το πρόβλημα είναι οτι χρειάζομαι έναν μηχανισμό (κώδικα?) έτσι ώστε να μπορώ με ένα πάτημα ενός commndButt να αντιγράφω όλα τα records της subform και για την επόμενη ημέρα διατροφής έτσι ώστε να μήν πρέπει αλλάζοντας ημέρα να επαναλλαμβάνω απο την αρχή όσα έχω γράψει (πχ για την διατροφή της Τρίτης να ξαναγράφω όσα έχω γράψει για την Δευτέρα κλπ)

Θα εκιμούσα αφάνταστα αν μπορούσε κάποιος πιο έμπειρος απο εμένα να με βοήθησει σε ατό το πρόβλημα.

Φιλικά,

Γιώργος Στυλιανού

[dimmag]

Καλησπέρα
Γιώργο για δοκίμασε σε κάθε πεδίο που θέλεις να αντιγράφεται στη subfom πχ mytxt_1,mytxt_2...

Private Sub mytxt_1_AfterUpdate()
Me![mytxt_1].Tag = Me![mytxt_1]
End Sub

Private Sub mytxt_2_AfterUpdate()
Me![mytxt_2].Tag = Me![mytxt_2]
End Sub
ή και
Private Sub mytxt_1_Click()
Me![mytxt_1].Tag = Me![mytxt_1]
End Sub
Private Sub mytxt_2_Click()
Me![mytxt_2].Tag = Me![mytxt_2]
End Sub
ή σε κάποιο άλλο συμβαν δοκίμασε τι σε βολεύει

και στο συμβαν BeforeInsert της φόρμας

Private Sub Form_BeforeInsert(Cancel As Integer)
Me![mytxt_1] = Me![mytxt_1].Tag
Me![mytxt_2] = Me![mytxt_2].Tag

End Sub
αν ενημερώσεις πρώτα τη Ημέρα Δευτέρα όλα τα πεδία σου
και προχωρήσεις σε νέα εγγραφή Τρίτη τότε όλα τα πεδία θα γεμίσουν με τις εγγραφές της Δευτέρας
Ελπίζω να βοήθησα
Φιλικά
Δημήτρης

[γιώργοςΚ]

Καλησπέρα Δημήτρη και σε ευχαριστώ για την πληροφόρηση και την βοήθεια σου. ¨Εχω δοκιμάσει τα όσα ανφέρεις αλλά δυστυχώς δεν δουλεύει. Θεωρώ σκόπιμο όπως κάνω zip την ΒΔ και την επισυνάψω έτσι ώστε φίλε να δείς επακριβώς τι θέλω να κάνω. Σε λίγο θα ανεβασω την ΒΔ και θα εκτιμούσα εάν μπορούσες να ρίξεις μια ματιά.

Ευχαριστώ φίλε εκ προτέρων.

[γιώργοςΚ]

Δημήτρη καλησπέρα,

Με ποιο τροπο μπορώ να επισυνάχω την ΒΔ που δουλεύω για να μπορέσεις να δεις ακριβώς τι πρόβλημα έχω?

Φιλικά,
Γιώργος

[γιώργοςΚ]

Παιδιά γειά σας,

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

Εξηγώ:

Όπως θα δείτε έχω δημιουργήσει μια φόρμα στην οποία είναι ενσωματωμένη μια subform. Αυτό αποτελεί την βασική διατροφή του ατόμου για μια ημερα (πχ Δευτέρα). Εγώ χρειάζομαι έναν τρόπο έτσι ώστε αφενός μεν επιλέγοντας newRecord να γίνωνται copy/paste όλα τα πεδία της subform και κάποια απο την main form. Είμαι βέβαιος ότι αυτό γινεται αλλά εξαιτίας της απειρίας μου εγώ.....αδυνατώ..:-)

Θα εκιμήσω κάθε βοήθεια απο οποιονδήποτε μέλος του φόρουμ

Ευχαριτώ εκ προτέρωνγώ

Γιώργος

[dimmag]

Καλησπέρα
Γιώργο δυστυχώς έχω μόνο Office 2003 και δεν μπορώ να δω το αρχείο να σε βοηθήσω.

Φιλικά
Δημήτρης

[γιώργοςΚ]

Καλησπέρα φίλε Δημήτρη,

Ευχαριστώ για την ανταπόκριση. Θα προσπαθήσω να κάνω downgrade την ΒΔ σε access 2003 και θα στην προωθήσω φίλε, μπάς και βρούμε καμιά άκρη. :-)

Φιλικά
Γιώργος

[Meteora]

Καλησπέρα

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

Με εκτίμηση
Νίκος Δ.

[liaverg]

Σχετικά με το θέμα της αντιγραφής
Πατάς το κουμπί "ΑΝΤΙΓΡΑΦΗ" στην υποφορμα που θες να αντιγράψεις
και το κουμπί "ΕΠΙΚΟΛΛΗΣΗ" στην υποφόρμα που θες να εισάγεις τις εγγραφές
Βασικό για να δουλεψει είναι να έχει μπει πρώτα το AutoCode της κυριας φορμας γι αυτο μεχρι τοτε σου κλειδωσα την υποφορμα με σχετικό μηνυμα αν παει καποιος να γραψει πρωτα εκει
Σίγουρα θέλει και καποια μηνυματα αν πατησει καποιος επικολληση ενω δεν εχει αντιγραψει τιποτα. Αλλα δες το πρωτα γιατι δεν ξερω αν καταλαβα καλα τι θες και βλεπουμε...

Επισης ο τύπος της φόρμας που σου έδωσε ο Νίκος νομίζω είναι πιο εμφανισιμος

*Σημειωση: Αν θες να λειτουργει η επικόλληση κι εκει που υπάρχουν ήδη εγγραφές μπορεις να αντικαταστησεις το DoCmd.RunCommand acCmdPaste με DoCmd.RunCommand acCmdPasteAppend και θα τις προσθέτει στις ηδη υπαρχουσες

**Διόρθωση
Παρατηρησα ενα προβληματακι με την ανανεωση του πεδιου diatrofi σε μερικες περιπτωσεις οποτε το παρακατω κομματι απο τον κωδικα στο κουμπι 'επικολληση' καλυτερα να μπει στης υποφορμας το AfterInsert

Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
With rs
.MoveFirst
Do While Not .EOF
.Edit
!Diatrofi = Me.Parent!AutoCode
.Update
.MoveNext
Loop
End With
Set rs = Nothing

[γιώργοςΚ]

Καλημέρα Νίκο και σε ευχαριστώ που ασχολήθηκες με το θέμα μου. Όντως είναι πιο "λειτουργική" η φόρμα που έφτιαξες Νίκο αλλά όπως ειπα αρχικα χρειάζομαι εναν τρόπο έτσι ωστε όλα τα φαγητά που είναι καταχωρημενα σε οποιανδήποτε μέρα καθώς και το όνομα της διατροφής, να μπορούν να γίνονται copy/paste και σε οποιαδήποτε άλλη ημέρα. Βασικά λέωτο εξής: Εστω ότι στην Δευτέρα υπάχουν καταχωρημένα 4 records (φαγητά), έτσω ότι το όνομα της διατροφης στην main form είναι ΑΒΓ, και έστω ότι η ημερομηνίες έναρξης και λήξης είναι 1/1/13 και 7/1/13, εγώ θέλω να μεταβένω σε νέο Record στην αρχική φόρμα και με ένα πάτημα ενος comdB.να κάνω paste όλα τα πιο πάνω, αλλάζωντας απλά το όνομα της νέας διατροφής σε ΒΓΔ

Στο μεταξύ σημείωσε ότι η συγκεκριμένη διαδικασία είναι αρκετά πολϋπλοκη στην παραγματικότητα και περιέχονται αρκετά πεδία προερχόμενα απο Ερώτημα... νομιζω οτι θα πρέπει να δες την πραγμτική εφαρμογή έτσι ωστε να καταλάβεις επακριβώς τι πρέπει να γϊνει έτσι ώστε να μην δημιουργηθούν δυσλειτυργίες στα υπόλοιπα. Δυστυχώς όμως το πραγματικό database ειναι λίγο μεγαλο και δεν με αφήνει εδώ μεσα να το κάνω upload...Μήπως θέλεις να μου εισηγηθείς κάποιο τρόπο να το κάνω φίλε Νίκο και αφού το δείς να με συμβουλέψετε αναλόγως?

Φιλικά,

Γιώργος