ALTER TABLE: Varsayılan değerle yeni bir boole sütunu ekleyin ve onay kutusu

Question

Bir tabloya bir Boole veri türü sütunu eklemek için doğru Access DDL sorgusu nedir? Aşağıdaki gibi

Şimdiye kadar gördüğüm örnekler ...

ALTER TABLE MyTable ADD MyNewColumName BIT 

ama

1. Erişim için onay kutusu denetimi geçerli olmadığından onlar% 100 doğru olmasını görünmüyor yeni sütunu eklendi ve
o sütun için izin verilen değerler
2. görünmektedir 0 ve -1

Answer 1

Bir DAO örneği.

''Requires reference to Microsoft DAO 3.6 Object Library 
Dim tdf As DAO.TableDef 
Dim fld As DAO.Field 
Dim db As Database 
Dim strSQL As String 


Set db = CurrentDb 

''Create a table ... 
strSQL = "Create Table tblLTD (TheYesNoCheck YesNo, TheYesNoCombo YesNo)" 
db.Execute strSQL 

''It is now in the table collection, so ... 
Set tdf = db.TableDefs("tblLTD") 

''Change the way the YesNo fields display. 
''A Checkbox 
Set fld = tdf.Fields("TheYesNoCheck") 
Set prp = fld.CreateProperty("DisplayControl", dbInteger, acCheckBox) 
fld.Properties.Append prp 

''A combobox 
Set fld = tdf.Fields("TheYesNoCombo") 
Set prp = fld.CreateProperty("DisplayControl", dbInteger, acComboBox) 
fld.Properties.Append prp 
''We will need a format 
Set prp = fld.CreateProperty("Format", dbText, "Yes/No") 
fld.Properties.Append prp 

Gönderen: http://wiki.lessthandot.com/index.php/Add_a_Display_Control_(Checkbox,_Combobox)_to_a_YesNo_Field

Answer 2

Evet/Hayır veri türünde erişim, evet/hayır, doğru/yanlış veya açık/kapalı gösterebilen mantıksal bir alandır. Eğer VBA koduna baktığınızda doğru ve yanlış sabitler -1 eşdeğerdir ve bir onay kutusunu doldurmak için bu alanı kullanırsanız 0.

düzgün çalışacaktır.

Aşağıdaki gibi "yesno" kullanmak için alter deyimi değiştirme mümkün olabilir:

ALTER TABLE mytable ADD mynewcolumn YESNO 

size erişim tablosu sütununda istenen onay kutusunu vermek gerektiğini.