Skip to main content

AccessTr.neT


Tabloya Yeni Alan Ekleme

Tabloya Yeni Alan Ekleme

#13
bağlı tablolu çalışmamı akledim.
.rar baglıtablo.rar (Dosya Boyutu: 33,38 KB | İndirme Sayısı: 5)
Cevapla
#14
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
Cevapla
#15
Çok çok teşekkür ederim sayın berduş,
elleriniz dert görmesin...
Cevapla
#16
rica ederim )
iyi çalışmalar
Cevapla
#17
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
Cevapla
#18
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?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task