ekleme kodunu aşağıdaki kodla değiştirip dener misiniz?

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 'DataTypeEnum.dbText

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

'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