Tabloya Yeni Alan Ekleme

bağlı tablolu çalışmamı akledim.

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

Çok çok teşekkür ederim sayın berduş,
elleriniz dert görmesin...

rica ederim )
iyi çalışmalar

bir hatırlatmada bulunayım 8. mesajdaki bağlantıyı incelediyseniz orada hem Auto Number(otomatik tamsayı) hem de Hyperlink (Köprü) özelliklerini seçebilmek için fazladan bir özelliğin daha eklenmesi gerektiğini görürsünüz. yani o 2 alan için ek kodlar gerekiyor

Sayın berduş,
Alan türü için bir tablo oluştursam daha iyi olmazmı?
kod şu anda normal çalışıyor,
ek kod ne için gerekli açıklayabilirmisiniz?
benim yapabileceğim birşey mi?