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

[mgeorge]

Αγαπητοί φίλοι καλησπέρα,

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

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

[dimitris p]

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

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

[kapetang]

Καλησπέρα

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

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

[mgeorge]

Δημήτρη καλησπέρα,
Το δοκίμασα αλλά με μεταφέρει στην τελευταία εγγραφή και όχι στην νέα εγγραφή.

[dimitris p]

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

[mgeorge]

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

[Tasos]

Καλησπέρα Γιώργο!

Στη φόρμα σου έχεις ρυθμίσει:

• Κατάταξη κατά: ΟΝΟΜΑΤΕΠΩΝΥΜΟ
• "Κατάταξη κατά με τη φόρτωση": Ναι

Χρησιμοποιώντας τη γραμμή: 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]

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

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

[Tasos]

Καλησπέρα Γιώργο!
Ο κώδικας που σου πρότεινα όπως και ο κώδικας του Γιώργου (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]

Γιώργο καλησπέρα,
Τελικά χρησιμοποίησα τον τελευταίο κώδικα και λειτουργεί άψογα χωρίς κανένα απολύτως πρόβλημα.

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