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

[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

Καλή συνέχεια!

Φιλικά

Τάσος