[pakos]

Γιαννη ευχαριστω για την προταση σου, πιστευω ειναι καλυτερη αλλα για εμας τους ερασιτεχνες που παιδευομαστε ωρες ατελειωτες, μπροστα στην access και δεν εχουμε σπουδασει καθολου την επιστημη των υπολογιστων μου ειναι δσκολο να κατανοησω τον κωδικα που μου προτεινες.

Επειδη απο οτι εχω εμπεδωση απο την ασχολια μου με την access υπαρχουν παρα πολλοι τροποι να βγαλεις το επιθυμητο αποτελεσμα.

Ετσι και εγω προτεινω μια λυση που θα μπορει να την κατανοησει και λιγοτερος εμπειρος χρηστης.



--------------------------------------------------------------------------------------------------------------------------------------------------------
με τον παρακατω κωδικα ελεγχει αν υπαρχει ο βοηθιτικος πινακας που θα μας χρησιμευσει

Public Function TableExists(sTable As String) As Boolean

Dim db As Database
Dim tbl As TableDef
Set db = CurrentDb()

TableExists = False

For Each tbl In db.TableDefs
If tbl.Name = sTable Then TableExists = True
Next tbl

End Function



--------------------------------------------------------------------------


Function AnaneosiPedionPinaka() As String
If TableExists("tblHELP") = True Then '<......... Αν υπαρχει ο βοηθιτικος πινακας διαγραφετε
DoCmd.DeleteObject acTable, "tblHELP"
Else
End If
DoCmd.RunSQL "DELETE tblEna_1.ΠΡΩΤΟΚΟΛΟ " & _ '<......... βαζετε οποιο πεδιο θελετε
" FROM tblEna_1 "
DoCmd.CopyObject , "tblHELP", acTable, "tblEna_1" '<......... δημιουργια βοηθιτικου πινακα μονο με τη δομη του πινακα δηλαδη με τα πεδια
DoCmd.OpenQuery "HELPprosartisi" '<......... κανετε ενα ερωτημα προσαρτησης "HELPprosartisi" με ολες τις εγγραφες του πινακα στον βοηθιτικο πινακα
DoCmd.DeleteObject acTable, "tblEna" '<......... διαγραφη του πινακα
DoCmd.CopyObject , "tblEna", acTable, "tblHELP" '<......... δημιουργια του πινακα με ολες τις εγγραφες και τα νεα πεδια (απλα μετανομαζει τον βηθ. πινακα)
DoCmd.DeleteObject acTable, "tblHELP"


End Function