Forum - Φόρμες Αντιγραφή πεδίων σε νέα εγγραφή

Σελίδα 2 από 3

Εμφάνιση 40 μηνυμάτων αυτού του θέματος σε μία σελίδα

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)

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

Καλησπέρα στην παρέα

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

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

Η ώρα είναι 23:10.

Σελίδα 2 από 3

Εμφάνιση 40 μηνυμάτων αυτού του θέματος σε μία σελίδα

Search Engine Optimization by vBSEO 3.3.2