açılır kutuya tablo adını alma kodu açılır kutunun satır kaynağına yazılacak
Sql kodu
SELECT MSysObjects.Name
FROM MSysObjects
WHERE (((Left([Name],1))<>"~") AND ((Left([Name],4))<>"MSys") AND ((MSysObjects.[Type]) In (1,4,6)) AND ((MSysObjects.Flags)=0))
ORDER BY MSysObjects.Name;
yeni alan ekleme kodu
CurrentDb.Execute "ALTER TABLE " & Me.tabloo & " ADD Column " & Me.Adi & " " & Me.Turu & " (" & Me.Boyutu & ")", dbFailOnError
Not: Alan türünü seçmek için acilir kutu kullanmanız daha uygun olabilir