[sarafis]

Μανώλη καλημέρα

Σε μια λειτουργική μονάδα βάζεις τον κώδικα

Public Function change_default_value(tablename, fieldname, newdefaultvalue) As String
CurrentDb.TableDefs(tablename).Fields(fieldname).D efaultValue = newdefaultvalue
End Function

και στην μακροεντολή επιλέγεις εκτέλεση κώδικα και:
change_default_value("Όνομα Πίνακα","Όνομα πεδίου","Νέα προεπιλεγμένη τιμή")

ή σε κώδικα VBA σε κάποιο κουμπί ή Συμβάν
CurrentDb.TableDefs("Όνομα Πίνακα").Fields("Όνομα πεδίου").DefaultValue = "Προεπιλεγμένη τιμή"