
22-07-18, 00:12
|
| Όνομα: Πέτρος Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 03-10-2014
Μηνύματα: 22
| |
Καλησπέρα Γιώργο και σε ευχαριστώ πολύ για την απάντηση σου.
Δυστυχώς το ζητούμενο δεν είναι το να το κάνω εγώ γιατί αυτο ακριβώς που είπες κάνω ο ίδιος μου. Θέλω αυτοί που δουλεύουν την εφαρμογή και τους δίνω την αναβάθμιση να ενημερώνετε η βάση δεδομένων τους με τις αλλαγές που έχω κάνει χωρίς να μπαίνω σε διαδικασία να τους πώ πώς θα το κάνουν ή να πρέπει να είμαι ο ίδιος.
Δοκίμασα με τον παρακάτω τρόπο αλλα δεν δουλεύει λόγω διαχωρισμένης βάσης.
Public Sub addColumn()
Dim strField As String
Dim curDatabase As Object
Dim tblTest As Object
Dim fldNew As Object
Set curDatabase = CurrentDb
Set tblTest = curDatabase.TableDefs("Test")
strField = "TestColumn"
Set fldNew = tblTest.CreateField(strField, dbLong)
tblTest.Fields.Append fldNew
End Sub
Ευχαριστώ εκ των προτέρων!
|