[kapetang]

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

Private Sub cmdApped_Click()
    Dim RecCount As Long
    RecCount = DCount("*", "Table1")
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "qryApped"
    If DCount("*", "Table1") > RecCount Then
        MsgBox "Οι συντελεστές αποθηκεύτηκαν."
    Else
        MsgBox "Οι συντελεστές ήταν ήδη αποθηκευμένοι."
    End If
    DoCmd.SetWarnings True
End Sub

Φυσικά θα πρέπει να αντικαταστήσεις το όνομα του κουμπιού (cmdApped) του πίνακα (Table1) και του ερωτήματος (qryApped) με τα πραγματικά.

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