[kapetang]

Καλησπέρα

Γιώργο, στη βάση που ανέβασες υπάρχει ο κώδικας:

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.

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