ms access - वैकल्पिक तालिका: डिफ़ॉल्ट मान और चेकबॉक्स के साथ एक नया बूलियन कॉलम जोड़ें




ms-access ddl (2)

एक डीएओ उदाहरण

''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

से: http://wiki.lessthandot.com/index.php/Add_a_Display_Control_(Checkbox_C_Cobobox)_to_a_YesNo_Field

तालिका में बूलियन डेटाटाइप कॉलम जोड़ने के लिए सही एक्सेस डीडीएल क्वेरी क्या है?

अब तक मैंने निम्नलिखित उदाहरणों को देखा है ...

ALTER TABLE MyTable ADD MyNewColumName BIT

लेकिन वे 100% से सही नहीं हैं

  1. प्रवेश नए जोड़े गए कॉलम में चेकबॉक्स नियंत्रण लागू नहीं होता है, और
  2. उस स्तंभ के लिए अनुमत मान 0 और -1 लगते हैं

हां / कोई डेटा प्रकार तक पहुंचने में एक तार्किक क्षेत्र है जो हां / नहीं, सही / गलत, या चालू / बंद कर सकता है। जब आप VBA कोड को देखते हैं, तो सही और झूठी स्थिरांक -1 और 0 के बराबर होते हैं।

यदि आप इस फ़ील्ड का उपयोग किसी चेक बॉक्स को पॉप्यूलेट करने के लिए करते हैं तो यह ठीक से काम करेगा।

आप "YESNO" का उपयोग करने के लिए अपने परिवर्तित बयान को परिवर्तित कर सकते हैं:

ALTER TABLE mytable ADD mynewcolumn YESNO

यह आपको एक्सेस टेबल कॉलम में वांछित चेक बॉक्स देना चाहिए।