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/1214-antigrafi-pedion-se-nea-eggrafi.html)

mgeorge 19-06-11 17:12
Αντιγραφή πεδίων σε νέα εγγραφή
 
1 Συνημμένο(α)
Αγαπητοί φίλοι καλησπέρα,

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

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

dimitris p 19-06-11 19:01
Καλησπέρα και πάλι
Φίλε Γιώργο στο τέλος του κώδικα που υπάρχει στο κουμπί Αντιγραφή γράψε το παρακάτω:
DoCmd.GoToRecord , , acLast

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

kapetang 19-06-11 19:08
Καλησπέρα

Γιώργο, πρόσθεσε στο τέλος του κώδικα τη γραμμή:
Me.Recordset.MoveLast

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

mgeorge 19-06-11 19:18
Δημήτρη καλησπέρα,
Το δοκίμασα αλλά με μεταφέρει στην τελευταία εγγραφή και όχι στην νέα εγγραφή.

mgeorge 19-06-11 19:30
Φίλε Γιώργο καλησπέρα,
Το δοκίμασα και με την εντολή που μου γράφεις αλλά πάλι συμβαίνει το ίδιο,με μεταφέρει στην τελευταία εγγραφή.

dimitris p 19-06-11 19:30
Καλησπέρα
Χρήστο σε μεταφέρει στην εγγραφή που μόλις αντέγραψες (αυτό κατάλαβα ότι θέλεις)
Αν θέλεις να σε μεταφέρει σε νέα εγγραφή τότε γράψε:
DoCmd.GoToRecord , , acNewRec
Φιλικά Δημήτρης...

mgeorge 19-06-11 19:36
Δημήτρη αυτό σου εξήγησα,δεν με μεταφέρει στην εγγραφή που αντέγραψα (αυτό θέλω να γίνεται) αλλά στην τελευταία εγγραφή η οποία προυπήρχε.

mgeorge 19-06-11 19:39
Το έχω φανταστεί να λειτουργεί κάπως έτσι,

Επιλογή εγγραφής
Αντιγραφή εγγραφής
Νέα εγγραφή
Επικόλληση εγγραφής

dimitris p 19-06-11 19:56
Καλησπέρα και πάλι
Χρήστο στο φύλλο ιδιοτήτων της φόρμας στην καρτέλα "Δεδομένα" και στην ιδιότητα
"κατάταξη κατά" σβήσε το "ΟΝΟΜΑΤΕΠΩΝΥΜΟ" και γράψε "ΑΝΑΓΝΩΡΙΣΤΙΚΟ"
Φιλικά Δημήτρης.

mgeorge 19-06-11 20:06
Δημήτρη σε ευχαριστώ πάρα πάρα πολύ,παίζει μια χαρά,να είσαι καλά!!

kapetang 20-06-11 09:22
Καλημέρα στην παρέα

Γιώργο, ο κώδικας που σου πρότεινα, όπως και του Δημήτρη, κάνει τρέχουσα την τελευταία εγγραφή.
Όταν η ταξινόμηση των εγγραφών γίνεται με βάση το πεδίο «ΑΝΑΓΝΩΡΙΣΤΙΚΟ» η τελευταία εγγραφή συμπίπτει με αυτή που προσθέσαμε. Σ’ αυτό στηρίζεται η τελική λύση που έδωσε ο Δημήτρης.
Τι γίνεται όμως όταν η ταξινόμηση βασίζεται σε άλλο πεδίο πχ «ΟΝΟΜΑΤΕΠΩΝΥΜΟ»;
Θα μπορούσαμε να κάνουμε τα εξής:
1) Να βρούμε την τιμή (cnt) που πήρε το πεδίο «ΑΝΑΓΝΩΡΙΣΤΙΚΟ» της νέας εγγραφής. Ο κώδικας αυτός υπάρχει και είναι ο: cnt=DMax("ΑΝΑΓΝΩΡΙΣΤΙΚΟ", "ΠΡΟΣΦΟΡΕΣ")
2) Να κάνουμε τρέχουσα την εγγραφή της οποίας το «ΑΝΑΓΝΩΡΙΣΤΙΚΟ» είναι cnt.
Αυτό απαιτεί την προσθήκη του κώδικα: Me.Recordset.FindFirst "[ΑΝΑΓΝΩΡΙΣΤΙΚΟ]=" & cnt

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

