ekle butonunun kodu
burda dikkat edilmesi gereken 2 nokta var
1 - Turu açılır kutusu tür tablosundaki ilk 3 sütunu mutlaka almalı (OtoId,TurId ve TurAd) ilk 2 sütun gizlenebilir
hatta tablodan son 2 sütunu silebilirsiniz, son 2 sütun (SQLTerim ve DAOTerim) farklı yöntemler için gerekli olabilir diye eklemiştim
mesela SQLTerim kısmında kullanılan terimler "alter tablo" gibi sorgu ile alan ekleme komutlarında kullanıldığı için eklendi
2 - TblAlanTur tablosundaki kaydın verisini değiştirirken dikkatli olmalısınız
3. sütunda yer alan otomatik sayı verisi ile Hyperlink verisi değişirse

'hy otomatik sayı ve köprü için ek özellik_______________________________________

If Me.Turu.Column(2) = "Otomatik Sayı" Then fld.Attributes = 16 'dbAutoIncrField

If Me.Turu.Column(2) = "Hyperlink" Then fld.Attributes = 32768 'dbHyperlinkField

'________________________________________________________________________________

yukardaki kodlarda yer alan "Otomatik Sayı" ve  "Hyperlink" de aynı şekilde değişmeli

strTable = Me.tabloo

If Len(strTable & "") < 1 Then Exit Sub



Dim db As DAO.Database

Dim table1 As DAO.TableDef

Dim fld As DAO.Field

Dim tdf As DAO.TableDef





nFieldType = Me.Turu

' Create the new Table Def object

Set table1 = New DAO.TableDef



' Name the Table

table1.Name = strTable



' Create the new Field

Set fld = New DAO.Field

fld.Name = Me.Adi

fld.Type = Me.Turu.Column(1) 'DataTypeEnum.dbText

If Len(Me.Boyutu & "") > 0 Then fld.Size = Me.Boyutu

'hy otomatik sayı ve köprü için ek özellik_______________________________________

If Me.Turu.Column(2) = "Otomatik Sayı" Then fld.Attributes = 16 'dbAutoIncrField

If Me.Turu.Column(2) = "Hyperlink" Then fld.Attributes = 32768 'dbHyperlinkField

'________________________________________________________________________________

'hy yabancı/bağlı tablo kontrolü____________________________

    stPath = CurrentDb.TableDefs(strTable).Connect

If Len(stPath & "") > 0 Then

    TabloAdresi = Right(stPath, Len(stPath) - (InStr(1, stPath, "DATABASE=") + 8))

    Set db = OpenDatabase(TabloAdresi) 'CurrentDb

Else

    Set db = CurrentDb

End If

'____________________________________________________________

db.TableDefs(strTable).Fields.Append fld

son not emin değilim ama galiba 2 tane otomatik sayı alanı desteklenmiyor o nedenle aynı tabloya 2. defa otomatik alan eklemeye kalkarsanız sorun çıkabilir
iyi çalışmalar