mgeorge 21-06-11 20:56
Γιώργο καλησπέρα,

Μπορείς να μου πεις που ακριβώς πρέπει να μπει η εντολή στον κώδικα;

If Me.NewRecord Then MsgBox "Δεν υπάρχουν δεδομένα για αντιγραφή": Exit Sub
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO ΠΡΟΣΦΟΡΕΣ (ΟΝΟΜΑΤΕΠΩΝΥΜΟ,ΧΡΗΣΗ,ΜΑΡΚΑ, ΕΔΡΑ,ΤΗΛΕΦΩΝΟ,ΚΙΝΗΤΟ,ΔΙΑΡΚ ΙΑ,ΕΤΑΙΡΙΑ,ΙΠΠΟΙ,ΕΤΟΣΚΑΤΑΣ ΚΕΥΗΣ,ΚΥΒΙΚΑ) VALUES ('" & Me.ΟΝΟΜΑΤΕΠΩΝΥΜΟ & "','" & Me.ΧΡΗΣΗ & "','" & Me.ΜΑΡΚΑ & "','" & Me.ΕΔΡΑ & "','" & Me.ΤΗΛΕΦΩΝΟ & "','" & Me.ΚΙΝΗΤΟ & "','" & Me.ΔΙΑΡΚΕΙΑ & "','" & Me.ΕΤΑΙΡΙΑ & "','" & Me.ΙΠΠΟΙ & "','" & Me.ΕΤΟΣΚΑΤΑΣΚΕΥΗΣ & "','" & Me.ΚΥΒΙΚΑ & "')"
DoCmd.SetWarnings True
Me.Requery
MsgBox "Τα δεδομένα αντιγράφηκαν"
DoCmd.GoToRecord , , acLast

kapetang 21-06-11 22:00
Καλησπέρα

Γιώργο, στη βάση που ανέβασες υπάρχει ο κώδικας:
Κώδικας:
Private Sub Εντολή460_Click()
    If Me.NewRecord Then MsgBox "Δεν υπάρχουν δεδομένα για αντιγραφή": Exit Sub
    DoCmd.SetWarnings True
    DoCmd.RunSQL "INSERT INTO  ΠΡΟΣΦΟΡΕΣ (ΟΝΟΜΑΤΕΠΩΝΥΜΟ,ΧΡΗΣΗ,ΜΑΡΚΑ,ΕΔΡΑ,ΤΗΛΕΦΩΝΟ,ΚΙΝΗΤΟ,ΔΙΑΡΚΕΙΑ,ΕΤΑΙΡΙΑ,ΙΠΠΟΙ,
ΕΤΟΣΚΑΤΑΣΚΕΥΗΣ,ΚΥΒΙΚΑ) VALUES ('" & Me.ΟΝΟΜΑΤΕΠΩΝΥΜΟ & "','" & Me.ΧΡΗΣΗ & "','" & Me.ΜΑΡΚΑ & "','" & Me.ΕΔΡΑ & "','" &
 Me.ΤΗΛΕΦΩΝΟ & "','" & Me.ΚΙΝΗΤΟ & "','" & Me.ΔΙΑΡΚΕΙΑ & "','" & Me.ΕΤΑΙΡΙΑ & "','" & Me.ΙΠΠΟΙ & "','" &
Me.ΕΤΟΣΚΑΤΑΣΚΕΥΗΣ & "','" & Me.ΚΥΒΙΚΑ & "')"
    'Ανάκτηση κλειδιού νέας εγγραφής
    cnt = DMax("ΑΝΑΓΝΩΡΙΣΤΙΚΟ", "ΠΡΟΣΦΟΡΕΣ")
    MsgBox "Τα δεδομένα αντιγράφηκαν"
    Me.Requery
End Sub
Την εντολή που προτείνω θα την προσθέσεις μετά την εντολή me.requery.

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

mgeorge 22-06-11 16:08
Γιώργο η λύση που μου έδωσες είναι τέλεια!!!

Σε ευχαριστώ πάρα πολύ.

mgeorge 22-06-11 19:46
Καλησπέρα και πάλι,

Έχει προκύψει ένα άλλο πρόβλημα,μπορώ να αντιγράψω μόνο 9 πεδία,μόλις προσθέτω και 10ο πεδίο στον κώδικα μου βγάζει σφάλμα,μήπως έχετε κάποια ιδέα γιατί συμβαίνει αυτό;

Tasos 22-06-11 21:20
Καλησπέρα Γιώργο!

Στη φόρμα σου έχεις ρυθμίσει:
  • Κατάταξη κατά: ΟΝΟΜΑΤΕΠΩΝΥΜΟ
  • "Κατάταξη κατά με τη φόρτωση": Ναι
Χρησιμοποιώντας τη γραμμή: DoCmd.GoToRecord , , acLast, φυσικά θα σε πάει στην
τελευταία εγγραφή της φόρμας και όχι στην επιθυμητή εγγραφή που μόλις αντιγράφηκε και
που μπορεί να βρίσκεται οπουδήποτε (Κατάταξη κατά: ΟΝΟΜΑΤΕΠΩΝΥΜΟ...)!

Δοκίμασε το παρακάτω:

Κώδικας:
Option Compare Database
Option Explicit

Private Sub cmdCopyRecords_Click()
    If Not Me.NewRecord Then
        CurrentDb.Execute "INSERT INTO  ΠΡΟΣΦΟΡΕΣ (ΟΝΟΜΑΤΕΠΩΝΥΜΟ,ΧΡΗΣΗ,ΜΑΡΚΑ,ΕΔΡΑ,ΤΗΛΕΦΩΝΟ," & _
            "ΚΙΝΗΤΟ,ΔΙΑΡΚΕΙΑ,ΕΤΑΙΡΙΑ,ΙΠΠΟΙ,ΕΤΟΣΚΑΤΑΣΚΕΥΗΣ,ΚΥΒΙΚΑ) VALUES ('" & _
            Me.ΟΝΟΜΑΤΕΠΩΝΥΜΟ & "','" & Me.ΧΡΗΣΗ & "','" & Me.ΜΑΡΚΑ & "','" & Me.ΕΔΡΑ & _
            "','" & Me.ΤΗΛΕΦΩΝΟ & "','" & Me.ΚΙΝΗΤΟ & "','" & Me.ΔΙΑΡΚΕΙΑ & _
            "','" & Me.ΕΤΑΙΡΙΑ & "','" & Me.ΙΠΠΟΙ & "','" & Me.ΕΤΟΣΚΑΤΑΣΚΕΥΗΣ & "','" & Me.ΚΥΒΙΚΑ & "')"
        Me.Requery
        With Me.Recordset.Clone
            .FindFirst ("ΑΝΑΓΝΩΡΙΣΤΙΚΟ = " & DMax("ΑΝΑΓΝΩΡΙΣΤΙΚΟ", "ΠΡΟΣΦΟΡΕΣ"))
            Me.Bookmark = .Bookmark
            .Close
        End With
    End If
End Sub
Καλή συνέχεια!

Φιλικά

Τάσος

mgeorge 22-06-11 22:35
Τάσο σε ευχαριστώ πολύ,
Βέβαια και αυτός ο κώδικας λειτουργεί κατά τον ίδιο τρόπο με αυτόν που μου έδωσε ο Γιώργος.

Κάτι παίζει όμως με ορισμένα πεδία και δεν μπορούν να αντιγραφούν,σε κάποια διαπίστωσα πως έφταιγε το ότι τα είχα ως (απαιτείται) και μόλις το άλλαξα λύθηκε το πρόβλημα αλλά σε κάποια άλλα πεδία αν και προσπαθώ εδώ και πολλές ώρες να βρω τι φταίει δεν έχω καταφέρει κάτι.

Tasos 22-06-11 23:26
Καλησπέρα Γιώργο!
Ο κώδικας που σου πρότεινα όπως και ο κώδικας του Γιώργου (kapetang) να δοκιμάσεις
βασίζεται στον κώδικα του συνημμένου σου και κάνει ακριβώς αυτό που ζητάς δηλαδή επιλέγει την εγγραφή που μόλις αντιγράφηκε.

Δεν είναι σαφές το που αλλού αντιμετωπίζεις πρόβλημα.

Αν θέλεις,σαν εναλλακτική λύση (και πιο απλή) δοκίμασε το παρακάτω:

Κώδικας:
Private Sub cmdTest()
        Dim Field1, Field2, Field3, Field4, Field5, Field6,  _
        Field7, Field8, Field9, Field10, Field11

        Field1 = Me!ΟΝΟΜΑΤΕΠΩΝΥΜΟ
        Field2 = Me!ΧΡΗΣΗ
        Field3 = Me!ΜΑΡΚΑ
        Field4 = Me!ΕΔΡΑ
        Field5 = Me!ΤΗΛΕΦΩΝΟ
        Field6 = Me!ΚΙΝΗΤΟ
        Field7 = Me!ΔΙΑΡΚΕΙΑ
        Field8 = Me!ΕΤΑΙΡΙΑ
        Field9 = Me!ΙΠΠΟΙ
        Field10 = Me!ΕΤΟΣΚΑΤΑΣΚΕΥΗΣ
        Field11 = Me!ΚΥΒΙΚΑ
       
        DoCmd.GoToRecord , , acNewRec
       
        Me!ΟΝΟΜΑΤΕΠΩΝΥΜΟ = Field1
        Me!ΧΡΗΣΗ = Field2
        Me!ΜΑΡΚΑ = Field3
        Me!ΕΔΡΑ = Field4
        Me!ΤΗΛΕΦΩΝΟ = Field5
        Me!ΚΙΝΗΤΟ = Field6
        Me!ΔΙΑΡΚΕΙΑ = Field7
        Me!ΕΤΑΙΡΙΑ = Field8
        Me!ΙΠΠΟΙ = Field9
        Me!ΕΤΟΣΚΑΤΑΣΚΕΥΗΣ = Field10
        Me!ΚΥΒΙΚΑ = Field11
End Sub
Φιλικά

Τάσος

mgeorge 23-06-11 15:35
Γιώργο καλησπέρα,
Τελικά χρησιμοποίησα τον τελευταίο κώδικα και λειτουργεί άψογα χωρίς κανένα απολύτως πρόβλημα.

Ευχαριστώ πολύ για μια ακόμη φορά!!!

kapetang 23-06-11 17:03
Καλησπέρα στην παρέα

Γιώργο (συνονόματε), μάλλον υπάρχει ένα μπέρδεμα.
Το τελευταίο μήνυμα με κώδικα είναι του Τάσου, οπότε για τη βοήθεια θα έπρεπε να ευχαριστήσεις τον Τάσο!

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

mgeorge 23-06-11 17:12
Γιώργο έχεις δίκιο,μου διέφυγε,το μήνυμα απευθυνόταν στον Τάσο.
Φίλε Τάσο σε ευχαριστώ και πάλι!!


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

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


Search Engine Optimization by vBSEO 3.3.2